(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 466222, 10521] NotebookOptionsPosition[ 305082, 7449] NotebookOutlinePosition[ 447041, 10113] CellTagsIndexPosition[ 445220, 10063] WindowTitle->ReasonableRuler | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ReasonableRuler", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->204441660], Cell["\<\ Find a near-minimal set of marks for an integer length ruler so that all \ smaller integer distances are measurable\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->526099624], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ReasonableRuler", "[", RowBox[{"length_Integer", ",", RowBox[{"convert_", ":", "\"\\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "column", ",", "wichmannvalues", ",", "wichdiffs", ",", " ", "height", ",", " ", "columnheight", ",", " ", "excessfraction", ",", " ", "columnMod", ",", "W1", ",", "W2", ",", "W3", ",", "W6", ",", "W7", ",", "W10", ",", "W11", ",", "W23", ",", "W24", ",", "W35", ",", "W100", ",", "W101", ",", "W103", ",", "W120", ",", "W224", ",", "W225", ",", "W226", ",", "W270", ",", "W310", ",", "sporadic", ",", "sporadicvalues", ",", "ruleupper", ",", "rulelower", ",", "botprev", ",", "botthis", ",", "botthisM1", ",", "midthis", ",", "columnplaces", ",", "columnvals", ",", "case", ",", " ", "extender", ",", "covered", ",", " ", "solutions", ",", "sols", ",", "solvals", ",", "lastsol", ",", " ", "moresols", ",", "actual", ",", "case11", ",", "case11p", ",", " ", "ruler", ",", "max"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"column", "=", " ", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", "length"}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wichmannvalues", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "^", "2"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "6"}], "]"}], "-", "3"}], ")"}], "^", "2"}]}], ")"}], "/", "3"}], "+", "n"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"column", "-", "2"}], ",", " ", RowBox[{"column", "+", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wichdiffs", "=", RowBox[{"Differences", "[", "wichmannvalues", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "W1", ",", "W2", ",", "W3", ",", "W6", ",", "W7", ",", "W10", ",", "W11", ",", "W23", ",", "W24", ",", "W35", ",", "W100", ",", "W101", ",", "W103", ",", "W120", ",", "W224", ",", "W225", ",", "W226", ",", "W270", ",", "W310"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "r", ",", "s", ",", RowBox[{"1", "+", "r"}], ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", RowBox[{"1", "+", "r"}], ",", "s", ",", "r", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", "r", ",", "s", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", "r"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "+", "r"}], ",", RowBox[{"9", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"4", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"9", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", "r"}], ",", RowBox[{"2", "+", "r"}], ",", RowBox[{"5", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "+", "r"}], ",", "1", ",", "1", ",", "r", ",", "s", ",", RowBox[{"1", "+", "r"}], ",", "1", ",", "1", ",", "1", ",", RowBox[{"1", "+", "r"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", RowBox[{"1", "+", "r"}], ",", "s", ",", "r", ",", RowBox[{"1", "+", "r"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", RowBox[{"2", "+", "r"}], ",", "s", ",", RowBox[{"1", "+", "r"}], ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", "1", ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", "1", ",", "1", ",", "r", ",", "s", ",", "r", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "+", "r"}], ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"7", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"4", "+", RowBox[{"2", " ", "r"}]}], ",", "1", ",", RowBox[{"2", "+", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", "r", ",", "s", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"2", "+", "r"}], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "1", ",", RowBox[{"1", "+", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "r", ",", "s", ",", RowBox[{"1", "+", "r"}], ",", "r", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "r", ",", "1", ",", "r", ",", "s", ",", "1", ",", "s", ",", RowBox[{"1", "+", "r"}], ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"3", "+", "r"}], ",", "1", ",", RowBox[{"4", "+", "r"}], ",", RowBox[{"4", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"9", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"2", " ", "r"}]}], ",", "1", ",", RowBox[{"5", "+", RowBox[{"2", " ", "r"}]}], ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "r", ",", "1", ",", RowBox[{"2", "+", "r"}], ",", "s", ",", RowBox[{"2", "+", "r"}], ",", "1", ",", "1", ",", "r", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "+", "r"}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", "1", ",", RowBox[{"2", "+", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", "r", ",", "s", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", "r"}], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", RowBox[{"3", "+", "r"}], ",", "s", ",", "r", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"4", "+", RowBox[{"6", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", RowBox[{"3", "+", "r"}], ",", "s", ",", "1", ",", "r", ",", "1", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", "1", ",", RowBox[{"2", "+", RowBox[{"3", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"8", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", "1", ",", RowBox[{"3", "+", RowBox[{"4", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "2", ",", "r", ",", "1", ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", "s", ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", "r", ",", "1", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", "1", ",", RowBox[{"4", "+", RowBox[{"3", " ", "r"}]}], ",", RowBox[{"4", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"9", "+", RowBox[{"8", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"4", " ", "r"}]}], ",", "1", ",", RowBox[{"3", "+", RowBox[{"3", " ", "r"}]}], ",", RowBox[{"2", "+", "r"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", "r", ",", "1", ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "s", ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", RowBox[{"1", "+", "r"}], ",", "1", ",", "1", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"4", "+", RowBox[{"3", " ", "r"}]}], ",", "1", ",", RowBox[{"5", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"9", "+", RowBox[{"8", " ", "r"}]}], ",", RowBox[{"4", "+", RowBox[{"4", " ", "r"}]}], ",", RowBox[{"3", "+", RowBox[{"3", " ", "r"}]}], ",", "1", ",", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "r"}], ",", "1", ",", "1", ",", "r", ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "s", ",", RowBox[{"2", "+", RowBox[{"2", " ", "r"}]}], ",", "1", ",", RowBox[{"1", "+", "r"}], ",", "1", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "+", "r"}], ",", RowBox[{"2", "+", RowBox[{"5", " ", "r"}]}], ",", "1", ",", RowBox[{"3", "+", RowBox[{"6", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"12", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"6", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"4", " ", "r"}]}], ",", "1", ",", RowBox[{"2", "+", RowBox[{"3", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "r"}], ",", "1", ",", "1", ",", "r", ",", RowBox[{"1", "+", RowBox[{"3", " ", "r"}]}], ",", "s", ",", RowBox[{"1", "+", RowBox[{"3", " ", "r"}]}], ",", "1", ",", RowBox[{"2", " ", "r"}], ",", "1", ",", "r"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"3", "+", RowBox[{"8", " ", "r"}]}], ",", "1", ",", RowBox[{"3", "+", RowBox[{"8", " ", "r"}]}], ",", RowBox[{"5", "+", RowBox[{"16", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"8", " ", "r"}]}], ",", RowBox[{"2", "+", RowBox[{"5", " ", "r"}]}], ",", "1", ",", RowBox[{"1", "+", RowBox[{"2", " ", "r"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", " ", "r"}], ",", "1", ",", "r", ",", RowBox[{"1", "+", RowBox[{"4", " ", "r"}]}], ",", "s", ",", RowBox[{"1", "+", RowBox[{"4", " ", "r"}]}], ",", "1", ",", RowBox[{"3", " ", "r"}], ",", "2", ",", "r"}], "}"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"sporadic", "=", InterpretationBox[ DynamicModuleBox[{Typeset`open = True}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"114", ",", "2"}], "}"}], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["56560", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {{{1}, {1}}, {{1}, {2}}, {{1, 4}, {3, 2}}, {{1, 4, 3}, {2, 2, 1}}, {{ 1, 5, 4}, {3, 1, 2}}, {{1, 5, 4}, {3, 2, 1}}, {{1, 7, 6}, {5, 1, 1}}, {{1, 5}, {4, 3}}, {{1, 6, 5}, {4, 1, 2}}, {{1, 6, 5}, {4, 2, 1}}, {{1, 9, 4, 3, 2}, {2, 1, 1, 2, 1}}, {{1, 7, 6}, {5, 2, 1}}, {{1, 6, 5}, {4, 2, 2}}, {{1, 6, 5}, {4, 3, 1}}, {{1, 7, 6}, {5, 3, 1}}, {{1, 12, 5, 4, 3}, {3, 1, 1, 2, 2}}, {{1, 7, 6}, {5, 4, 1}}, {{ 1, 6, 7, 5, 6, 5}, {4, 1, 2, 1, 1, 1}}, {{1, 17, 5, 1, 4, 3}, {3, 1, 1, 1, 3, 1}}, {{1, 7, 6}, {5, 5, 1}}, {{1, 18, 5, 4, 3}, {3, 1, 1, 4, 2}}, {{1, 8, 7}, {6, 5, 1}}, {{1, 8, 9, 7, 8, 7}, {6, 1, 2, 1, 1, 1}}, {{1, 24, 5, 4, 3}, {3, 1, 1, 5, 2}}, {{1, 9, 10, 8, 9, 8}, {7, 1, 2, 1, 1, 1}}, {{1, 8, 9, 8, 9, 7, 8, 7}, {6, 1, 1, 1, 1, 1, 1, 1}}, {{1, 8, 9, 7, 8, 7}, {6, 1, 3, 1, 1, 1}}, {{1, 28, 5, 4, 3}, {3, 1, 1, 6, 2}}, {{1, 8, 9, 7, 8, 7}, {6, 1, 4, 1, 1, 1}}, {{1, 21, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 3, 2, 1}}, {{1, 31, 6, 1, 5, 4}, {4, 1, 1, 1, 5, 2}}, {{1, 4, 2, 9, 3, 7, 3, 1}, {2, 1, 1, 6, 1, 1, 1, 1}}, {{1, 5, 7, 2, 10, 3, 4, 1, 3}, {2, 1, 1, 1, 5, 1, 1, 1, 1}}, {{1, 25, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 4, 2, 1}}, {{1, 29, 3, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 1, 3, 2, 1}}, {{1, 6, 7, 3, 11, 4, 1, 3, 1}, {2, 1, 1, 1, 5, 2, 1, 1, 1}}, {{1, 5, 7, 2, 10, 3, 4, 1, 3}, {2, 1, 1, 1, 6, 1, 1, 1, 1}}, {{1, 6, 7, 1, 10, 3, 4, 2, 3}, {2, 1, 1, 1, 6, 1, 1, 1, 1}}, {{1, 26, 8, 9, 7, 6, 5}, {5, 1, 1, 1, 2, 3, 3}}, {{1, 35, 3, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 1, 4, 2, 1}}, {{1, 33, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 5, 2, 1}}, {{1, 6, 7, 1, 10, 3, 4, 2, 3}, {2, 1, 1, 1, 7, 1, 1, 1, 1}}, {{1, 3, 5, 11, 16, 6, 11, 16, 6, 1}, {2, 1, 4, 1, 1, 1, 1, 1, 2, 2}}, {{1, 26, 15, 10, 8, 4, 7, 6, 7, 2}, {6, 1, 1, 1, 1, 1, 1, 1, 3, 1}}, {{1, 34, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 3, 3, 2}}, {{1, 41, 3, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 1, 5, 2, 1}}, {{1, 39, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 6, 2, 1}}, {{1, 3, 5, 11, 16, 11, 6, 11, 16, 6, 1}, {2, 1, 4, 1, 1, 1, 1, 1, 1, 2, 2}}, {{1, 47, 8, 4, 7, 3, 6}, {6, 1, 1, 2, 5, 2, 1}}, {{1, 38, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 4, 3, 2}}, {{1, 42, 9, 1, 8, 7, 6, 5}, {6, 1, 1, 1, 1, 5, 2, 1}}, {{1, 45, 8, 7, 6, 5, 4}, {5, 1, 1, 1, 7, 2, 1}}, {{1, 53, 8, 4, 7, 3, 6}, {6, 1, 1, 1, 6, 3, 1}}, {{1, 40, 10, 9, 8, 7, 6, 5}, {7, 1, 1, 2, 2, 3, 2, 1}}, {{1, 54, 8, 4, 7, 3, 6}, {6, 1, 1, 2, 6, 2, 1}}, {{1, 45, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 5, 3, 2}}, {{1, 48, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 5, 3, 2}}, {{1, 50, 11, 9, 7, 5, 3}, {6, 1, 1, 1, 7, 3, 1}}, {{ 1, 61, 8, 4, 7, 3, 6}, {6, 1, 1, 2, 7, 2, 1}}, {{1, 52, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 6, 3, 2}}, {{1, 3, 5, 1, 56, 1, 8, 9, 7, 6, 2, 4}, { 3, 1, 1, 1, 1, 1, 1, 1, 7, 1, 1, 1}}, {{1, 55, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 6, 3, 2}}, {{1, 68, 8, 4, 7, 3, 6}, {6, 1, 1, 2, 8, 2, 1}}, {{ 1, 59, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 7, 3, 2}}, {{1, 63, 9, 1, 8, 7, 6, 5}, {6, 1, 1, 1, 1, 8, 2, 1}}, {{1, 62, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 7, 3, 2}}, {{1, 2, 7, 9, 4, 5, 10, 15, 6, 2, 3, 1, 2}, {1, 1, 1, 2, 1, 1, 1, 6, 3, 1, 1, 1, 1}}, {{1, 66, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 8, 3, 2}}, {{1, 5, 9, 19, 10, 1}, {4, 1, 4, 4, 5, 4}}, {{1, 69, 9, 8, 7, 6, 5}, {6, 1, 1, 1, 8, 3, 2}}, {{1, 2, 3, 1, 6, 15, 11, 4, 5, 9, 5, 3, 1}, {1, 1, 1, 1, 3, 7, 1, 1, 1, 2, 1, 1, 1}}, {{1, 2, 7, 9, 4, 5, 10, 15, 6, 2, 3, 1, 2}, {1, 1, 1, 2, 1, 1, 1, 7, 3, 1, 1, 1, 1}}, {{1, 4, 7, 15, 8, 1, 4}, {3, 1, 2, 9, 3, 4, 1}}, {{1, 4, 8, 17, 9, 1}, {4, 1, 5, 6, 4, 3}}, {{1, 4, 8, 17, 9, 1}, {4, 1, 4, 6, 5, 3}}, {{1, 2, 9, 16, 7, 1, 2}, {1, 4, 3, 8, 3, 1, 3}}, {{1, 5, 9, 19, 10, 1}, {4, 1, 5, 5, 4, 4}}, {{1, 5, 9, 19, 10, 1}, {4, 1, 4, 5, 5, 4}}, {{1, 5, 9, 19, 9, 19, 10, 1}, {4, 1, 4, 3, 1, 2, 5, 4}}, {{1, 5, 9, 19, 10, 19, 10, 1}, {4, 1, 4, 3, 1, 2, 5, 4}}, {{1, 4, 7, 15, 7, 15, 8, 1}, {3, 1, 3, 5, 1, 4, 4, 3}}, {{1, 4, 8, 17, 9, 1}, {4, 1, 5, 7, 4, 3}}, {{1, 10, 19, 39, 20, 39, 20, 1}, {9, 1, 9, 14, 1, 14, 10, 9}}, {{1, 5, 20, 1, 25, 49, 24, 17, 1, 13, 1}, {7, 1, 1, 4, 12, 23, 12, 1, 7, 1, 4}}, {{1, 14, 1, 16, 26, 53, 27, 1, 27, 1, 3}, {2, 1, 10, 1, 13, 25, 13, 2, 1, 10, 1}}, {{1, 7, 1, 20, 26, 53, 27, 1, 27, 1}, {6, 2, 6, 1, 13, 25, 13, 6, 1, 6}}, {{1, 16, 1, 24, 30, 61, 31, 1, 22, 9, 1}, {8, 1, 6, 1, 15, 29, 15, 8, 1, 1, 6}}, {{1, 17, 1, 26, 32, 65, 33, 1, 23, 10, 1}, {9, 1, 6, 1, 16, 31, 16, 9, 1, 1, 6}}, {{ 1, 19, 37, 75, 38, 75, 38, 1, 19}, {18, 1, 17, 19, 1, 18, 18, 19, 1}}, {{1, 23, 45, 91, 46, 1}, {22, 1, 23, 28, 22, 22}}, {{1, 23, 45, 91, 46, 1}, {22, 1, 22, 28, 23, 22}}, {{1, 43, 1, 43, 85, 42, 28, 1, 11, 1}, {14, 1, 6, 21, 38, 21, 1, 14, 2, 6}}, {{1, 43, 1, 43, 85, 42, 29, 1, 11, 1}, {13, 1, 7, 21, 38, 21, 1, 13, 2, 7}}, {{1, 43, 1, 43, 85, 42, 30, 1, 11, 1}, {12, 1, 8, 21, 38, 21, 1, 12, 2, 8}}, {{1, 22, 43, 87, 44, 87, 44, 1, 22}, {21, 1, 20, 22, 1, 21, 21, 22, 1}}, {{1, 43, 1, 43, 85, 42, 29, 1, 11, 1}, {13, 1, 7, 21, 44, 21, 1, 13, 2, 7}}, {{1, 43, 1, 43, 85, 42, 30, 1, 11, 1}, {12, 1, 8, 21, 44, 21, 1, 12, 2, 8}}, {{1, 23, 45, 91, 46, 91, 46, 1, 23}, {22, 1, 21, 23, 1, 22, 22, 23, 1}}, {{1, 47, 1, 47, 93, 46, 30, 1, 12, 1}, { 16, 1, 6, 23, 42, 23, 1, 16, 2, 6}}, {{1, 47, 1, 47, 93, 46, 31, 1, 12, 1}, {15, 1, 7, 23, 42, 23, 1, 15, 2, 7}}, {{1, 47, 1, 47, 93, 46, 33, 1, 12, 1}, {13, 1, 9, 23, 42, 23, 1, 13, 2, 9}}, {{1, 10, 35, 1, 45, 89, 44, 32, 1, 23, 1}, {12, 1, 1, 9, 22, 46, 22, 1, 12, 1, 9}}, {{1, 26, 52, 105, 53, 1}, {26, 1, 25, 38, 26, 26}}, {{1, 47, 1, 47, 93, 46, 30, 1, 12, 1}, {16, 1, 6, 23, 48, 23, 1, 16, 2, 6}}, {{1, 47, 1, 47, 93, 46, 31, 1, 12, 1}, {15, 1, 7, 23, 48, 23, 1, 15, 2, 7}}, {{1, 47, 1, 47, 93, 46, 32, 1, 12, 1}, {14, 1, 8, 23, 48, 23, 1, 14, 2, 8}}, {{1, 47, 1, 47, 93, 46, 33, 1, 12, 1}, {13, 1, 9, 23, 48, 23, 1, 13, 2, 9}}, {{1, 9, 40, 1, 49, 97, 48, 33, 1, 25, 1}, {15, 1, 1, 8, 24, 50, 24, 1, 15, 1, 8}}, {{1, 10, 39, 1, 49, 97, 48, 34, 1, 25, 1}, {14, 1, 1, 9, 24, 50, 24, 1, 14, 1, 9}}, {{1, 11, 38, 1, 49, 97, 48, 35, 1, 25, 1}, {13, 1, 1, 10, 24, 50, 24, 1, 13, 1, 10}}, {{1, 39, 1, 76, 78, 157, 79, 40, 39, 1}, {38, 1, 2, 1, 37, 61, 38, 1, 1, 37}}, {{1, 39, 78, 157, 79, 1}, {39, 1, 40, 60, 39, 38}}, {{1, 75, 1, 75, 149, 74, 42, 1, 19, 1}, {32, 1, 4, 37, 73, 37, 1, 32, 2, 4}}, {{1, 57, 113, 227, 114, 1, 56}, {56, 1, 56, 95, 57, 56, 1}}}, SelectWithContents->True, Selectable->False]}], ";", "\[IndentingNewLine]", RowBox[{"sporadicvalues", "=", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "11", ",", "13", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "23", ",", "25", ",", "26", ",", "27", ",", "32", ",", "34", ",", "39", ",", "40", ",", "41", ",", "46", ",", "48", ",", "53", ",", "54", ",", "58", ",", "61", ",", "62", ",", "63", ",", "66", ",", "72", ",", "73", ",", "75", ",", "76", ",", "77", ",", "83", ",", "84", ",", "86", ",", "87", ",", "88", ",", "95", ",", "96", ",", "97", ",", "98", ",", "99", ",", "105", ",", "106", ",", "108", ",", "109", ",", "110", ",", "116", ",", "117", ",", "118", ",", "121", ",", "128", ",", "129", ",", "130", ",", "131", ",", "134", ",", "143", ",", "144", ",", "145", ",", "147", ",", "148", ",", "158", ",", "159", ",", "160", ",", "162", ",", "163", ",", "173", ",", "175", ",", "176", ",", "177", ",", "178", ",", "188", ",", "189", ",", "190", ",", "192", ",", "193", ",", "194", ",", "203", ",", "204", ",", "205", ",", "206", ",", "1511", ",", "1792", ",", "2098", ",", "2099", ",", "2783", ",", "3161", ",", "4201", ",", "4662", ",", "4663", ",", "5148", ",", "5149", ",", "5150", ",", "5656", ",", "5659", ",", "5660", ",", "6189", ",", "6190", ",", "6191", ",", "6193", ",", "6194", ",", "6746", ",", "6748", ",", "6749", ",", "6750", ",", "6751", ",", "7331", ",", "7332", ",", "7333", ",", "15736", ",", "15737", ",", "16617", ",", "34616"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wichmannvalues", "[", RowBox[{"[", "2", "]"}], "]"}], "\[GreaterEqual]", "length"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", RowBox[{ RowBox[{"wichmannvalues", "[", RowBox[{"[", "2", "]"}], "]"}], "-", "length"}]}], ";", "\[IndentingNewLine]", RowBox[{"columnheight", "=", " ", RowBox[{"wichdiffs", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", RowBox[{ RowBox[{"wichmannvalues", "[", RowBox[{"[", "3", "]"}], "]"}], "-", "length"}]}], ";", "\[IndentingNewLine]", RowBox[{"column", "=", RowBox[{"column", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"columnheight", "=", " ", RowBox[{"wichdiffs", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"excessfraction", "=", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"height", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"columnheight", "+", "1"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"columnMod", "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"column", "-", "1"}], ",", "6", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ruleupper", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"column", "-", "2"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "8"}], ")"}], "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"column", "-", "3"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "6"}], ")"}], "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"column", "-", "4"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "4"}], ")"}], "/", "3"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"column", "-", "5"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "2"}], ")"}], "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"column", "-", "6"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", "column", ")"}], "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"column", "-", "7"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"column", "+", "2"}], ")"}], "/", "3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"botprev", "=", RowBox[{"W1", "/.", RowBox[{"{", RowBox[{ RowBox[{"r", "->", RowBox[{"ruleupper", "[", RowBox[{"[", RowBox[{"columnMod", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"s", "->", RowBox[{"ruleupper", "[", RowBox[{"[", RowBox[{"columnMod", ",", "2"}], "]"}], "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"botthis", "=", RowBox[{"W1", "/.", RowBox[{"{", RowBox[{ RowBox[{"r", "->", RowBox[{"ruleupper", "[", RowBox[{"[", RowBox[{"columnMod", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"s", "->", RowBox[{ RowBox[{"ruleupper", "[", RowBox[{"[", RowBox[{"columnMod", ",", "2"}], "]"}], "]"}], "+", "1"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"botthisM1", "=", RowBox[{"W2", "/.", RowBox[{"{", RowBox[{ RowBox[{"r", "->", RowBox[{"ruleupper", "[", RowBox[{"[", RowBox[{"columnMod", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"s", "->", RowBox[{ RowBox[{"ruleupper", "[", RowBox[{"[", RowBox[{"columnMod", ",", "2"}], "]"}], "]"}], "+", "1"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rulelower", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"W6", ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "14"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"columnheight", "-", "3"}], ")"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"W6", ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "15"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"columnheight", "-", "1"}], ")"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"W35", ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "4"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "4"}], ")"}], "/", "6"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"W6", ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "11"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"columnheight", "-", "5"}], ")"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"W6", ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "12"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"columnheight", "-", "3"}], ")"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"W6", ",", RowBox[{ RowBox[{"(", RowBox[{"column", "-", "13"}], ")"}], "/", "6"}], ",", RowBox[{ RowBox[{"(", RowBox[{"columnheight", "-", "1"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], "[", RowBox[{"[", "columnMod", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"midthis", "=", RowBox[{ RowBox[{"rulelower", "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"r", "->", RowBox[{"rulelower", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"s", "->", RowBox[{"rulelower", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"columnplaces", "=", RowBox[{"{", RowBox[{"botprev", ",", "midthis", ",", "botthisM1", ",", "botthis"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"columnMod", "\[Equal]", "6"}], "&&", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Floor", "[", RowBox[{"columnheight", "/", "2"}], "]"}], "-", "height"}], ")"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"case11", "=", RowBox[{"W11", "/.", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", " ", RowBox[{"columnheight", "-", "1"}]}], ",", " ", RowBox[{"s", "\[Rule]", " ", RowBox[{"2", " ", "columnheight"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"case11p", " ", "=", " ", RowBox[{"Transpose", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"Transpose", "[", "case11", "]"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", " ", RowBox[{ RowBox[{"Last", "[", RowBox[{"Transpose", "[", "case11", "]"}], "]"}], "+", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"columnplaces", "=", RowBox[{"Join", "[", RowBox[{"columnplaces", ",", RowBox[{"{", RowBox[{"case11", ",", " ", "case11p"}], "}"}]}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"columnvals", "=", " ", RowBox[{ RowBox[{ RowBox[{"Dot", "@@", "#"}], "&"}], "/@", "columnplaces"}]}], ";", "\[IndentingNewLine]", RowBox[{"covered", "=", RowBox[{ RowBox[{"columnvals", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"midthis", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"sporadicvalues", ",", " ", "length"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"sporadic", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"sporadicvalues", ",", "length"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"MemberQ", "[", RowBox[{"columnvals", ",", " ", "length"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"columnplaces", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"columnvals", ",", "length"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"excessfraction", "<", RowBox[{"1", "/", "4"}]}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"botprev", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"length", "-", RowBox[{"columnvals", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"botprev", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"excessfraction", "\[LessEqual]", " ", RowBox[{"1", "/", "2"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"extender", "=", RowBox[{ RowBox[{"botprev", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"botprev", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"extender", ",", RowBox[{"length", "-", RowBox[{"columnvals", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "extender"}]}], "}"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"botprev", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"columnvals", "[", RowBox[{"[", "2", "]"}], "]"}], "<", " ", "length", "\[LessEqual]", " ", "covered"}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"midthis", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"length", "-", RowBox[{"columnvals", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"midthis", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"excessfraction", "<", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"covered", "=", RowBox[{ RowBox[{"columnvals", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"midthis", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"length", "<", "100000"}], ",", "\[IndentingNewLine]", RowBox[{"max", "=", RowBox[{"columnvals", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"max", "=", RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{"columnvals", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"length", "-", RowBox[{"10", RowBox[{"Floor", "[", RowBox[{"length", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}], "]"}]}]}]}], "}"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"solutions", "=", RowBox[{"Sort", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", "column"}], ",", RowBox[{"max", "<", RowBox[{"3", "+", RowBox[{"8", " ", "r"}], "+", RowBox[{"4", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"3", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[LessEqual]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "solutions", "]"}], "\[Equal]", "0"}], ",", RowBox[{"case", "=", "4"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sols", "=", RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W1", "/.", "#"}], " ", "&"}], "/@", "solutions"}], ",", RowBox[{ RowBox[{ RowBox[{"W2", "/.", "#"}], " ", "&"}], "/@", "solutions"}]}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dot", "@@", "#"}], ",", " ", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "}"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"solvals", "=", " ", RowBox[{ RowBox[{ RowBox[{"Dot", "@@", "#"}], "&"}], "/@", "sols"}]}], ";", "\[IndentingNewLine]", RowBox[{"lastsol", "=", RowBox[{"Last", "[", "sols", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"solvals", ",", " ", "length"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"sols", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"solvals", ",", "length"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"length", "-", RowBox[{"Last", "[", "solvals", "]"}]}], "\[LessEqual]", " ", RowBox[{ RowBox[{"lastsol", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"lastsol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"length", "-", RowBox[{"Last", "[", "solvals", "]"}]}]}], "]"}], ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"lastsol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", "4"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"case", "==", "4"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"moresols", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"3", "+", RowBox[{"8", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"3", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"2", "+", RowBox[{"8", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"3", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", "column"}], ",", RowBox[{ RowBox[{"2", "+", RowBox[{"8", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"3", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"5", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", "column"}], ",", RowBox[{ RowBox[{"6", "+", RowBox[{"10", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"5", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"5", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", "column"}], ",", RowBox[{ RowBox[{"5", "+", RowBox[{"10", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"5", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"9", "+", RowBox[{"14", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"5", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"11", "+", RowBox[{"13", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"7", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"4", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"4", "+", RowBox[{"9", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"3", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"4", "+", RowBox[{"4", " ", "r"}], "+", RowBox[{"2", " ", "s"}]}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"5", "+", RowBox[{"10", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"6", " ", "s"}], "+", RowBox[{"8", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"11", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"34", "+", RowBox[{"23", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"9", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"9", "+", RowBox[{"11", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"5", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"5", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"4", "+", RowBox[{"12", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"3", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "+", RowBox[{"4", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"9", "+", RowBox[{"20", " ", "r"}], "+", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"3", " ", "s"}], "+", RowBox[{"4", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "+", RowBox[{"8", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"12", "+", RowBox[{"31", " ", "r"}], "+", RowBox[{"16", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"5", " ", "s"}], "+", RowBox[{"8", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"11", "+", RowBox[{"8", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"32", "+", RowBox[{"47", " ", "r"}], "+", RowBox[{"16", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"9", " ", "s"}], "+", RowBox[{"8", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"11", "+", RowBox[{"8", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"31", "+", RowBox[{"47", " ", "r"}], "+", RowBox[{"16", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"9", " ", "s"}], "+", RowBox[{"8", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "+", RowBox[{"12", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"12", "+", RowBox[{"46", " ", "r"}], "+", RowBox[{"36", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"5", " ", "s"}], "+", RowBox[{"12", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "+", RowBox[{"16", " ", "r"}], "+", "s"}], "\[Equal]", RowBox[{"column", "+", "1"}]}], ",", RowBox[{ RowBox[{"12", "+", RowBox[{"61", " ", "r"}], "+", RowBox[{"64", " ", RowBox[{"r", "^", "2"}]}], "+", RowBox[{"5", " ", "s"}], "+", RowBox[{"16", " ", "r", " ", "s"}]}], "\[Equal]", "length"}], ",", RowBox[{"r", ">", "0"}], ",", RowBox[{"s", ">", "0"}]}], "}"}], ",", "Integers"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"actual", "=", RowBox[{"First", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "18", "]"}], ",", RowBox[{"Length", "/@", "moresols"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#", "]"}], ">", "0"}], "&"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "actual", "]"}], "\[Equal]", "0"}], ",", RowBox[{"case", "=", "4"}], ",", "\[IndentingNewLine]", RowBox[{"case", "=", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ "W1", ",", "W2", ",", "W2", ",", "W3", ",", "W7", ",", "W10", ",", "W23", ",", "W24", ",", "W35", ",", "W100", ",", "W101", ",", "W103", ",", "W120", ",", "W224", ",", "W225", ",", "W226", ",", "W270", ",", "W310"}], "}"}], "[", RowBox[{"[", RowBox[{"actual", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ")"}], "/.", RowBox[{ RowBox[{"moresols", "[", RowBox[{"[", "actual", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"ruler", "=", RowBox[{"Transpose", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"Transpose", "[", "case", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Times", "@@", "#"}], ">", "0"}], "&"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Switch", "[", RowBox[{ "convert", ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FoldList", "[", RowBox[{"Plus", ",", "0", ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", "ruler", "]"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "_", ",", "\[IndentingNewLine]", "ruler"}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{ 3.7792127213861003`*^9, {3.7792129544866858`*^9, 3.7792129558100486`*^9}, { 3.779213589230592*^9, 3.779213619317666*^9}, {3.7792136493967447`*^9, 3.7792136653742266`*^9}, 3.7792136978931656`*^9, 3.7792161629888344`*^9, 3.7792162023464065`*^9, {3.7804219368360586`*^9, 3.7804221630253897`*^9}, 3.7804222090442524`*^9, {3.780422292814386*^9, 3.7804222937709384`*^9}, { 3.7804294102771983`*^9, 3.780429415665366*^9}, {3.780430222229294*^9, 3.7804302326661897`*^9}}, CellTags->"TabNext", CellLabel->"In[1]:=", CellID->285836538] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReasonableRuler", "[", StyleBox["length", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->141553932], Cell[TextData[{ "finds a set of integers with differences giving all values up to ", Cell[BoxData[ StyleBox["length", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " using a compact form." }], "UsageDescription", CellID->434804075] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReasonableRuler", "[", RowBox[{ StyleBox["length", "TI"], ",", "\"\\""}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->687214783], Cell[TextData[{ "finds a reasonable ruler for given ", Cell[BoxData[ StyleBox["length", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", showing the full set of values." }], "UsageDescription", CellID->439692398] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "The ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " calculation requires significant memory for large ", Cell[BoxData[ StyleBox["length", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " values." }], "Notes", CellTags->"TabNext", CellID->283008469] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Marks for a sparse ruler of length 57:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792137221994047`*^9, 3.779213767390977*^9}}, CellID->236286877], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReasonableRuler", "[", RowBox[{"57", ",", " ", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.779213684309194*^9, 3.7792136856108365`*^9}, { 3.7804221888971148`*^9, 3.7804221890820518`*^9}, {3.780430294863531*^9, 3.7804303011916556`*^9}}, CellLabel->"In[2]:=", CellID->257596861], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "34", ",", "41", ",", "48", ",", "52", ",", "56", ",", "57"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7792136862556543`*^9, 3.7792137051775346`*^9}, 3.779213772679993*^9, 3.7792162169262033`*^9, {3.780422191252067*^9, 3.780422218683045*^9}, 3.7804303024729066`*^9}, CellLabel->"Out[2]=", CellID->710705379] }, Open ]], Cell["Check that all differences are covered:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779213914411284*^9, 3.77921393894713*^9}, { 3.780423179708539*^9, 3.780423182217964*^9}}, CellID->532085291], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Complement", "[", RowBox[{ RowBox[{"Range", "[", "57", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}], "/@", RowBox[{"Subsets", "[", RowBox[{ RowBox[{"ReasonableRuler", "[", RowBox[{"57", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792137802403564`*^9, 3.7792138092610126`*^9}, { 3.7792138606173244`*^9, 3.779213884141183*^9}, {3.780422225211293*^9, 3.7804222253741255`*^9}, 3.780430311644782*^9}, CellLabel->"In[3]:=", CellID->55126643], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.779213800218917*^9, {3.779213865841548*^9, 3.779213884692829*^9}, 3.7792162199438295`*^9, 3.7804222265156717`*^9, 3.7804303180354075`*^9}, CellLabel->"Out[3]=", CellID->967918839] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["\<\ Show spaces between marks in a the full form of a length-396 ruler:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.779214067482703*^9, 3.77921409721814*^9}, { 3.780430534012952*^9, 3.780430541512952*^9}, {3.858856060403604*^9, 3.858856060674294*^9}}, CellID->557834317], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Differences", "[", RowBox[{"ReasonableRuler", "[", RowBox[{"396", ",", " ", "\"\\""}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792139642603393`*^9, 3.7792140377626348`*^9}, { 3.7804222357477922`*^9, 3.780422235910551*^9}, {3.7804303455588717`*^9, 3.780430354475936*^9}}, CellLabel->"In[9]:=", CellID->565210541], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "6", ",", "11", ",", "11", ",", "11", ",", "11", ",", "11", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",\ TaggingRules->{}, CellChangeTimes->{{3.7792139713525906`*^9, 3.779214038154776*^9}, 3.77921622185279*^9, 3.7804222368277884`*^9, {3.7804303479963737`*^9, 3.7804303550397644`*^9}, 3.780430496887951*^9}, CellLabel->"Out[9]=", CellID->735872946] }, Open ]], Cell["Split the Difference:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7804304749968724`*^9, 3.7804304941643887`*^9}}, CellID->297009592], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Split", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780430499966076*^9, 3.780430503012952*^9}}, CellLabel->"In[10]:=", CellID->315018864], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "11", ",", "11", ",", "11", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{ "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.780430503747327*^9}, CellLabel->"Out[10]=", CellID->107305835] }, Open ]], Cell["\<\ Make a series of lists from the compact form of a length-396 ruler:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.779214067482703*^9, 3.77921409721814*^9}, { 3.780430534012952*^9, 3.7804306084984717`*^9}, {3.858856066481881*^9, 3.858856067155407*^9}}, CellID->382221465], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", RowBox[{"ReasonableRuler", "[", "396", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780430379271882*^9, 3.780430447056969*^9}}, CellLabel->"In[8]:=", CellID->238146131], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "11", ",", "11", ",", "11", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{ "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12", ",", "12", ",", "12", ",", "12", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.780430367318756*^9, {3.7804304255638275`*^9, 3.780430447558296*^9}}, CellLabel->"Out[8]=", CellID->312951495] }, Open ]], Cell["Show the compact form:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780430626805254*^9, 3.7804306608607216`*^9}}, CellID->159209831], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReasonableRuler", "[", "396", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[11]:=", CellID->898514602], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6", ",", "11", ",", "23", ",", "12", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "5", ",", "11", ",", "6", ",", "5"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7804306188677535`*^9}, CellLabel->"Out[11]=", CellID->480288613] }, Open ]], Cell["Verify the above shortened form has length 396:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792141317939177`*^9, 3.7792141701143866`*^9}, { 3.779214495428458*^9, 3.779214536336957*^9}}, CellID->396220827], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dot", "@@", "%"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792130092603397`*^9, 3.779213017871603*^9}, { 3.7792140221327715`*^9, 3.77921404265796*^9}, {3.779214478571931*^9, 3.7792144854497204`*^9}}, CellLabel->"In[12]:=", CellID->50342117], Cell[BoxData["396"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.779213018635849*^9, 3.7792136771926336`*^9, {3.779214025257991*^9, 3.779214042971553*^9}, 3.779214451602332*^9, 3.779214487648487*^9, 3.7804225390286293`*^9, 3.780430674715593*^9}, CellLabel->"Out[12]=", CellID->914002354] }, Open ]], Cell["Show the full form for a length-396 ruler:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7804229634575744`*^9, 3.7804229758167996`*^9}, { 3.7804306910713773`*^9, 3.7804306929620028`*^9}, {3.858856093467103*^9, 3.858856094170508*^9}}, CellID->560598388], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReasonableRuler", "[", RowBox[{"396", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7804225656368027`*^9, 3.780422574466524*^9}, { 3.7804229407415466`*^9, 3.7804229495428157`*^9}, {3.7804306973838778`*^9, 3.780430699008878*^9}}, CellLabel->"In[13]:=", CellID->217016944], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "11", ",", "22", ",", "33", ",", "44", ",", "55", ",", "66", ",", "89", ",", "112", ",", "135", ",", "158", ",", "181", ",", "204", ",", "227", ",", "250", ",", "273", ",", "296", ",", "319", ",", "331", ",", "343", ",", "355", ",", "367", ",", "379", ",", "391", ",", "392", ",", "393", ",", "394", ",", "395", ",", "396"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7804225674744024`*^9, 3.780422575184621*^9}, 3.7804229502296567`*^9, 3.7804306997276273`*^9}, CellLabel->"Out[13]=", CellID->571099736] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Count the number of marks on a length-58 ruler:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780423312715668*^9, 3.780423344983366*^9}, { 3.858856111890332*^9, 3.858856112162127*^9}}, CellID->101055569], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", RowBox[{"ReasonableRuler", "[", RowBox[{"58", ",", "\"\\""}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"ReasonableRuler", "[", "58", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "+", "1"}]}], "}"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7804232793108654`*^9, 3.780423302662754*^9}, { 3.7804307169620028`*^9, 3.78043077556612*^9}}, CellLabel->"In[16]:=", CellID->753808882], Cell[BoxData[ RowBox[{"{", RowBox[{"13", ",", "13"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7804232805838947`*^9, 3.780423303365307*^9}, { 3.7804307224463778`*^9, 3.7804307314463778`*^9}, 3.780430776331746*^9}, CellLabel->"Out[16]=", CellID->898815110] }, Open ]], Cell[TextData[{ "The ", StyleBox["excess", FontSlant->"Italic"], " of a ruler with length ", Cell[BoxData[ StyleBox["L", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ FormBox[ StyleBox["M", "TI"], TraditionalForm]]], " marks is ", Cell[BoxData[ FormBox[ RowBox[{"M", "-", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", "L"}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7804231539126267`*^9, 3.780423160088518*^9}, { 3.7804232043269596`*^9, 3.780423244108157*^9}, {3.780423363295699*^9, 3.7804234702850304`*^9}, {3.7804235025381465`*^9, 3.7804235329275227`*^9}, { 3.858856124090198*^9, 3.858856136596487*^9}}, CellID->293363210], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"ReasonableRuler", "[", "58", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "+", "1"}], ")"}], "-", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", "58"}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780423556195313*^9, 3.7804235653271723`*^9}, { 3.780430797222542*^9, 3.780430806785042*^9}}, CellLabel->"In[17]:=", CellID->328777115], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{3.780423567133657*^9, 3.7804308106630726`*^9}, CellLabel->"Out[17]=", CellID->551914436] }, Open ]], Cell["A reasonable ruler has an excess of 0 or 1:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779215218189805*^9, 3.779215317853553*^9}, 3.858856300599041*^9}, CellID->120368821], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"length", "=", "999"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ruler", "=", RowBox[{"ReasonableRuler", "[", "length", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"marks", "=", " ", RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", "ruler", "]"}], "]"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"excess", " ", "=", " ", RowBox[{"marks", "-", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", "length"}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"excess", ",", " ", "marks", ",", " ", "length"}], "}"}], ",", RowBox[{"Grid", "[", RowBox[{"ruler", ",", RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"Alignment", "\[Rule]", "Center"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.779214995597019*^9, 3.7792150007519584`*^9}, { 3.7792150406964626`*^9, 3.7792151604109964`*^9}, {3.7792153587835283`*^9, 3.7792154523369093`*^9}, {3.7804235824199734`*^9, 3.780423636063817*^9}, { 3.7804308213036976`*^9, 3.780430821491197*^9}}, CellLabel->"In[18]:=", CellID->231625798], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "56", ",", "999"}], "}"}]}, { TagBox[GridBox[{ {"1", "9", "17", "35", "18", "1", "9", "2"}, {"8", "1", "8", "19", "9", "8", "1", "1"} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7792150018120146`*^9, 3.7792150511664343`*^9, 3.779215158506966*^9, 3.7792154089904327`*^9, {3.779215440627107*^9, 3.7792154528343606`*^9}, { 3.7804236188045454`*^9, 3.780423636866783*^9}, 3.7804308268036966`*^9}, CellLabel->"Out[22]=", CellID->693353258] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ A list of some rulers with a single mark less than those generated by this \ function:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792151959977927`*^9, 3.7792151971583147`*^9}, { 3.7792153261883545`*^9, 3.7792153319979286`*^9}, {3.7792154738864985`*^9, 3.7792155716998167`*^9}}, CellID->640740111], Cell[BoxData[ RowBox[{ RowBox[{"betterRulers", "=", RowBox[{"Uncompress", "[", RowBox[{"Normal", "[", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"String", "StringIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["String", "IconizedItem"]}]}, { RowBox[{ TagBox["\"String length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["29810", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["30728", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], "1:eJzNffmLncmSndSvu6VWq9Xa9+\ W7pdLam3qT1Fqr1NVqvV7eNm8wxhhjG495GDOYsTHGmGEwxhhjjDHGGGP8g//\ R8f0KnaPMjsybmTdP5P3l492nijrx5RJx4kTc6sU/+ss//MWhDw4c+Ku3Dxw48NOf/upf/\ sVbB978dOjNT386+P//x5/eWT7eWz5OLR9Hlg/8Q2TwNv7xV8vH8h/3/793Xv9DhHf4l3hvw/\ LD8H8dxu8IrX4Vgr4TOLj/\ 635VhBy9qfHOkdXbIVTkyNuvH1Lktw3kdxLI7yZWe17ZE0Ce8d5N4L0Dg9TKplCsnQx/\ lq8xG7yPFxKh/AooqXfpex+4bKn7cOSXeLPlWzA/hF95yNi10J5vehC/\ 5GD4ONKyxtXn5b2W81KD8jZ+7J1KlOrzcrTyXd7BMp/\ BcTNQGLbo1js4VitR3sXvPgcnsyj43fumZSjV+xLdMJ9oGH2siIbVe/\ VuuFcilHeA8q7fKr5jfCx7v+qz+G5wDKUnPoSSRnse+\ 4poT3cPG6fk3fC3HUnAvxU6wuh7MPgH1X04XHle2u7DYeApT6VPHObdNlCMux2hWHiHE3jv4lhEd1u\ OTDrOo9n+zkf9kNeNpO+Gjsjz0Xs5FCPGpc7s/A+\ RQZQVCIWX1NdZ7wYOejKLCDm1xoIbayVn7xvLJSiLhW2n90huZVMo1k5mK5IPcienB8rbQKl4l0Mwu\ rR8HEugRMeQierdX6LoOcbbOExRvWlwDCfGwxrNh/\ G833JmqxkPF0R5M45h7ZQ341jlir2Lbb1w4PUdWX0zqJhUsLcaFL48bqJq949W7n51LDmER8W7tEWs\ EEq1Yh9Urlj17h8Kd190xsjpUidZkPXfNT768PRC5G4nnnWk8sQzEhkofTk5SUeKkxtZmO4eMc7nof\ C3HUnAMwszX0VZ2LiJem/ehjfvrPSmW1w4Unl62+LCEeAp70hthmu7I4xx8jtC+\ lFRt0ZvZb1faBWtYkS0UuvZFzkk0G80F5qQj/khr5vBDoWOKG/iITiYQjFOb+\ qOzP8QGUQ5kVB4Sb0CETUeHRWICLmCi6x7Y1PNA88bGwrEqtN7NEBWqekf5k5OD5R3gFLLG+\ d9uQJzAyUKKMy8h4pQDuN3X1s+jq9EOYyHEuXQL6FUZ4z1mJIRkSIqT/\ Jxl5N8XH2SKblVRJhqFPLhw0IULnHFfWk7Y8dazli1rsQ45pNzoo8VJ6It6rwHU2XUqc0GbSeCs4rK\ m8rTrbyp7wPP59wdMj76VCeFyN2yuZwzRJHWQDFW0UKJ8A7n8KzBDAPZ0Hn4i44aJzWcd4zsuZPUeZ\ j/I53HuJN6byINOutNtwhxtPIct0WIo8BT3pZsLu9bUZNoVVTU0VtZ75e6NxyRiqJP042tQQ7F0/\ yNFcSKduR1s8zh0BHlHTkMByvUzNQdmf8hMojyFqE4w7zyrWb2NY/xXl8+\ Tibeisv2Hh4oFwUoh38Jpdd5InhHzh0hV3CfdaOPRYW8ow+\ XoIwPtd3EYwGyqkdyIndyUjlxXrEFzFffjDknolEiQInyu3H/nHgcFZZN4HEkCLU8ri3OksMr4+\ wRmJahtN2Mk1g70f17Fyg++ZbFfkW+rb6J7+EEV0TItqhyFHjKqPJB5Zluq02OA0WpM56AqU/\ OtAT7sr1qiz/UgJTxh9nMQOl7Z4+Ha1d2Z9v4Bs+GsgY/ATwR35j3hXdWGX8+\ AJ7PbTpsfPSpfwuRu93jLJPrdo+ZP8rqtQjFwjucw4tSfzvySRFyN1ZzBqbGLTe4L909hlPJm/\ he8CORPU8quW/UQTkYOOfuTUS+\ st50i4DHYKqMgMeAV6Z1rpEJSZRTmbDvjeXwYBT3fGJF9PaOsaIded389l7oiPL0vgcHa3PZvIo3lo\ 9TCZToNcgS3itCOYLffWv5OL0SZTZ4X41Cfn0kgSK4fxYN8b5/\ PJplGbPtLB4PkFW9qVN4IdGJn88GT3wFe6tBIcc/IkSJMpxx4p2YDJWoTWAyTMQ+\ TIYVo5LJcEHKUNri51GYlkXptlt+GjskiiWHgJLaF4P7pWq0/aUIDaJ6k0eAf7tn5dnn0h8HHm/+\ kfC3HUnAWzUF/xX/oIqkjD7KSHoMeMpI+iFMK85+9T0+\ CRSlJnwKpj5sJPpYcSLa2KScs0YZ3EDpG0FOhmtXFkEU2ZOx2Sd78qQqsyf/\ LokyGjKCKKPhh8DzudvvGR99Kv1C5G6M4WzlWWyLXVnGbqxihGLhHc7hWZWiHNmqjivqcmtlBch6Vk\ buHsVU44Q5cUSSVR+OeBymyqh4HHhlKLNSNLcBPjrw+uobKPzLhLMB66MjGhR+Mf/9BIo0QjDO+\ kSIiAU5Roh25HXz6ZHQEeXNOAIHaxn5vIp3cHpXn9ljOLMVjLwGJeI+ZTdjXX03eknHiipCrti/\ tsjGWkcZ2T6AaRlK24lnja3MOCeDY7G6Okyxxf2lOJSAikQD/h2w/jds3hfeMNE9ZqUkjxbkBMZpc+\ J+Vj09jvtRE/\ Xhfqy7lTeRC6KMkFQhlRGSebQiQlbPL7HSlccuHoFU7DLOPhflJPB4898Pf9uRBDzPftSnORh46O5N\ 1M/JetMtrjMWKuP6ceAp4/oJmIpYxHtwS951OANTn4or+\ lhxItqiZpaxd4ua5BMGSt94djpcu7J4pmAW89JsDLNgRvFhFrw3SmZxBnjK2Mx4pozNJ4DnE2mOGB9\ 9tJ1C5G5s6vzrA1JzFqunwc/DVMlyszVT30jKK5yKpMbZiN7Ker/QKno/\ S2Yp05LWQD5iIFfou9ZOCpCdePip0KXBPJzliQ8Pp2qkjPUngVcR96qz47nghKkYMuNe2bvwT2N/\ BnMDBX/t/I2vM7//+iFAoYZwNIEijXaMsz7RLtpEx2jXjrwu43k/dER5y9+Hg7UV3LyKn+\ D0rr4ZrOkrKrgaFPKOo0KUiAOX3b81TsSR8ERkv/8gPYu134lYN+\ ZYZNw75nAJyk5TW86g6mCcJoMrpxj5vnloENUwFKPgw2q+RHdPA4+\ 35Wj4244k4CP2Rv5yMPgHVfThjVVGnxPAU0YfsjLjvDixb0unGce+z8IvH/\ ZNPUfJvrkgSsbKvKxkrMzLZSgpPSCv5mU5ft9IyiMwLpJykaKzb7y9U1yP/\ ju88rjOWKiM6yeBp4zrp2BacUeqo8pZoCh7a6zpfThb9FHO2bIVQLeoST5RVmdYKBHe4RxeVPOmkJ0\ 4BvXwTeAYzC0+HIM3SMkx+N98UUZpRjZllD4FPJ+Y877x0UebKkTuxqsuvj4gNWex+\ ntyF2Gq5LvZ6qkvR+QVruCIith1AS5lY9fqjGKtdiqjHA1BqaU05bIaZEs/\ GpJFs8hO9cGZ0KXB9QHLJp/64DRMlZnnNPBEUXj+X5dgquwGXFCjHAGKvAphRinblw/\ g2pcwN1D437KcDahtHNWgUKf5IIEiiGLRUvp0G48Air9JeXuPwsEUisEIUrxjf2MOJaAiSY//\ jbEynjOjfI6Ts/pUUrOoqFBrUMimPhCiRMy+7OyvcQLDzcl/U1N69mu/vbkuU7NKDB+mZi1B2Wlqu+\ 9nA2RVvD4BU+PM9o0qfKFUVDHYHd09CzzeyQ/\ C33YkAU92Rx4UsTtjjfXekC68v9KbbhGXUUoZcU8BTxlxyWiN0+\ tUuViK27jK5Tz88qlcqMwpKxcuiJIhk4soGTK5SBlKStnJ10fZmqJvXOcRSMV1gbaI/6Rm/\ lvWThnF0gvGZRTSd5+MwiiszCing81WZZQzMK24ndXx7DxQlJ1aqhc+DDn6WHEi2uJ1tt7qFq/\ JZMqqugjFwjucw4sUjXbkiyJkJ17Fbs4m8CrmUx9exbur5FUXgr1X5QfGVGV+\ OAM8n2h31Pjo07kpRO7GJS+/PiA1Z7H6W82XYark+NmKsS8v5hWuUFH5nx9/\ gEUx3or0dzagivOBBuUDoBxLoPTNhPwDTVzPCmW1Xw5mseGdg7PITnXNudClwXUNC02fuuYsTJV56y\ zwlDH8ClZRGcOvwFSuOlwEVEV0beNil3Jv1Y2LXQKesiZkli3jKv1iOPfKJ4ZHL16huLXlYOp6yhx8\ EqZlKG2RLyyUVt/jFBfbd/JQAiqSdvGmq7MLF+U88L7Geh4Lf9uRBLyl4fFf8Q+\ FTDTyYfV5oZ5VoV7UoJDvHhOiRLVX2alsyy7XYOrTa7Y0Zp/\ aMkKuqC3XjddWqekdr7kEZWe2LcadD5BVWYHqoTIrnIJpRVaonkkmD5JnBW7OuKxAdh7VHMbbO+\ UoViQ+OYpxXZmjzgBPmaNYZxl3xKmetlTkcfU0S6isN90iLtVmZT3NBVHGdbI3ZVwne1PG9WxN2Deu\ 8wik4rqATeE/\ k139F4nWVeoLkZ1ymaWfjctlLPx8chnjvzKXnQ02W5XLzsFUpAIchVvyiQvqXj51RvRRrgvV1sZtmY\ Icqqw3E6FYeIcTePzT8FG1JkeOKtQj673zZRGyE5dkV3YTuCQ5hA+\ XZNRQcslLwd6rMhOjuTIznQOeT5z9wPjo00MtRO7Gn6++\ PiA1Z7H6r2xchamyrslWyX1rAV7hCo1HEUnZG92ESMoeam0k/\ RDmj3FgjB1nUTIbUDs8pkGhDvphAkWaq1mIleVqReV1IXRpcOXFItyn8joPU2V+Ow88ZaxnD0oZ66/\ BtCLWzzfjmwOvb2f2Tka1qnEnnaIdc6cPb7xSubJtvPEK8JSVMxlBGa9at+az2qM+NV/\ 04o41Xzvyuvw5uqwV8bONB1BrNqKBwfxS/HLfPDSIGDnjBXxYHX3o7kXgMdp9GP62Iwl4Rh/\ WRFEmNNZY702k6mW96RH/ZwcZ/yuUqRoUVhQfClGi6raMxbZl/\ 8WBAw7ZfwFTn5kPq0vhoxFEyBUawbq5zJIMvHMZl6DsZrSx74sBsip7UH9WVpFnYFqGklInSjmisWJ\ 9MyE3Z3Am5MDNJmRCVow+mZDZQ5kJzwFPmQlZB5dVdQq9w+\ oGjNM7LsOvrDfdIi67Bkq9gwuijOtZjaBbXCdHVMb1bL3cN67zCKTiuoDHfRhunSOPi5Adez2FyE5Z\ 1FJWx2VRltk+WZSZR5lFzwebrcqiF2BaEZGqY/hloCinhahG+lQ40ceKE9GWo2pr//lvlM4S+/\ PlY0qgRKHlNEw/LFrF6F2stwqtoreKpIfU+/VFjmrj9/\ HrmpCvipCdWKzVmxjHYslefFgso4aSxV4J9l6VmRjNlZnpAvB84uwx46NPV6QQuRtzn14fkJqzWP2X\ niaYKiuqbH3etwrhFa5QlxSRlF3zTYik7K5nvRHkdEv79c7pLJtEbGk2oFJrsKVunOwMTA0Up5qPY2\ ybUPNRePCp+\ S7CVJlZLwJPmWUWWEVlllnAtCLLzLf86YHXd2T1zZhrouOvF1CAEtXiZfdPEc0nrKwPL75WuX9tvPg\ a8JTKwATTMt7YL/+Rlfjkv+\ jFHWvaduR164Posiqj9IdwUJ4LLgGvDKWNWZyFqRHZDJaeqgX2zUODqHrissEHVVSZAFXGULgol/\ FWzA/Hgx+J7PmSjNeskiOGYuyk3ptI58160yNjzg4yY4ryMmtMefan3lGmiK4Rz8Lr8Uavx0dpiZAr\ lJZ1M6YlvHhnTC5B2Wlqyx6XA2RVXcoZDGVdSvZdhpLSeEqZqLFifXMUN6c2R1VXYdvLh7wK24bpuE\ zI4a9NyISs5H0yIbOHMhNeAJ4yE1KfGKdDWf2hcTrUVfiV9aZb9mAfSVl7cEGUOSqrqnTLUeSIyhw1\ 4RyU8SXrXaK3Cq2soScew4p+/brs9Hi4iY7sNEJ27AMWIjvlU0v7HpdPWdb75FPmIGU+\ vRhstiqfUuOpiE3V0fwqUJSTZFRyfeq26GPqRPStD66GeGX1wfzfk1gsH98uH1uJ9WSQmQ2ozB3XoB\ wHyokEiiBvRSrx4J7mBEc2gUtO4QLJuSRvrJJLXgv2XpUVGEmVWeES8Hxi3IfGR59uTiFyN/\ 689fqA1JzF6r8etwVTZV2TrZL75iNe4VQ+coqkc+LZmEi6gF9Zb1bnN2vvU/\ nteAhKNbmsLlsD2VLQKyrCfjk9i9yNGVF1VjKjczAtQ2nLW5dhqsxbl4GnjOHXcQSUMfw6TCti+\ HySd3EOVp8x6qkV2lQNCrXhE0KUqJY1TrJTRGZ+9+\ G2i8pT0sZtF8BTVtZkLWXcr18OI7PwyWHRizvmsHbkdTl+\ dFmVueA4HKxAacvRVN2VOfo8TA0Ug2mn+Py+eWgQVUBcNvigil21VUpb7NoCXpl2zKW/irVjFjoR/\ Ehkz6VkVmA9HWnHxqnUexOpsVlvunEM5mUlx7gIPCXHoDJSpiOuETXDS/\ hGR8ZHk4mQKzSZdfOyJdF452UuQdlpastRVwNkVY4ix1fmKHL8ijqy+\ tt25LtlPZA1MiE3J5UJnbIHh7U2IXuwkvfJHoy4yuxxCXjK7EF9oqxCVXTVZ6c3pqs+wa+\ sN90iLrs0Sh2KC6KM61m9o1tcJ69SxvXa2j96F+utQitrnIfHsKIzbK2iD/\ K6XPJEeHwcuWSE7NjfK0R2yuScatyETM5S3yeTM/spM/nlYLNVmfwKTEVdkw/\ hVkUeqUaJ1F2fKiv6mDoRfdn8FOIdLHrTdaPPSXysjXtr5LfZ1Bpmbcpv1Zk1UpgrmMO8WnPb6/\ vlYxt44c8ypM8G1EZPaFCo855MoDgxd6u3NI65k7H5MHdGKSVzXwTnWJUJmT2UmfAK8Hzi+\ nHjo09XqxC5W7Wy/fqA1JzF6r+\ iuw1TZRWZ1ST65mBe4QpFTRFJOcGxCZGUkx5ZbwQswdK7vVkCyzSf+rsQ2akivBa6BL/\ GVIRUx7LedONu7BkoudsFmJahtOWEG1hFZU64AVNlTshWt8ZZ5IJPQPkOe3Uy+JHInshW14P/\ in8ofOfIh9VnkR2ACjW1BoXdjJNClEgDGVKt8Hv/jvXBdZgq64PrwFMqMmR+Zfy5Hw8gO/PhAdGLO/\ KAduR166TosirrwBNwsAKlLZezT6TM5RdhaqAY1Uoq/+2bhwZRFcllY+\ 4aEknJLHwiaW3d2RZJt4FXxnc7cwwqJBHfNe6IE+Mh6/JhPGQJSsZzGXhKxkOty4gLghk1q6/\ oo7JFyBUq27oswRLdvFkCl6DsNLVlzCm3st0yJisOZcZkxVGGktL3Stl3WSdvjbzMzanIy4rswQHBT\ cgeV+GXT/ZgxFVmjyvAU2aPqzAtq5cVSqDVTxunBG7Br6w33SLuAqbKjhgXRBnXs+\ pLt7hOXqWM61klwkA5tXzMBcuPy8fNBAoHI2YDKrQnNShUm08lUAzWYu1LtEOhlTVgxyuV2isBO41e\ 3JGdRsiOPeBCZCduYHVSxnEDig8+3ID5VMkNrgabreIG12BaEWfnravJTFtAEeW/\ SL32qduij6kT0bc+2ArxjPpAEPdO4aN33GtHjvKbxUBS+W02tcbLy/\ LbGsiRElGbWdfN6YXI3ZgR9W4lM7oI0zKUNo7P6KPk+NeDvVJlOGYFZYa7BjyfeH3C+\ OjTjStE7lbX3Hx9QKSVYFZX6Jv1eLkqVDGFjmF1q8bpGJyXyXojyI6WZu2dHVkYeWfHLLJTDbYw9n5\ cDbaAX1lvumWoCabKDDUBrwyljZ9cgmkFP6nOCbewVxX8pAblQ6DIe0vZqtU48VzwLaD8Gnt1KviRy\ J7IPPGsz6MTb5wSvTeRxp/1JrUDkQ+\ rmTs7FxUqcA0KuzCnhCiR0mLcP6dMTsaWzeTdqpUbMFVWKzeAp9R9bsK0jM334z5kpD7cJ3pxR+\ 7Tjrxu1RZdVmXOPwkHK1DalA/\ 2t5TKx2WYGihGhZbKxvvmoUFU03LZmLuGVGgzA9mYCo2syyeuMxYq4/pN4JVVHAr+ZXV9xvEvMlIf/\ kXOouRfV4Gn5F/UAcs612tklDBAvdFT8FEgI+QKBXJdzmIJkt6chUtQdpra8vdWgKyqc+/\ AVDk5wipLyRJYZZWhpHTc0oqjrEe6BhfhEajgIoocNcGlTchRE/zyyVGM68ocdQ14yhw1wVSk0c3/\ 6y5Mx832bMObg4FzY3TlbfiV9aZb9mB/Vakrc0GUNWZW1+oW17PqS9+\ 4zs1JxXWDv0RrZ61iaBWtotX1KeOpayBbPbaKDH16+ZhLz98uH7cTO8nhmtmAfYhTGpRTQDmdQBGw/\ Qjeke1HyI7zBoXITixoAb82gQUt4JcPC5pgqmRBU7DZKha0gGlFRqnOjttAEeXgqDfhUwdHH1Mnom/\ G3A7xyjJmv4h7Go74RNzT+OgdcduR+/ET6is+/\ CTqCVV898TiswJkp4rJ6t2Oq5jIx7PedGON7DEpWeNlmJahtOVq5jdlrl4AzyfznDQ++\ nSNC5G7VbwTUOT9TtKHCo1REX2sDuO46MP5r6w3gjxo9Rm88yCLL+\ 88mEV2qvOuhy7BrzF1HsWirDfdcscWTJW5Ywt4ZShtOZ0dIWVOvwLTMpQ2fZKduopqsgblOFDkU0Pk\ J/L8xhGPivzGDd7G7/gZZ+N08CORPd/\ 0rcBLs2tlnH29N1EfKOtNascjH1bfRHa3KjrANSjs1J0WokQalXHfnfjJHJoc+\ 0m3YKrsJ90CnlIxuw3TsuqhH6NjHPJhdNGLOzK6duR1q8TosiqZzCk4WIHSxmQ4waZkMldhaqAYeTm\ V/ffNQ4OohuayMXcNqTtnxrMxdSdZnk9cZyxUxvXbwCuroxT8axFu2WD+\ RQbsw78mmCr51wQ8Jf9awLSs875GRgkD1Bs9ER/FM0KuUDzX5SyWAOrNWbgEZaepLX9v51a2W/X+\ 0fIhr94/gmkZShsXYS2n5CKs5So6JdXfwGVdU3avrHeJ3iq0ssZ2mO5T7+eUE7fw9puQE6k8+\ uRE5hFlTlwAT5kTqaeWnSaFbm51bMfp5hT+\ st50yyM3YKrUzbkgFSjVUTGrkPStA7lsqTpwdRS2cksqCnOUh0elgkuugWx19yrmR/\ tlniyycYbOLB9zYfpny8fdxBni6NBswK7IaQ0KOzxnEiiCSYAIPnXfnfK31Rscl78pe/jkb+\ Y8Zf7eCjZblb+vw7SC7VZnj5tAEeWoSMX3qRijj6kT0Tdv3QzxyvLWukpEFGIdlYgz+\ JiNe4KI247cjyVQifBhCVH3xJElFCI7VRRWl3NcRUFW7FNRMI4qK4pbwd6r2CA7S0o2eBWmZWxw3cx\ zyvjo018tRO6m+WX1hRTK/Lt/j53M7l+klRj75xRzrA7cuJjDeaysN4LsZ+\ nw3tmPJZd39ssiO1V3N0KXBld3FGp8qrttmCqru23glaG0ZT/\ 2MpTZ7xpMy1DatEH2mEQKJPtl8qmabNXdt17kCESqXjTuMTf4Jn4H8+\ mZ4Ecie77pW4GXZpfFOPt6b6K+\ RdabHgxjdpAMQ8Rj2Fk6I0SJlKkhbGnmJ3NocqyJ7sBUWRPdAZ5SJ7sL07KaoR+\ jYxzyYXTRizsyunbkdWvD6LIqmcxpOFiB0sZkJuApmcwEUwPFyMup7L9vHhpElTOXjblrSN3JCaFsJ\ HWK62R5PnGdsVAZ1+8Cr6yOUvAvq0s2jn+RAfvwL3IWJf/\ aAp6Sf12HqVxtDAPUG50Qnw5bhFyhc67LWSzZ05uzcAnKTlNb/r4ZIKuq90+WD3n1/\ glMlT0F1nJKLsJargwlpRGU1jVl9yp6F+utQqvoraI+X8X7nV0+\ Znrwd5aPjxPvx7btbMDOzBkNCrtMZxMoTvl9Gzu5Cfl9G3755HfmRGV+\ vw48ZX7fhmmZvqLoAVg953E9AIqYWW+65UT2ppU9AC5IBUp1hM+qPX1rWi5bqqbtm1E4jMSjUsGL++\ UyDgw1Id/1Q163FogSn2MtECFX3M425sCulpI5XIPpOOZgdVjHMQeKRz7MgdlWyRy2g4OrYg43YFpR\ M1TnrdtAEWXHqBfiU3dHH1Mnom/GvB3iGRmzWwV+b/mQV+D3YFo2K9svH50Fsk8+OouP2XwkmMFrR+\ 7HtahN+XCtqJ/myLUKkZ3qMqvvPa4uY23hU5cxJyjrsjvB3qt4B3O1knfcAF4ZShuLnWBqsFhBd/\ 208bHs/doU36wik0KZf/efYz1Xr+\ IWVlGEEmlYZRWHIopZXd5xUYwzf1lvBPnU6vV451MW1975NIvsVPveCl1KVZtOtS8FtKw33XLQTZgq\ c9BN4Ily0GywAIpSr1nAtAylTbNlH1OkDLMnW8Gm2nJnVpPoW01zzCZVTRv3mBt8G7+D+\ fRs8CORPd/0rcBLs/tlnH29N1E/KetND4YxO0iGoWRL14GnZEvbMB3ClmZ+\ MocmxyrrI5gqq6yPgKdUET+GaZmK2I/\ RMQ75MLroxR0ZXTvyupptdFmVTOYMHKxAaWMynCJUMhlWmwaKkZdT2X/\ fPDSI6nMuG3PXkLqTU2jZSOoU18nyfOI6Y6Eyrn8MvLI6SsG/rB7iOP5FBuzDv8hZlPxrG3hK/\ kX9sklZrJ77taYMfPqPEXIqywg4iyWuenMWLkHZaWrL37cDZFX1/tnyIa/\ eP4OpcgomqxZ34yKs5cpQUhpBaV1Tdq+id7HeKrSK1i7qllZEsTWQoyrkRG5lVyN/\ LEI29vTc8jFTor+\ 3fHya2FM2v2eDCShnNShngXIugeLEaW7i9G4Cp6Fy7MNpyAOUnOYG8JSchnp4maak6HtYnftxfQ8Kt\ 1lvuvEAdviVfQ8uiIhtcK6rgge05c6sjtZXLeDmpNQCQa62upLeuZrDXd65uhZ53SorSq+\ OVVaEXFFlrTuzUojcjRktAKVkRguYlqG0ZX9mTGX2vxlsjir734JpRa1TnXvuAkWU4aIejo9eEH2sO\ BFt1W9Wfeqb9e6Gb1WW9frF4XNwxCcOnwsX2jEOtyP34xhUu3w4RtShc+QYhchOVY/VSR9X9ZBT+\ 1Q9jNbKquejYO9VjIBZVMkIbgHPJ7+dMT6WvV8bR2QPWMkRt2BahtJWoX76+shJe/NZ7SaFMv/\ uv4u1W70v2zAVobBPeE6IEmlqZdqpIu5bnfZxcZ9zl1lvBAzE6rd5MxAWw94MJIvspOLfCV2CX2NUf\ EptWW+6Ze3bMFVm7dvAU+ZO9iyVufM6TJW5k73kCmZYg8K+\ uHx6Lquv9K3ZOeqUqtmNe8wNvovfwXx6LviRyJ5v+lbgpdmNM86+\ 3puov5X1phtbIsNQsqUbwFOyJWqQQ9jSzE/IpLP8pFtd+\ glMlXXpJ8BTKqKfwrSsYuzH6BiHfBhd9OKOjK4ded36PLqsSiZzFg7KVQBWm0omw2qzDOX88jFThn+\ wfNxLoFDOZdfr/OuPY6pNzv9l46dTNCe384nmjIDKaP4p8MqqJwXr4uj/\ JrAu8l4f1kWmomRdN4GnZF3UeY3YJJi4tmYBfBTmCDmVWwRMxZK6vZkKl6DsNLVl7bsBsqpm/\ 3z5kNfsn8NUOauS1Yi7MRBWcBWzKtXfd2c1Y+y+oT+kVI59J0ODqD/\ Eg8ZssfI2RWtnrWJoFe1V1MWuiJprIEe1zsncTq5G/lSE3IPFzgbsmBksthtX3oJpGVdWcCh+\ I2cTOBT1aR8ORd6h5FC3gKfkUFTdy5QrRXfFmqgY112hPJz1phvv4OSFsrvCBVGymy+wikp28wVMK/\ almhFkNcG+\ jIBHwJERWB1Wb0bA0T5vRlCLvG7tGCVxx9oxQq6oHa17I0B24ixW13wcZ6E0WMtZ2rgpO9JKbnodpm\ UobZzlDkwrKsLqjPkxUER5Oepv+agq0ccUi+2b3z4O8cryW7+Iex6O+ETc8/\ joHXELkbsxsa9gWjaL34+\ zUBP04SxR99KRsxQiO9Vq1pTBuFqNHN2nVmO0VtZqnwR7r1IxmEWVKsYd4Pnkt7PGR5/\ 5hkLkboxuGyurZHTbMC1Daau1Z2dSGbpbv6JW6+JSfAyUv49VPB/8SGRPZKv7zH/FPxS+c+\ TD6lPCTmxFj6YGhV3l80KUSBEtU74V+c+ayxiX/zibm/\ VGwMSs7qw3E6PI4M3EsshOesZHoUvwa4yeQQkz60039nIXpkr2chd4ykzODrcyk9+AqTKTc/\ KggiFX/1e2P4epki9kdaa+CgkH41IKiZ6fzP+f1Us1zr4TWyJj82FLZBhKtnQLeEq2dBumQ9jSzE/\ I67P8pFt9/hlMlfX5Z8BTKsP3YFpWv/\ ZjdIxDPowuenFHRteOvK5OEV1WJZM5BwflfOkj4Cn5EmtaJV9iTWugGCfCQonwDufwImm9gqldWD5m\ SvSPl48vEu/H5sBswF7deQ0K+\ 44XEihONTtnbrNZyCknkiH75ETmEWVOvAe8shpUwV2tnvo47srqwYe7ku8puett4Cm5K7sGZbF3jWx\ 8Ntx/9k19+hURckW/Yl2+Z7UvvPkel6DsNLVxn48DZJXy8eXyIVc+voSpclooq7R3Y1isgyumhar/\ sgRrwrI5l5RWtO9kaBD1/HjQmC2GcAxOyGY5xmoWa+\ 1pisWeB3xUUTXx5xrkqH7N8mcBcy9E7sbct4GiZO7bMC1j7gpGx69KbQKjY8/\ Bh9GRBSkZ3R3gKRkdOyllaqSiY2ZNC43rmFHyz3rTjQVxqkipAHFBlFyLc4dKrvUVTJVcK6vTd2NBW\ TW5LwviQUuxIAHvsHrz3ryDI7jevKMWed16OaIKjvVyhOw431eI7MSMrHmLccyIpYoPMyKbUDKju8F\ mq9g85zKUbP4GTMtQqrN/1Bn1UZKij6kT0Te/\ fRrileW3fhH3AhzxibgXwoPkGHHbkfuxCSqUPmwi6kg7solCZKdazZocGVerkT371GqMo8pa7bNg71\ W5mjMBylz9EfB8Ms8546PPzEohcjd+wjkIJT+5CdMKflJdBc/OpHJnt4q+VuviUnwKlH+IVbwQ/\ EhkT2RGLKp6ESM3Tonem6ifm/UmtQORD6vPLLvUFf2rGhQqNxeEKJE+W6bDK7KxNbMyLhtz+\ jvrjYAXWp1rb15IMcKbF2aRnXSPT0KX4NcY3YNSZ9abblzqY5gqudTHwFPyCnb/\ lbziFkyVvIJTGUpeQSZt3L++GgfH+VIahxOPsXqu43gMmZ0Pj2HuV/KYO8BT8hiqqUN4DP8+nWMd/\ zlMlXX858AToZzB2lVou/\ 24FuOQD9eKXtyRa7Ujr6tnRJdVyTHOw0G5dsE6UMkxWAcaKMZeRSgW3uEcXtT3bUf+\ QoRsrOzF5WOmSf90+fgqsbKU/\ GcDdq0uaFDYgbuYQHGqsDk9nM1MTnmSfNYnTzK3KPPkF8ArqxgVfNbqlI/\ js6wofPgsOaCSz94FnpLPsuNQFnvXyNDnwv1nN9Sn1xEhV/Q61uWAVuvDmwNyCcpOUxsf+\ jS3st10iq+XjwqdohrlDFAqonkbt8vq4ql9qf4bIKzgyuZKUsrOvpOhQdTJ4xFgHB/\ CRThduwlchFO4WW/68uwL4RKwGvNh+NEshiPDL0TuxvDZ91Uy/\ JswLUNpYzdkBEp28xHwlOyGPYAytU7R67Gmbsb1eiiJZ73pxgg4naPs9XBBlLzjPlZRyTvuw7RiX6o\ ZQVYH7csIeARSjECQ9ax+r3fW4/\ ind9arRV63qosSlWNVFyE7TrAVIjspMlYPf5wiQ6Kc9aYbZ2GeV3KWj4PNVnGWT2BaURFWZ8x7QCnb\ lzZezLkFJS++BVMDpW8uu4cFrMhl/\ aLrRTjiE10vhgvtGF3bkfsxB2pmPswh6ps6ModC5G4c9yFMx3330JqiGFeXkY/\ 71GWctlDWZZ8HJ0yV/Zkxldn/E+D5aPfnjY8+\ 8xuFyN1YAicPlCzhNkzLUNrq6tmZVIbu1jXI6lp9GQ8DRYWez6W/\ h7f6J9i1i8GPRPZ807cCL80ur3Eq9d5EfdOsN6kdj3xYfUfYDa6YAapBYWf7ohAl0n7LbmIbx/\ gGpuM4hjWBMo5jfAm/st4IOLXVh/bm1BRtvDl1FtlJH/osdAl+jdGHKAlnvenGED+\ FqZIhfgo8JVvinLuSLd2BqZItccZCyZayilpftsThvHZ9qForuRQekAolWsHT+O2uTeBpZMo+\ PI3cRsnTPgKekqdR7y6bKFZwFtZTWc7STRf5EqZKXeRL4IlQzmLtKqYN+\ 7E8RkAflhe9uCPLa0deVx+KLquS3VyAg3ItiHWukt2wzjVQjL2KUCy8wwm82dTqzMuRrTmI9nf+\ SoRs7OnMZ2Zq+M+Wj/uJPWWLaDZgF/CiBoUdzUvlKG1ZiJFbmYW+\ At44tmhNCoxji6wUfNgiGZaSLX4MPCVbZH+kLL6skf/Oh/\ vPDrFPZyZCrujMrMuwrEaNN8PiEpSdpja2cS9AVukPD5aPCv2hGuUsUCqieRtzqlXVUypHaX1k7Iuh\ paQUm30nQ4Oo78gjwDg+RMXn3G+2BnWqiDkfnPVGymJZ6/iw2Gg+xZHFFiI7sSV+\ uWoT2BJV9Vq21Mbw2cFXMvzbMC1DaWNL7BWUnSZFT8iaORrXE6J0nvWmG8PgbJKyJ8QFUfIYztMpec\ xDmCp5TFZ17sZjstpoXx7Dg5biMYJcbXWfvXM1B3m9c3Ut8rq1aJRCHGvRCNlxSrAQ2YkZWRMF45gR\ 6X0tM2rTkcgmlDrSp8Fmq5jRZzCtiP/VefkLoIiyf9Tn81Fpoo8VJ6KNK9+\ BaRlXno3maP4n4GVRIv3SQJFG80vYSZ9oHk1yOEbzduR+\ TIXKog9TiXq3jkylENmpDrRmLMbVgWTmWW+61YGM0co68Mtg71U8gLlTyQM+\ A55PVrtgfPSZ7ihE7qZwcS5BqXDdhWkZSluFPTuTyp3d1IKsjta3jmegqOhHcOm/wFuR+\ 1wKfiSy55u+FXhpdqmNU6n3Jur7Zr3pwQZnB8kGy+qDahSqUJeEKNzJivvepg4+\ Xj7k6uBjmI77KxicJ98EJvM1/Mp6I+DUVrfem1NTJPLm1FlkJz3q89Al+DVGj6IEnfWmGw+\ 9B1MlD70HPCUn46y9kpN9BFMlJ+MkipKT1Sp4l+HaXy4fDxMolChmA/ZpL2lQ2HO+nEAR6DCXQ/\ gKVV3BNK0O/\ zimSa7vwzTJzpRM8xPgKZkmtXsjvjjxIVaEWT7UTdn5GqZKZedr4Ck7CfdhWqZ89GOQrHh9GGT04o4\ Msh15XYUruqxK5nQRDsrVrGzfphtzYqVuoBgKUIrT7JuHBpH+\ x2Vj7lp5NqK3st4vtIpW0ZpqKOuDrYFszZCk1ng18n0RspOq8CB0KZW3nLIoOXxtFm3j2ezxKnn2HZ\ gaKE5s15raGMd2WUX5sF0yRCXb/RR4SrbLDlVZvFojf4fp4I3uuU9vLEKu6I2tyxCtVpk3Q+\ QSlJ2mNrb0RYCs0ma+WT4qtJlqlHNAqaiJ2phfbV8j1ZUrre+MfenL/HgEUszPiYvM6XRjuMhD+\ JX1RsqKWav5sOJodseRFRciO7Elfj1vE9gSOw4+bIkMQ8mWPgOeUknnPIiS4d+\ FaRnDV3TlrNmycV05/\ v2FrDfdeAxn0JRdOS6Iki09wioq2dIjmCrZUlab78aWsgpyX7bEg5ZiS910cfLZsqpnXd5hTRl48w4\ ObHvzjlrkdevqKIU41tURsuPMaSGyE8uzJkfGsTyWKj4sjxMmSpZ3L9hslSb2OUwrskx19v8KKCKOE\ fVcfRSn6GPFiWhj5JwGUjLyj2BahjIbzTnjnwNvNconQKnoAtagRLpy2ZxOv8x0GafSJzNFE0KOmak\ duR/rouLrw7oiuunIugqRnSpna3ZnXOXMWibrTbfKmflGWTl/\ Hey9itOQByg5zefA88nQF42PPlNDhcjduAHnXZTc4GOYlqG0aRKzM6nc2U1fIYuXTwgxUFT0ibj0X+\ GtyH0uBz8S2fNN3wq8NKcHjFOp9ybqx2e96cEGZwfJBkWck7qdnNmyB1B2E9v01KfLh1xPfQrTcX8p\ xpqfGsdkHsCvrDcCTm1NUXhzagpe3pw6i+ykrX0ZugS/xmhrFO2z3nTjoV/\ AVMlDvwCekpPxOxxKTkYlRcnJsh2Vbpwsq0b25WT38WopTibQh6iVXMmtp0AfuhIezYqq9Qq2/6+\ Wj0eJnYxejX39yxoUzihcSaA4cWprxmQcp2ZV48OpyUOVnPoz4Ck5NTsuQ2ZROMnnqGE9gKlSw3oAP\ GX/5yFMyzSeflyZecSHK0cv7siV25HX1fKiy6rkiJfgoFy3y3aounFEahIGisGrUuxt3zw0iJROLht\ z18qzEb2V9X6hVbSK1ixKWcdvDWRr8qfibwJYOylAdtJPvgldSuUtpyzKasUnizLzKLPoQ+ApmTv7/\ 0rm/hFMy1Da2CkZnZKd3gOekp2yd1YWX9bIt2H4fqOv79O1i5ArunbrMjqriefN6LgEZaepjd18FSC\ rVKPHBw5UqUbVKOeBUhF925habcclpU2V1mPGvvRlajwCKabmxB3mlLEx3OER/\ Mp6I2WxrK18WGw0VeTIYguRnbQ8fqGTez9Oy2MvJOtNN7ZEhqFkS58DT8mW2OEpi9ZtXJnzMEqu/\ DFMy1DaGAHnzJSdN7YilbzjyYEDDrzjCUyVvCOrSnfjHVnttC/v4EFL8Y5uFfMjQCl1Z/\ LPsiplXZ5gzSt48wSOfnvzhFrkdevgKBg71sERsuP0aiGyEyuzZlDGsTKWFj6sjExGycq+CDZbxcq+\ hGlFLqvmGPeBImIyUU/TRyGKPlaciDZuy7kiJbf9BKZlKG0cKqudplDm3/\ 0v8FarV4xTCiIU6lBXhCiRpm3sizTLzq/mmGWjySjHLNuO3I9BUm32YZARdXZkkIXITlO+\ 1pzPuClfVn9Zb7ppDcydSq3hQbD3Kn5GTqPkZ18Cz4dtXDI++\ kwYFSJ34zmcjVHynE9hWqHhVas4szOp3NmNTWW11b5aEQNFRY+KS38fb0XucyX4kcieb/pW4OUbk+\ mMkMap1HsTzQJkvenGbMkGlcz2HvCUzJb9h7Kb2KZAP18+5Ar0c5gO4Q4XsOwbw2S+\ gV9ZbwSc2prg8ObUFO+8OXUW2Ukn/Dp0CX6N0QnZ5sh6042HfgVTJQ/\ 9CnhKTkYlRcnJqKQoOVm2O9SNk2WV1b6cjGOoKU4m0IeolVzNradAH7oaHk1HfagQ2ThDV3Hw/\ vXy8SRxhqJF5ZzBFQ0KZyauJlCc2Lw1WTOOzbOe8mHzZMBKNv858JRsnn0rI4Y7cU5W3VnO2U09+\ wamSvXsG+Apu2ic0ChTl/qxdGYwH5YevbgjS29HXldFjC6rkp1ehoNyxTDbG+\ vGTqmGGCgGo0vxxn3z0CDSWLlszF0rz0b0Vtb7hVbRKloTPWW9xjWQrfmp1BqvRn4kQnZSbh6HLqXy\ llMWZZ3kk0WZeZRZ9BHwypQIBdu1JpbGsV1WqrVst62q4YSJsqr5BKZlKG1sl13Asni1Rv4O08EbEw\ o+/ccIuaL/uC5DtNqR3gyRS1BWO7WxpfsBskr/mv+6X4X+VY1yASgV0byN+dX2jlIqW2l9Z+xLX+\ bHI5Bifk5cZA6zG8NFnsCvrDdSVsxazYcVR/NRjqy4ENmJLfFrsZvAltjVqWVLbdogGYZSG/\ wSeEptkL2qstOk6Elak3XjepJs3WS96ca9OfWk5N6fwrQMpY3HPMMqKnnMM5gqeUxWNe/\ GY7Labl8ew1HPFI/\ pphs8qdyhNt3gCfCU6jtZc1lttS67seZFvNnNBfw6b3ZTi7xu9R6FScfqPUJ2nB4uRHbiktYM0Dguy\ YLIh0uSfym55FfBZqu45NcwrciY1dNVD4Ei6pJFnV0fXSv6WHEi2lgn57qUrPMzmJbNsdB8XrY5e/\ wrIF8NfiSy51m05lj4r/iHQt4Y+bB6ZTnTUdH5rEGhynZViHIZa5c6JdJsPL+aYzaO5sgcs3E7cj+\ mSS3dh2lGFNuRaRYiOykfj8JtgF9jlA/WollvuvVWmGNFmZydggq+\ 0MbjyH2UPO5r4PmwksvGR595rELkbnyIk0RKPnQPpmUobZoS1ZeyE9+\ mj2WV477KFQNFRQeuM5ekJh9Vh8apdGK27EP4MFuyQSWz/QJ4SmbL7kpZZaLI/tY017js/xh+\ Zb0R8FBrpsObh1IY8+ahWWQnDe5B6BL8GqPBsVGR9aYbd7sPUyV3uw88JY+h+\ qDkMVQflDwm23npxmOyqmVfHvMIr5biMQJNhfrCtdx6CjSVa+HRdNRUCpGNM3QNB+/fLh/\ PEmcoWlR2169qUDgpcC2B4sSArVmbcQyYNYgPAyZrVDLgL4GnZMDsCQ1hwJxodFScHsNUqTg9Bp6yQ\ 8XphzJFph9LZwbzYenRizuy9HbkdZW36LIq2ekVOChX2bL9pG7slAqCgWIwuhRv3DcPDSJdksvG3CW\ aevsWpmVVebR21iqGVtFeWTM5ZV3ANZCtCajUTq5GfiJCdtKHnoYupbKjU65mNeaTq5nflLn6CfDK9\ A4Fp7ZmjsZxatbDPpyaPFTJqb8CXhlKWx3IeRdlHfgZTA0Uwbf9oqWs4Jz9WBCVRB+\ 2a7Ujvdkul6DszLYxv4cBskrLm/\ 8KY4WWV41yESgVOaONxWZ7R6l9qf5rZaxVjX3py2J5BFIs1onx8Psjm8B4+D2TrDdS7s2604d7R/\ NRjty7ENmJk/FLv5vAydih8uFknDNScrKvgafUOdl3KztNiv6qNVk3rr/\ KNlTWm24MgxN4yv4qF6QMpY1734NpGcNvY0s72CslW9qBqZItZfsM3dhSVg3vy5Z4nMexpTlFklNn+\ Uk3ReZZ5XlpU2SeAU/ZPWGlUFZPrsvorHkfb0Z3Eb/Om9HVIq+\ rWERB21GxiJArFAsr7gmQnfizNcM1jj8zyPrwZ3JOJX++H2y2ij8/gGlF/q5mb4+AIuKIl/\ DKjlpe9LHiRLTpz5zLU+rPn8O0bA6J5vOyzdnj3wD5WvAjkT3PIm809fzoRhsrq/\ cmmqXJepPi1JEPq/\ eZE0IVffQaFOqc14QoUWfGp5sRLaUjN4imEh25QTtyP97LboYP740IvyPvLUR20p6ehNsAv8ZoT6zT\ s950056Y8ZXa0+Ng71WskkxMySofAM+HI10xPjYhV0/3FSJ309tewFQ5i87pNyUH/\ AKmZShtqh4Vp7J71aZQZjsEBsq0fMwC0l8vHzsJFCbd2YBTG9c0KJxAmRIoTtzcmiAax83Zy/\ Lh5uSzSm7+FfCU3JwdurJKT8FfZlc3hr88hV9ZbwRM2poL8mbSFBq9mXQW2UnT/\ CZ0CX6N0TTZhsp60419PoSpkn0+BJ5SJ6N+ouRI1E+UHCnbyerGkbIqcN/+6hO8Wqq/\ KlCFIrLmqApN4dF0VIUKkbsxYM5OKBnwPZiWobSxPDIjJcv7GnhKlsc+\ 0hCWx8lPR13oKUyVutBT4Cm7WpyYKNNN+jFRRmkfJhq9uCMTbUdeVx+LLquSgV2Fg/JOZbbrY/\ CJFGvZNw8NIl2PL0TtwDG3Tvh1ZTGgWlucDb5bPuQTg9/BtKzmjc6GdUpCq+\ iUWBNEZV3CNZCtea2Kb1tZ90GA7KS+WDOG49QX1jo+\ LIGZVckSngGvTE1QaLbWhNQ4zZbVZtabbmyeDFjJ5u8DT8nm2b8rUx2mAwcaajnOAClruc9haqAIvv\ UZbVgFp+7H8qgG+rB5qynqzea5BGU3o43ZPgqQVQrmo2BlVarf7vJRofpVo1wCSkX+\ a6sFsl2m1L5U/50/VvzGvvStOHjQUhWHE3vbWT42hr3twK+\ sN9I6gtW7Tx0RzYI51hGFyE78kl8x3wR+yV6WD78kJ1PyywfAU/\ JLdujKTpOiEzs7vTGdWDasst504zGcNlTyGC5IGcq0fFTXEZwjU9YRX8C0DKWNk3G+\ T8nJXsBUycmyPaFunCzbuejLyXhpBnOymVNvDCdjHZH1ppuitlN5etsUtR3gKfturI7KKvV1Waw1De\ XNYi/h13mz2FrkdbWgKIU4akERcoUWZEVhAbJTzWBNuI2rGRhkfWoG8mxlzfAw2GxVzfANTCvYRDVj\ fQIUES+OZjp8VNLoY8WJmJaPakbOqUUlI/8SpgZKX+b3JFy7MuZHd2fzOVv9O7zpFPxIZM+z/\ 1bg5RvfM2EEMXZS780VeHN1pTepiiLyYfW54ixbWQyoRqGWPAlRok5e2bdsFBrI7PTGaCCs5LLedNN\ AGIWVGshT4CkzPbOjMtN/A7wylDYNZA8nQqmB7MFUOa/M71gpM+\ FXMC1DaVNadrBiZSe5TTXKasN9szoDQCqrG2+1WD52l49/\ v3y8SLzVBKjZgFMIkwZlAsoigeLEUKy5m3EMhV0TH4bCrK5kKPeBp2Qo7AWNYyjWtN44hvIcfmW9Ee\ h21pyLj25nyTs+ul0hcjdG8B1Mx81QPjZO2Di9ig2PrDfdWCznnpQs9hHwlBoIa1Ul82OtqmR+\ uzgRSuaXVfj6Mr9neLXBeo41RTKOLZF717KlNlbMnvqkQZmAkmLF3dgSVfAhbImzeo4KynOYKhWU58\ BTavI7MC27f4rsb00Bjcv+FL19sn948FfH/1SW2b+AhxJQV0Ioxkh5T3aBjwv8Op+\ ebDvydODAm6zE4iehVcSCrN67ER/7Il8zkKdm5B0RslMFvRu6lMoJThmKTNInQ+\ 3AVJmhdoBXFq0VTNKaLRjHJMnla5lkm+\ 5G9qXU3R4CT6m7sctSVtO1cW92zycNygSUFPcW6GTWpIOPThYhV5zFNrb0JEBWVf7zfzG6ovKvRrkM\ lIooPR+takUmq2en9sWatSmsieQslkcgxWKdOMYcDDaGY7yAXz4cYxemSo6xCzxlFfwid3qdmAy/+\ rgJTIaatA+TYfZXMplvgKdkMlTay+\ ofhaYyO70xmgqF56w33VjCU5gqOypcEKVazCmXSYMyASXFWLvxqj2cCCWv2oOpkldlle9uvGoH71LR\ tZuN/gbnILv78xs8yJ0xJzY1s+\ GNYVOsAHzYFBmIkk29AJ6STbGuMc6sQG21JiZ81NYIeWpG3vFDjuJQzbcqrgKK71Cxz2sgXzGQU/\ l9NfITEbJTpWDNp4yrFBhkfSoFsmtlpfAo2GxVpfAYphUcopqnPgOKiA1fwSs7Ko/\ Rx4oT0cbDOXM0aVAmoKR4eF8d7Vm4dgd/iWdEELo7m+8sH2Sai+\ BHInuefUYQ9heiCGLspN6baKIl600P7j07SO5dFgOqUSagLIQoUadoKto/hfIxO70xyscO/\ Mp60035YBRWKh/PgafM9MyOykz/\ GHhlKG3Kx0ucCKXy8RKmZShtmZDfw5g0KBNQUpmwm76SVf67aUVZRbhvVmcASGV14622lo+5bP+\ Py8de4q0WgJoN2OVeaFAWQNlKoDgxFGuuYxxDYa/\ Eh6EwqysZykPgKRkKO0BT0f4pGMrs6sYwlF34lfVGoNtZsyM+up0l7/\ jodoXITkrSU2PvxylJ7NplvenGL5/\ AVMkvnwBPqU5kOzjdOBmryDKUNk6W7R9042RZ7a0vJ9vBqw1WWqypjnE8hqzYh8cw9yt5zDfAK0Np4\ 97s1y80KAugpLh3N81iF6ZKzWIXeEoVnB3WsnulyOrWtM24rE6Z2Serh1R4dVyf8LvD7LGf4g4loKI\ BoAm+yfuvW/i4hTX26b9GyI7913bkiOdYjCe0wk7um1p99kmNPBnIKda1GvmFCLmbavlrmA6pguf/\ z5r3GVeTkwFnvemWgZm1lBn4BfDKshGPZT8GbE0rjGPArEGy3nRjwJxqUDLgR8BTKnns20y/\ ROk7bxCmeBbzTpMOEXKFYtFWW3AGYaFBWQClorZoY4OcfSlbsTbFYv4bShWKRTXKFaBURGmLB6yOEV\ mFPLUv1pkurPnkLJ1HAG86hmPMF2NjOMYe/PLhGN/CVMkxvgWessrfg+\ kQ7kBdeWOYDLV0HybD7K9kMo+\ Bp2Qy7BBMRfun0IxmpzdGM9qBX1lvurGE5zBVdoK4IEr2xrkZJXu7D9MylDZexXkmJa96CVMlr2LtN\ ZWfsWpeldWfU+8yG/0HnIPVu/8Qu1/2LtUo8zqxk2KcMSfOxr+\ OugmcjXWGD2cjz1Fytj3gKTkbq6eyqj265dZ9zyrH1qTHpEaeDORFM3K1ctyOvK46EwUoR3UmQk6xi\ NXIz0TITvWINb0zrh5hkM16060eIYdX1iNPgs1W1SNPYToVobSx4R2giDj3VbxyasrHuJMTfvdfh/\ 9rB3iHE3hAeeNjxYloY/ucyDI4Uje2/wCmBkpftW4nXLuDRW/VxgjI+\ 8viFBdldjLis1vBj0T2eJc34tT8/1kzUMZ50XvD+bBppTc9GP7sIBn+\ pEFZAEVerbDrZdwRJxVndnpjVBzWollvuqk4jPVKFWcXeEo+\ wRys5BNPgVeG0qbivMKJUKo4r2BahtKWb/ktFWW+pb5ShtKmFbG6r9CK5pNVo3tl1e2+\ 3IEBAD6sfqvry8csDvzn5eNl4q22ADUbsHu9pUFhJ/56OUpbFmbmMnaoWxZ+\ BDwRyrzn7NiMy8LW9Na4LMy+\ a9YbgQJmjbEYey9QwCyhpAm5WgErRHbSZJ4bez9Ok2GXLetNNw71DKZKDvUMeMo6P9sL6cY7WCkpeU\ dWie/GO7IqVl/e8QKvBh/GqAnWFMY4NYHML+tNNx7D3G/seDce8xh4IhTuZOq+\ OzEH1gdZ5tCNU3OmQMmp78O0DKVNd96Dadn9m2DeL/vvGPs3LvvvBGdQn/3Dg786/\ qeyzP4FPJSAigZ7GCNXMs11O57X8fE61tin4xkhO3Y825EjPmQxo9Aqyi1WZ9uIzH2RFwZyip2tRt4\ TIXfTCX8ElFIn/BGmQ2ry+f+z5njGKQTk47V5vk2nZ25U6vR7wBvX3bOmEMbxcVZEWW+\ 68XFy2EmDsgCKnI+zU1IWe2ejtjmCKdz/\ BfbPZ4IhQp7KkSMGZXCpvF5ozU4YeyrQC60lKDtNbZUO5ykqapBqneX75aNCZ6lGuQqUimjepn9ldf\ 1UzWCd/Wxm4reH5DXDDkAZx0WM5yeYjmM8nOTfBMbDyR8fxvMdTJWM5zvgKSfqXsJ0CJOZ4PTG8Cr2\ GXx4FbnIpEFZAEXOq9g9MeK6k042O70xOhmbCVlvuulkuzBVdsm4IGUobbyKczNKBfkhTJXsjfNMSv\ b2CqZK9pbtZnRjb9QVKjqxs9F/\ wjlYfcY4x1L2LtUoW0C5LkSZd4O9LOMkOzHDuX7YGGbImsmHGZJNKZnhS+\ ApmSErwTK9YF1N3pq1MW6LQJOPkB01+\ XbkCTvZpkhFAcpRkYqQp2bkHRGyU9XzHH4xNo2rehhks950q3pYKUwalAVQ5FXPc5hW8KF56/5m+\ dhNoEwhygugiJj9NbzylFgxgVYbfaw4EW01BWfilDXFNzAtQ2nj4dkuhoGyvXzMaf2/Lh+\ vEihsy88GnLC5rkHhtNB2OUobp2F9VBZpua0vsC9k5NeDH4nsuVeMtPP/\ Z83RTSO8meDNYqU33eot1ihlZ7at3noMPBEKd7Ki3uKm91O7Zqc3Ru1izZ71ppvaxWylVLu+\ BZ6SEZFFTBqUBVAqGFGb2vUDToRS7foBpmUobYyBCpGSMVAhKkOZsJk1mlq229ONl2S7AH37rgwA8G\ FMVremcaYR3kzwpimrt3HEB3BVyREfwLQMpS2rs1M2LqtbM3zjsjr73VlvBJqgNcljxBSBJmhJR03I\ eyJkJ5Vq19j7cSrVLvzKetONk+3AdNKgLICi5GScx5azpWwPqhtbYn2nZEvZDkg3tpRVD/\ uypT282mC2ZM3YTCO8meBNE1tq00DIMIwd76aBPAWeCIU7OY4tRTNsWX7STXXgZJ5SdfgOeGUobcyd\ 0y9K5v4QpgaKE5N5YZyScUzmBfzyYTLh9VJl/6wiauSyVMbcNw8N+EJT+EKM9yu5+Wy5Rtd8Gx+\ 3sZM+XfMIeWpG3vFDjs6QdZpCq+g0WdMRxrnqi7xlIKeY5mrklyLkbkrtz4BSKrU/w3SIijH/\ f9Ys2DhNhbWFD2fhzJiSs7wE3rj+qjXJMo3wZoI3i5XedKstyMcXGpQtoMhrC/\ aqymLvAie17RuL0UtOib0STMFEyCmeJlBYI0cWiT0VKKzWEpSdpgVWtoYBv8itbLdK5xuYltVT87tX\ K1Pzf2O3QpmqRrkGlKkcpa1myPZbUrtv3bDCmt3Y/b6VCQ9aqjLpxt5+\ s3zI2dtvYDqOvb2CN5vA3l7BLx/29j1Mlezte+\ ApJ0xfwXQq2j8FR9wJD0aKlTlxxB34lfWmG0ckryrLt20c8TnwRCjcyVT2cFIWZ6c3Rlncg19Zb7rx\ Kk7HTRqURbggZSjV7G024BSWUg1/BFMlR+R0nJIj/gBTJUfMdpm6cURqJMYZM24vt3UP5v8FJ2I7+\ JHInu8XZSay4YPBPxSubOTD6hP/\ BKZlK1uNwr7AthBlC2uXur1OPHWumTaGp7JOzHrTjaeS2yl56ivgKXkqq9/\ plyiCboc191Wme63b7YiQHbsd7chRhLdifVbriwJUxT6vgTwZyCnmtBr5hQjZqQbbhV+\ MTUO8meDNYqU33WqwHZiWZfe2Gmwn2GxVDbYL0wp2Vl0B7AGlbF+\ qUSa88iKxYgIVPPpYcSLaKhxOTiornMcwLUNpqwqy/aG+\ mu5euEMHi95qttxZPmo4VK3qXo0yAaWCQ92A0X9fPn5IoGwDZTbg3Ne2BmUbKDcSKPq6bf7/\ rBlS4x47VZGsl7PedKsiWXkpq8inwFNWkextj5tVnJ3eGEWRukjWm26KInPwpEFZAKWCT7TxPHIjJc\ /bBV4ZyryZ1YriTzgRSkXxJ5gq556peyl5EHWvMpQFNrNGt8x21LqxrR2cNjnbYgBIsS2nrG5Nb43L\ 6uS7PlmdmVCZ1Z8BrwyljYlyLkfJRL+BaRkTVXAHa7J0HHfg5ELWG4GeStAJ7pdpi+\ vqqRGyo55aiOyk8H1r7P00wpsJ3ixWetON+b2AqZL5vQCekvlxfl/J/\ H6GqZL5ZbuE3Zgfa1Ul88v2qLoxv12cNjnze4lXG8z8duDIJjC/nWBF9MyPs1tK5vcceEo9ZwemQ/\ ScaOYxy4K6KSic5Jw0KAugVCgo1SgT1m7x+qGqDziTpawPHsG0rD5QsLI94ywa++fEyvbglw8rCy/\ x6lyWypj7weRQAmoRQjHer6wAIh5gMYLsXMMNfLyBNTbWUzDXECGnoo9grqEdOeJ2FssLraI8ac2vG\ FmmL/J1AznFNFcjvxIhO6kd1oTbOLWDfNwnzzM3ThqUBVBSed6Jj++GWwbnxvDxXfiV9aYbH9+\ BqZKP7wBPycd3YVoWr6Jq0qgr899wjV5ykdgrwWxPhJxiHQLtM3IkVbsLtE9rCcpOUxuf28utbLfqg\ PNMyurgMUzLUCzeZKBM4ZbMfwdwev0QoExAqchMFitZHRepU5SpbCllqrSaNs5Y35qBxzlVM3TTdH+\ 3fMg13d/BdAgrm/8/fhNqEzgivzHlwxE56TdpUBZAkWtBP8B0CPfbgtP0K8X9nJjoC/\ iV9aYbEyV7UzLRXeApmegLmJbVrwo1bnZ6CvdvGuHNBG8WK73pxt44g1d2ZqtRtsIFKUNp44ic9VJy\ xCcwVXJEzuCV7X41ygSUiszUxhF3sPtKjpjtUhi3l9v6Eub/DSfiRvAjkT3fj7eX/bQoFxjxU+/\ NFry5vtKb1D5HPqy+f5wjq+jr16BsA+WGECXqjBq33Ik18+/Fc//\ GsWZWrVlvurFmMs1Jg7IAipw1sxY3YpOgKzKF8I5dkQg5FQ0EXZF25HX1zShAVezzuvpmhFyhb1o5V\ oDsVBF+C78OBm6OqQgZZLPedKsIWUUpK8IXwWarKsJvYVrBFeetq6lHXgKlbF+qURZ45a3EigmU/+\ hjxYloq7c4YWlwpG711lOYlqFYeWT1HdrNnbu+CvPLcIcO/\ hLPidGxxvRhdLUdiTZG9yPwRCgT1i6V6Q2Um3Dtf8LcQOEgzWzAabUbGhRO3t0sR6muqGYUVlTK6vA\ 58JTV4Q5MjZjkpFtaE63TCG8meLNY6U033ZK5VZTBt4BSwRPa+Bs5j5K/fQu8MpR5M+e0WKNb/\ gYnomz3q1EmoFRkkjZ+Qz1LyW+\ oZ5WhtKmj2b5dNxbFSkTOohgAKlgUl76f5rsLRxj5jBvmpPmSx2a96ZbVd2CqzOo7wFNm9V2Ylt3EN\ k7HGSMlp3sMUwPFiaFYs7jTCG8meLOaoQjUWIIu4L6PGhshp+6pQI0tRHbSB78LXYJfY/\ RB9tyz3nTjl3swVfLLPeAp+eVvDxxw4Je/hWkZShu/zPYYuzG/bO+pG/PL6rZ9mR+/DDGY+\ b2AI5vA/Mi9fZgf2ZKS+e0CT8n8XsDUuIlO/IQVWpafdFNQOC9aFhfaFJRfA0+EssDabb1+qJg7J7+\ UzP0JTMuYu4IvvTTO4ji+xIaJD18KL/\ HqXJbKmPvB5FACaiuEYrxfyc0jHlA9r3ATH29ijY31FMwrRMip6COYV2hHjridxfJCqyhPTvg4YZ+\ NLNMXedtATmmMq5F/ECE76RDW5No0wpsJ3jjmeeZGZZ7/\ AXhleULBx625m3F8nBVR1ptufJwcVsnHXwBPycfZqyqLV2tMzoTJ941pNmOvBDM7EXKKdQhUycgRR1\ XSWoKy09TG517mVrZbdcA5JWV18BSmZShtmtH8dwBTvLCb/\ rWLHTJueWr3rRtWWOfK2TwPWorNd9NB/7B8TK8fKh30DzA1UJzYmzWlNsSbCd44sjdOsynZ24/\ AE6FwJ1M30Ykj7oUHYzBH3INfPhyRvErJEb8FnpIj7sHUyB5OOpk19WbcICedjI2RrDfdeBWn48rOb\ FtfkQuiZG+cwlKyt2cwVbI3TsdVRPMalAVQKjJTG0dkVavkiNn+QV+OyEuT4ohGtOAxegV3/\ wdO4M3gRyJ7rudbgZfmpFjZhEZnb6LZq6w3qXMV+bD6vu/AtOxcVaNwOu6mEIU7mYpdTiydfzk+\ y4udWDrr16w33Vg6ma2IP28BRc7Sf4ZpmQ61bn8kSiupWC/\ oj0TIjv2RduR1lc4oQDkqnRFyhdJp5XQBslMFak3/\ jatAGWSz3nSrQPdgqqxA94LNVlWg38G0gptW1z+vgCKqsrbwyo49gOhjxYloq+/\ 4vUBlffccpmUobTVRtjvWt1p5Fe7QwV/iOfFLfq9sE/glK2wffklOpuSXPwNPyS+pG5RlPUXt+\ wJvyv0bV/tS48h6Y+zALWzb/\ 8bSGjtwE792NuCE4U0Nyk2g3CpHaat9X8B03LSkNblr3CAnFZhaVtabbiowmYNSBf418JTslIxOyU6\ /A14ZSpsK/DuciIpoXq0C/\ w6mZSht7G0HK6ZkbzswLUNp05qzXdBuHHEPp03OERkAKjiiIqtbE3fjsjpZem1Wb1O0mQmNHe+\ maL8AngiFO1lx39t4EGeplDzoKUwNFCeGYs0cj2MonGnJeiPQmqOCJxUfBVqzJUk2IVdrzYXITurn9\ 6FL8GuM+slmbNabbvzyJUyV/PIl8JT88vcHDjjwy9/DVMkvd7FiSuaX7ax1Y35ZVbov8+\ OXPgYzvz04sgnMj9zbh/mRLSmZ37fAUzK/PZgO0XPmmMMKLctPuikonL5VKig/Ak+EsoW1S/\ WRujF3ztEpmfszmJahtHGC8KCujteprLB/YQ4loKJRSsa0lfxz3YmDW+\ HWpfKfYOIgQnacOGhHjviLxWRCqygXRPQpFUn7IltzPCkdbTXyTyJkp1rbmj0zsodTLiPn9MlljP/\ KXPYT8MpqRwXntCZnxnFOsn4fzkmepuSce8BTck72Y8riVVQxVX/\ z1ppH85m6iZBTrEOgvFnzPsaeCpQ3awnKTlMbn3sVIKsYMCeNlAz4OUzLUNp0kfmv7VXoIm0aT21PI\ bprrxIoyVquYpptfoP/hR3K7kvUhSnblzaF74/Lx+L1Q6Xw/RGmQ1jS/P9Z81zjOBsnpHw4G+e+\ lJztZ+Ap9YffwHQIF9uG0xvDDNlz8GGGZFNKZvgd8JTMkJ2UsnqSy/wSm7hux8ya5xrXMaPkn/\ WmG5vi3JeyY8YFUXK2HZxZJWfbgamSs3HuqyKa16BsAaUiM7Uxwz3svpIZ1irjt5ePmRr/\ XyyFgUKpcTbgtMktDQonZ24nUIxIxCP6A5aCfPdW8CORPfeKkYj9qCivGblA7802vLmx0pseFcDsIC\ uAsjNbjXITKLeEKFFn0YhYThUA/+\ L7JlQArIh9KgCyZmUF8BvgKSuA38K0TNmKckZ1xyVKWY4dlwg5FQ0EHZd25Ch3VmunUYBy1E4j5BQn\ XY38SoTsVN1aM3PjqlsG2aw33apbVoRl2b2tun0ZbLaquv0ephW8t7q2+gEoogoumm4xVkzQVYg+\ VpyIttpxFydCWTvuwrQMpa3eyvbb+k68/\ BDu0MFf4jnxS34baxP4Jat3H35JTqbkl78FnpJfUpMoy3qK2ncPb8r9M6KPU+27B7+\ y3nSrfVkvKmvfb4FXhtKm13DGUKnXPINpmV7DozVfjy46tjVVO07HphqX9aYHP5kdJD9R6tg/Ak/\ JgckblRz4e+CVobTp2H/AiVDq2H+AaRlKG0ekJqjkiNQEy1BYatSo5dk+\ bjcmymquTL2wVixau9AqWjsSwEVuFZ1YhDUzOI5FsCrwYRF7MFWyiD3gKRV0dsPL7mQbV+\ E0mJKrPIfpOK5iTU2P4yqcz8l6I9C2rdlJH23bkkB9tO1CZCe19dehS/\ BrjNrKaYysN92Y5iuYKpnmK+ApmeafHTjgwDT/DKZKppnt2HbjgNlOXjcOmFXB+6qR/\ NpKhRqpYH4v4cgmMD+ycB/mR7akZH7fAU/J/F7CtKyOUPAT1mpZftJNS+EksVJL+Rl4yr4VZyLK7p+\ CY1gzneM4Bls2tRyjrarZOXAgXdUY8T+\ VZfYvYGgQNVx5xxgj5RMTt8PXdZyYiJBTN1YwMdGOHPEhixmlFB5+vZ2hMRWZ+\ yLfNJBT2pJA1SpEdqrdrdm5cbU7OaxPbmQ+UebG3wBvXA/UmvwZx2FZRfhwWPI+\ JYd9CTwlh2WnpyxerTG7EybfN+\ bpjL0STA1FyCllQ6DkRY44KnnWEpSdpjbN6IcAWcUadw8ccNDCd2FahmLxJgMlYojz39ir0FnaNKPa\ HkVKZymtDct2/xbe4P9gh1bvy7fYl7J3qUaZ12kvd8ac2JQ1KTaOTXH2yodNcaJMyaZ+\ Czyl0vA7mA5hSVTaN4azsbvgw9nIc5Sc7XvgKTkbeyZllZ5Ct7JmuMbpVhT3s9504zmc9So7s229MS\ 6Ikk1xpkjJpl7AVMmmOOtVEc1rUDi3VpGZ2jgbq0wlZ8tq4H0VWF6alAJrvNWd5WMmyf8PS2+\ 8FUXH2YBzLLc1KJzJuVOOUs1EZxQyURHf5USWnFWzLzeOVfOvmm8Cq2b958OqyUSVrPp3wFOy6t/\ D1Ihdgv6CNZ1Uppqt21+IkB37C+\ 3I6yqFUYCq2Od1lcIIuUIptHKwANmpYrQmzoZ4sw1vHCtGVlnKivFVsNmqivHXMK3gktX1yk9AKduX\ apRtvLKjhh59rDgRbfUYv/umrMeoopahtNUw2e5S3+rip3CHjOrCiV/yW02bwC9ZEfvwS3IyJb/\ 8PfCU/JJ1flnW4xWbD2NUHd0OfiSy573h/t3ESYiyXtlEfGdvoonHrDfdal/\ Wi8ra9zvgKWvflzAti7htyscO3kWpfOzA1EBxUqCtyddxCjR1tKw33RRosiAR12JHt4LRtTFtslMl0\ /418MpQ5s2sVqD/iBOhVKD/CFPldO4eVkzJRPdgWobSpnNnO7Dd+\ G62M2fUJtGKWWsXWkVrR5q5lVvF1ci/\ EyE7sSRrAnAcS2LV48OSyCyULOkl8JQsiR10JUvaxbsoWdIuTA0UgT4dFUmO+nSE7KhPFyI7KaY/\ hi7BrzGKKRuuWW+68bgfYKrkcT8AT8nj/\ nz5kPO4P4epksdlu67dGFa2G9eNYWWV7L6KIr9oUaEoKtiNNSs3jt2Q4/\ qwGzICJbv5HnhKdsNuTxlXVigVrIQOBv+\ gUio4YVsWF9qUit8CT4SyjbVL9Z6cOIY16ziOY7Dt4sMxwoOvYu4vYLr8+LdQ0ko9", SelectWithContents->True, Selectable->False], "]"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792148525819807`*^9, 3.7792148850785413`*^9}, 3.7792162658321705`*^9}, CellLabel->"In[23]:=", CellID->690653243], Cell["Show the length-999 ruler with one fewer marks:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792156412754855`*^9, 3.7792156745071335`*^9}, { 3.858856155552054*^9, 3.858856155817087*^9}}, CellID->227810106], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ruler", "=", RowBox[{"betterRulers", "[", RowBox[{"[", "208", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"length", "=", RowBox[{"Dot", "@@", "ruler"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"marks", "=", " ", RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", "ruler", "]"}], "]"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"excess", " ", "=", " ", RowBox[{"marks", "-", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", "length"}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"excess", ",", " ", "marks", ",", " ", "length"}], "}"}], ",", RowBox[{"Grid", "[", RowBox[{"ruler", ",", RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"Alignment", "\[Rule]", "Center"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792149576694255`*^9, 3.779214961416175*^9}, { 3.779215344061021*^9, 3.7792153484949703`*^9}, {3.779215584736581*^9, 3.7792156131022406`*^9}, {3.779216306182808*^9, 3.779216307214791*^9}}, CellLabel->"In[24]:=", CellID->663783593], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{"0", ",", "55", ",", "999"}], "}"}]}, { TagBox[GridBox[{ {"1", "11", "21", "43", "22", "1"}, {"10", "1", "10", "12", "11", "10"} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{3.779214962398547*^9, 3.7792156174031878`*^9, 3.779216308167425*^9, 3.780423652716731*^9, 3.780430839991197*^9}, CellLabel->"Out[28]=", CellID->127048711] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["\<\ Show how the John Leech upper bound for the number of marks in a complete \ ruler compares to function-generated rulers:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792165727071886`*^9, 3.7792165888989887`*^9}, 3.779216626746574*^9, {3.779216672441702*^9, 3.7792167687775893`*^9}, { 3.7792168931262465`*^9, 3.7792169254145136`*^9}, {3.7792186190864573`*^9, 3.7792186212783756`*^9}, {3.78043088839881*^9, 3.7804308907113094`*^9}}, CellID->294194824], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"3.348", " ", "n"}], "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", RowBox[{"ReasonableRuler", "[", "n", "]"}], "]"}], "]"}], "+", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "214", ",", "2019"}], "}"}]}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792159191839466`*^9, 3.7792159943021793`*^9}, { 3.7792163835925665`*^9, 3.779216529376617*^9}, {3.779216593876232*^9, 3.779216607553418*^9}, {3.7792166387942924`*^9, 3.779216649578373*^9}, { 3.7804236996849422`*^9, 3.780423702827042*^9}, {3.7804308481786976`*^9, 3.7804308483661976`*^9}}, CellLabel->"In[29]:=", CellID->313708762], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9nHlcjF8XwEeKpBgKWcoghDAIoTgIIUwJIQySkJpWqTClfZ02rRiEEELI EmMPIVRCGHtkGWshvOf3cc7bPz5f527POWfuuffc57ndlng5LtMSCAStmgsE //37708zRj7SZrxVXO0Y+g9QFvQq+Bz7llgXlKcHXwmJeUcsBJXsTGF15Adi IxCvWTMmfKyG2BgEus6tfDRHiLuA3FNiUPjkHLEI5AuCTZPOXyXuDvC8sqNX eTmxGai2+Gc4llQQ9wLxeP/g332+E5uDYvhzmw5m9cR9QT6h2/kJo9TEFiCt WlEwrv8z4gEgGqvq0Nv0BbEY5Df0ar4avCIeBPI5emX7G18TDwZZv+MP+nxr JB4CGvAT+9X9JrYEeStIWX3+PfFQUKa76r4s+Eg8DJRTVaPNr7M+hoP0bsRd 57OfiK0ATD900jnymXgECC69cPYadIN4JEBZ5SLJ0jvEo0Alzix72q+K2BoE ZUVir8/3iW3w+ZZqzqxmfYwGpYn27EunWR9jQLBxbmzrzawPAMHbDy0XhpA+ 5ADSsEeuh+exPsaC1Gp051ZW5A/ysaCytDrkY8T+MA7kHVvvfPqxjuTjQLA+ 02rAyz8kHw+a1t0nfr79l+TjAUZkF9mcYX3YArgqR7XZS/qQ24LqY9Pk1ems jwkgT7nmPlP+heQToHDbMP8LK7+SfCKo3lnm/HCsJDmyxPuQ4Y9qkk8CeZFW 2cLNNSSfBDBrTtmHrqwPO1Ab7Tlo1tBAcjsQhEz2Up19TvLJIDWRTp6V+JLk k0FQnzi8hQv7xxSACwflj8zfkHwKSLOj3O9+Zf1MBemM2wPfnaXfi3wqqLZN MuoTy78Xe6gu71fxzEgA/+T2oLSwaq4TRSyYBopvtbOffWL9TIPy77c6zahk /UwHSeuyT5Ji1s90EJ0V+dRms35mgLLmsLj9um8knwFgbqm9Kpj9RQKCxYrK B4JH/xgkIJmTs6VvN9aHBKT7ko09m5K/qCQAnXw7nrjA+nEA0Z+3c4dvJP2A Ayg3RH16M5b0I3cA6TOXb7f/kv+osPx8g0DNadaPI6gvlMdMXEv6AUeQDgmx qrQk/ciR/WKSNn+k35MKy2c07+W+kvUzE2p1JlQdryaGmaAx2rBqfwLpRz4T oNRYL3YF6Uc1E3/vy3SbTWD9OIFggcvLbiLSDziBKvOR6eOfrC8nkC96fvmd 00Oq7wSQccrt1enHVH8WiFa83X6kzVOqPwtA22en1UXSl3wWlPt039Rk1E+q PwukNgd7GfXm39dsgN5/Qz3ukb5gNogyY/sYRLE/IVsebVY/lH5fqtkgbf1d 0O8Fz79zAJwf/d6TTPqCOSD9Hi8b2ZV+X/I5oDzWtceOINKPCnmwVmDIS9af M0gLPtU4Kklf4AzyfsODnfzZn5xBub6b1Z/JpC+VM6jCusglpqQfwVyQPjx6 Zupn1t9cEBxfF3SuA+lLPhfk06/0+uVK+lIhxzy67VnNv795AB+bTT66jvQF 80D+Jf2KQ3eej+aBaIMkoftz1h+W33u7WWnRL6o/H1RpoSuH6JO+YD7IeyX+ GHiA/EuOnJEQGjmD9KXC8nUnrwzX8HztAvKa60m2CvIvcAHhuN9udVP59+gC 4ohRdblHWH8uoFb/VE0dxr+/BSCvX/lOX4f0BcilX46tu8v6WwDqaS3Xb9nG +lsAyg8+W7y8WH8LQbpshN8na4pnsBDkkZ9XJpvzfIW88cDh7i5PqP5CgAhh tM0k8jfBIhD0c/x64wnrbxGorANmXFjD+lsE8iFRk01bk7+pkI9tK/14h/Un xfgkfNt0C8U3kRQErWacybhN+gMpgLjkZ5Ib6U8qBfnuTkM+/ST9ybH8roet TyeS/pRYXt80t0FB/qfC9pd322M3j+YvNZafviR0eg/W32JQV88dpRPQ5J9+ RYtBMKXP6tEPiGExSMNfN+4MIf1JUd45ekCkLf8+kb2Kz5jok/6UyFEejR53 iVXIl1sM88umeKheDEpH9xNDFtP8JlgCgu/5u+fMIP2JloCqpyjvxEOa32AJ yHN3CxKX0/wmRR6wzanyM+lTjvVVi4cp1tH8plwCoMna/KQprQ9UKF8wr35J Mv1+1Vj/Wts/wZ3Y/5YCtMh8qreDfr+ipSBalNIxuh3pD5aC4EXQ2In3iaVL QTmzl1iVy/FgKcg/F1t8X0T6VGL9Yw/X1Xbn+Q7lspIVGS+J1Sj/1SKniZPW P/0KXEG4rZVR+6PEIleQpinD21qwP7oCJH1MOvaeWOoKIsnrBOODpE85lg// dM5KRvpUuoI6WMerw6Af1D+Wt9pzr+gTsdoVVB9eBHd3JX0KloE8uPWVuS9I n6JlAEXjDIWupE9YBqrbRs8mPKfftxTlu8YX/VrM641loJzyULujjNYbSpRH yRe/WUD6VGH7VU9HdH9I/qlG7tQz+sM+Xn+4gchuv9hgJelT5AZSf1+n9715 PkR5p0Zx0ktiqRsIDJY3/bKdf99uIF8h0+0oJf9UuoHKxzukiQn5p8oNZCcL p1W9I/2q3UDssEpiMLUp6X85iDTNSqc6kj5FywE+lE6FVqRPWA7qLWluDVeJ pVh+SrijXwTpU47lJbMmFwHNj8rloGpwDy/+xfPlcpBviF2rtZriixrlY/vN NnnG63t3gLNzWp+fTb93kTuobshjA1+S/wJy15VVe0eTv0qRS3qc/3iI47M7 iEpb9JC2JX0qsb1VJ5Yn8npX5Q7Koe4vw8L59+8O6s4t7tjY8O9/BYgcRy09 +41YtAKUgqk3mx/g+XQFQMMguw5u/PtfAaqlmTofWL9ylK+pHBlfSaxcAbLW DQZrJ5J+VStAWDnjQ+vtxOoVoPa3L2z3i9fHK0GeLrx29xDpV7QSpIHFLvPc Sb+A8qQL2XtMSZ/SlSDQuB47V0EsR/nXjU+3x9J8qlwJqhNrc7LlvN5ZCXDv vHNYHfmvGuU6X1x+zyL/FazC9WZUC30Vza+iVaBq73H2QB+O56tAPn79R5+r tH6WrgLpGa0X1es4vq8CqH3m0WIw6Ve5CkQVa05ovyJWYf2yioZrWaRf9SpQ P78y12Ua6VfgAaKwB3onBKRfkQfIPzmMfHqEGDxwfzCwfaUb6VeK5TsPKUvr SPOBHPlBna3QjfSr9IDyb/1GW59l/aM8vKA8V0z6VWP7DglHEp7x/LsaVKe8 Haamkb5Fq0E9JrmqcgLpF1aD4NNzz/71rH/k+u4THfNJ3/LVAB1TWscc5vkX ub7nGV3en6hWg1ws+NDDn+dflAfs/PqgktdPniD369Z7wDCefz1BcK75A5NN vB7wBOHgBZkrbSj+Sz1BvX+89tB0Xh94gmhI0y037rP+sT2T+E6CGNK3yhPn o4m7m1jx/IvyKJPVd16x/r1AMONCmk866x8549DEZ+N5PeWF+8u++7rx+krq BbC0s7+xhPQr/69+ZTvd3ax/LL+vW8ZZ9m+VF6h2NXEas4f17wUih6CYpNmk b4EMpDURCwubkn6FMhA4vPmxrZBYhPKvlmGuC0jfYhko9100aWhB6wWQAZyT vzzhQf4tQb5kNb3XJdK/FDl1yLmhJqRvmQxUexNiav14/YCc8+fT6DLSvwL7 f+axPbcNzycyEEU0f1V3mrhQBuJXU4qaFfF6DNvfOXu3vAWtF8qR6w6fvlLC /i7D9dfDKqk76VuDz2Pa71xZW17/e4Pcc83WliXEQmQDt3ST5aRvkTfAk9WX tdqQv4u9QTX43qxTJzk+eoOgw2m3Sa6kb4k3SAt1u+w24PnaG0SXbexXz9f+ Nz6ZN2h+OP7VHCSWe4NyzDtZiS7pW4H9945ss/oQz+fYn9EGrU9zSf+FOB6f Y8sma5H+Vdj/rycuAXuJy71B3SK8RaAjzd9q5Fd/46f/JNZge33023wdz+sP HxBY24z8lkL6F/pgPJh+T/mU/F/kA/JZFWm/Mkj/Yh9QvRg4onE0+Tv4gKhn 57V3XhJLfEDabvnIMRPJHlJsb7qzvWAI6V+Gcn9lV+f7HD+xvbnLWkVuIP0r fEB5y8YqtifP5zg+/azTrteJC7G9t2dOtvPm9Z0PqMXlDpvbk/7Lsf3Ky8pf p3i9hwwBl8W83tNgfUXcU+tm7P++IKhJEIr2EQt9QTryo9X73jr/xi/yBUVq TZthQcRilIdY2lZmkj3AF9Q/xn5qZ0P6l6B88QG7AU+Jpb6g+tjN3TSC9C/z BWWOaPUrc1qvyH0BZur5R5YRK5BHdt78x4vmeyXyq1VaMwzZ/7H9nE/n1hzj +OoL8uj1DYFzSf/lOJ4m5887NnK89QVRiZ2Nzlb6PWiwvt66cMVYnn/8QBk1 c97PT2QvIfLfd28GRfJ85Afq2TPBzpz0L/YDgbDk7vBrPD8hP647K/Age0j8 cH6Si3YYkP6lfiBy/ynsyutFGcrbnijwk3B+wQ+knX61yvtErMD+mzxx3J9C 9lCifNLSVMUQ+j0U+oFqs1vdNI6/Kuy/dcVJn5Nkn3Ls78zSXfv0mv1jtR/I R02I23GU7KHB53kSNvXaLM7f+QN0v7D7+jdioT+ouvU9uTud7CHyB3V6Se7C oWQPMfJf1xWaCmJAfv81d8BImo8k/iC4Xd97pyHpX+oPymddppUeJpahfOvV 85cdOD+B8hkO25UaYoU/lBv6a+27QvZQ+oPId3/T1/3JHoXY38WM4zPLeD+J 4zWLGZG7kuxRju3bTNiu0iV7qP0x3vjqndtFrEEO2hq72ZbXPwEgPWo1avYz YmEAqCxSLes28HooANSzXie6mJA9xFje0XHJ3pO8PgoAeeeqyxVzyB6SAICC uRUPv3K8DgClxZ7tZ5Pp9yILAJnBKTPoQPaRB4DwVD9N4jJiBfb36ur6zOVk DyXWrx1orWlK9ijE/j7fHthTSawKAJHysWy4NdmjPAAE91e2711NrA4ASWNx 558jyD4aHN+vlf63/p9fWwOq+EWTeu8j+wjX4P7rzNKEibweXQPqbjGzbz8l Fq8B5VmbYV9CeH2K8g1jO37pQPaQrAG5xdN2tw/zenUNKHLMt13epfWvPxm2 /3h/Ue9aXr+uAYHjrzBlGNlHgfXv97xQ34XsocTxfWsS1/84cSHWj7LXjHUg +6jW4H5zr+7QOuJy5BH73jTj/YEa27e8mH+c168a5Ft79/dwod+LIBAEtvnt jzmQfYSBIO3x4WPTOmJRIBRO7LbeeBzZRxwImh6z8rckEkMgQKGhVp9jZC9J IKgezu75dTrZR4ryE0NvbXlNLAsE0WAXoz5yzgcHgrBnYfhkfbKHIhAUosWL PZ2JlVh+bkDfjXnEhTjeIsuK1k95fYvjbbjv9COQ7FOO/dc1qzsv5PVWIMgr yvd65HP8x/F8Hp7/fQzH/7W4/uhdL73H8X8tiBYG7NvnyfF/LRQa+HrUadH6 SrwW1IYpk72nEwOWd7/6/uYQjv8o95rXmHON57+1IN886c5kjj8y7M/qfVh1 Pc9/WD8ptZtdItlLgfWFXucyzTj+rwXlaqX/tZM8/2F7hZYOjyRkHxXKXXou v/2KuBzZ1mLZzNE8/2H59eWXB8QQa9aCYMqZC9928/wXhL8vlw1eNmQfIfLM 9nev3eH5LwjnR+/bzd15/kN5j6fxvX7z/BcEitPP4wwn8/wXBBLnEefDU3m9 jHKvpM+vHhHLsP7Jb1P9JDz/BaE9W11vfMHzXxCohF5+y9eSvZTYv7bevCID nv+w/lVVwvP/59Ow/ukl3b4N5fkP68v293pzlViN8lv2B88u4PkvCORpq91O B/L+OxjEe2V2seeJhcGgPF+ln2rM8x9yZjfHr/uIxchX2vtYjeH5LxhUPX6u W3SHWILykD+RK5bx/BcM0qIJW2Y3EMuCQXBPXdErjvcvWH5Q+agHJhSfFMGg KGriY+VM9lIGAyTPffx2HNmrEHn8tlF2lZxfCgbRPPvIi0Oa/ytfHgzlL78X VoUQq4NBPmK0/dE4spcG+7/c0rO8Fc9/ISDc8UtYPIdYGALSoJ4ZyUpiUQhI uhfrLnhDLA4BTdyD1Z0Gc34uBODGvptXg4glWN9i/JBVF3j9hzxTOuk3z4+y EJAbfZuhu4dYHgKqi7aK+hFkLwWWHwPG13l9ocT2e1+tD5tP9ivE+j8Pje76 jtd/yL3PNG4N4fUfPo/wtjKsGa2v1SEg8GxqMmMzr/+wv8uBW9b15/XfOlCb xlYqSnj9tw6UJYW3o6fx/mcdSCVzti97RCzG8r/vz+69mtd/60C+NvLPjUZi yToQtM/NnxvP6z+UV091vdaZ13/IccUg2kcsXwei29/t54/k9R/2P9QgM/gq 57PWAYz7Kg51JvsVYv1JUw2PfSH7qtaBYmXteNNRumT/dSATnBi0Nozspcbx bjN5cfkqxz/ktrIlzduQfQTrQTO1adFIZ17/rQdZWA+1dCvnY9eDYlD7D2tf EYuxfPdOLyP6a5H91wOsWV4W7kcsWQ/qBYtmvw/g/ep6kLuOanNcm+wlWw+q on333FI4f7AepJ/rjjd2Jfsp1oPgYl9V4H6Ofyh/HvPnwUiyXyG23980tEcp xz+UP6jvu2cv2bsc5Td+xC5/xvFvPYh69Buw1IvjH473wrJpExqJBRtANGjD d4MYjn8bAJfEw0vacT4c5b3dTGZuJxZvAGWM8titAZwf2wDShFThkFMc/zaA /HWV1bpJHP+wvOl36wN3Of5hezmyvpcXcfzD+kdPtLpUR6zYAOVLcoMrR3H8 2wDirLyGU6Fk38INoBpjorPpCrFqAygG5O9easD7X2x//tNXZjOJ1Sh/svDq /UxiDcq1Ds0Ke8z2l4PQekmKqRnZT1cOorH1EQdWEAvlIG/2cdjgg8TGcii/ en7fnq/EIjnuv8oq+/iRPc2xfEHCt9d/eL8sB4jJvpAQQ/a0wvJti+07G3F+ E8uvUm5WbCG2w/btQ58GpJE9JXKQpoddHXyE7OmM45t9omSRDc+v2L7assDv CrE7lncI3ObN6xkZ9vfh157ZD4kDsfzg/nd6LCN7yrF8lWev+x+Io3E8L4yP BASSPRVyEJwLDG9sQvbLlGP8vr1rZRz/PlGeMK/XOSOyXz5y6LjWgi38e5WD ZnDVsVRDsmexHApTq3d15vWNSg7igoOPMnKJS7H9rQsW6z7l37McZN5Phq/u 2eIfV8tBotd/+eUVbF85KMeM+GZ4gLgW26/+9HrWZ7Y3jid9zIT4YWSvBhzP oGaGx4OIBaEA3mZzqs6w/UNBYurX4S2vd4ShIDW6Nvcz51ONQ0Ed/W7S43ac r0a5f1S9ajOxOfLkTzfie3K8RN5fUDV2P7EV8o7BJmpLjp/YXvLnguWnie1C QTndMbl6PO8nQkHe7t7KrGW0XnXG8r+dIwIcyZ5SbG9g7r4d94ndQ0F14fjM k1KypywUBG7Pok++Jg7E9nwnz87z5PkX+9Npc2UN7/+ikX/PfGUZwvMxttfK 7OxDLbJnJspLY1w8Ynh/Hgoih/OuX5qTvfJRf2ER0T2n8u8V5X11ttonsv1R vv7IfvfbbP9Q0Fj/ObHWiOxbiu0fmn51wxzichzvyRZPg7LJntXIN5KarXrE 9g8F8W/rMRIR2a8W2/vtrui7lFgTCuV9l//9sZPtj/qKjUw+U8v2DwPN3Tb2 gf3IvrphAH4zLHt7sv3DQG7WdOumxWRfY2TzsglXX7H9w0Blt3r5q1VkX3Os v8qh1QcN2z8MBG0e2qr9yb5WYbi/cm1X8pPtj+X7jIkN30D2tgsD9Y+i/cO0 OZ6GgTCx6aUVF9n+YSBzPJ62vxmtj6TYfkiXTTeSyb7uYaBcNuJB3/Ycb7E9 vVd/fbKJA3H8TUe12WXK+ReUP7IzvridODoMpH2Mu97oxfMxPt+6PQPP7WX7 h4Hi/M8+kg48P2P/Yd+nDJ1LnI/j8z79t3UO71ewfiebaeoatj+Or/syq12m ZF9VGEjsTS4vlrL9cTzrpvxqu53nc+SLN2pOPGf7o/7mhXvN7kn2U4eBeNek 4lo3tj+2N+H9KVk+2x/t23LShg9v2P44fr0ezZewvQUb8fc31fm6B9sfeVjU mr4H2P4bQXRg0N0/j9n+G3H+2+CWxvsZ0UYALc/D7V6w/TeCNH+1KsyN8wUb Qbn2VdbDWrb/RpCvG2EnWsX5/Y1oP1WF5D3bH9vXuWm32ovtjxy8f7//J2Ln jSCLc2h2dATbfyNo6v2H7wwidsf2mp951H4N2x/HM9Vuya0Gtj8+3/bDOn5B bH8czyeT29qNbH/sT5R3I3Qd2x/H39tZu+4P2x9Zt8cYEbD9sX7YiO7n5Gx/ rL/rw0Dnc2z/jVA48IzHyyZkv2Icr0z0yH0c2x/HNy824lkYyUs3gjBk9UpH Xj+Xb4TyFlaK4qZ6ZP+NoHjs9MvIlli9EcTyfoXLw9n+KO8uOlJ4ke2P49mX qqvRJns2IB97XtRzAts/HGQZK087RLD9w6F8wYYefpfY/uGguO//IV6H4rFx OMDmLd1yJxCLwkHdZNK5bRHE5uEgd/LZMSqO7R8OSv3AA6KWZF+rcHqfkO2P 9V3+5h3SI/vahYPqS8i2BXyeJsH+Gg33fufzBudwev+Q19fhILIZ20SjS/Z1 DwfNLonY/CL5gwzbSzjwfnNzsm9gOL2vyPbH9ieKDguakX2jkceY/GwXwfYP B+nIEDt9LbJnZji938j2x/7udn71+f/2R74eCs4qtn84CB+ecSz6y79/1I/8 paj5GLKvCtsbp3NQsp7tj893sG+T5BK2P7bnuqhzaSP//tE+BnubfB9F9lXj 87i3Ku4UzPZHnpwwbthJ8g8Njn+z2U67H8QN4VC46tZzByu2fwTAwwgtxzVs /wgQWNroTD7G9o8A4bPXH4d94/gfAeWB/pc7W7L9I0Bx9E58vQ/bHznszcRr h4jFWP6HsiFVQ2wVAYXLH+10GkjzOUSANFew07iGf/8RoLpZrh3A5x0SHJ/k uc+5Kv79Y/nIt99/zmT7R4ByTmpm99s8/2N9ccQiq+n8+48Aud6SmdbX+fcf ASKvy8ED7Nj+WP6smSxqCe2norF8Q0j0o7Fs/4j/8jXB2Wf494+8Xfh0uwnb H/XjPu3Qx/lsf3xek1WHh2Sz/XF8kp61nvx+WnEEiOssZ29rz/ZHfVhJBNed 2P74fK/7vq1LYftHgKRlQAft22x/1K9IHWfYmu2P8lbtpnaaxvbH8ZmfcTaO I9bg+CzDig2uEjeg3E3H82cztn8kgMebkMe2Lcn+kSBefqP2RBixMBKEX6cd jVex/SNB1U/n1ew/xKJIUO6MXW9szfaPBGmQb9jttWx/bH+i47fQ42z/SHqf lhgiQV4xcNjVweQPdpFQHjCppVRGLIkETUXkgg/7Of5Hgjq0VlrL/iDF/mx6 t37uwPbH8ZX998frP2x/2j3lzkls/0h6X5fXfzj+9F+7zTj/FR0Jitshfi/n kz8oIkEwvKeLdDDbP5Le7+X1XyQU7rQPKuD1fT7qq2O54WMJ2x+f56S5U/P/ r/8i6X1gXv/heEb8qQJdtj/2t32SyGEC2x/15/TXZC7Hh+pIen+Y13+oT+cR tpJGiie1+PwV/r5jRrD9UX9f0lx7BbD9I+l9Y2JBFCiCqrIefiTWjQK5Rvli jwX//qOgsO+WP14r2P5RoMzsUtd/F/mHKApE3u77nz8jNo8CzZHrdsld2f5R ILNIVA1zYftHgdD3W4eKTLZ/FKg+2jquqCS2iwJBTYnP9zZsf+zPdmtI8HS2 fxSI9Xv5NsQSS1H+Ln7u6ivE7vg8a/WHPGjK838UgO0xnfVyXv9j+27zMof/ 4P1fFKgLV5g99eb1fxRIwbYw6C3v/7B8/YRx2kt5/4fthV1Wr3vI+z+UL+yY 8nom7/9Qfj/BZWwZ7/9wfPHDd0zoTvuB4igob6W1b8lCtj/q49mV0jU8X5RG gcQt/294FXE5tvdB5Rjblu2P9jlncSlqOtsf9WGqM29dLO//8HlGLjZadZn3 f6hfu9n1Ei22P47Xv15n4Gi2fzRo3s4ar8P7Qd1oUFXKD9/l98GE0SBdEjE7 +xPFD+NoEJ/zHDy3P9s/GgTmEycL2T/Msf7dtlvO5nG+PBr3qw+GLFdTeSus 32WrQfMu+mT/aJC5LR2wdQ7bH/tz6pU1MJX3/1h/8UtJ8U1iZ5R3ynUeocf2 x/ZEtkcOT2D7R+P+pHKpWSixDOWCCasTTxMH4vjio+5o6onl0SC6mbhp6hDy l+hoUKrSA20ecT4W+/s5M6FiJvlDJj5vo9jb5RqfT2H5k036VgL5Qz7KvTNK Rh/n8yqUbz87KKs/+UNxNKi72sa/2EGswvGF+68QGrD9sb/lp3R627H9sT3T uybDNpL/VEfT+/PEamw/8F2ZzQ8qXxsNhdd3rBhmyfZH/c7MTOjtRdwQTe/b c/4nBkRRioAvL4h1Y0AePGrsza5s/xiMfz5bts0jNo6h9/OJRTEg1T/TeXA5 sXkMiId7jP2ox/bH9udUa+/k9aZVDL3Pz+cnWN6hheznSWK7GCi0mWuS/Y38 RRIDmonrfAeLyV+cY+j9f/IHaQwIrtn2nLaT2D0G1OHLIm894fctsL+nTjlT OrH9sb9RN9zOOLH9Y0AyMqqubxJxNMqrRlgorhIr8PlmZ/f7wPNJJsqdXN7Z 8vmKMgbg9CDvtEDifOSt6WtPLON8PfLUgh2jHhAXI89r4naQz8dUqM/5dZeM LhCXojytpHTVcD7PxOf5e8W3aB9xdQwo9/Zzq2/N+V3Uz8YHqwymsP1RH7tS p3UJ53wvthffYGB2hrghhr534Px/LMjCxg81HUzxQzcWhOtctwk9OB8cCyrD 3d9/7SQ2jgXBmbzh6iecH47F9fs3t5KObP9YUFgPjEqdSSzG+u1eZy9JILaK hcJWhXl9rxAD1j/deXedgO0fC6JeJ/N2jiSWIJ/vqHT2I3aORf+8kqPN+1Np LEgOTc/e85r8xT0WpFYjtkzqRv4iw/Iurfc+nkf+EBgLyqdzVJ6cX5Qj62Q+ r79B5aNxvPKZ7YOaG5D9Y0ETpT//G5A/ZMaC+Mb4ohX8PogS9RcaaHbvCHE+ 9jfL/IDNe+JCHE/wrZmbe5F/FOPz767t8H0RsQr7b/u+cVIWcSnqb62TTuod 4nLUtyh9yL2WtB6pRn2V94g1msDnO1j/7Ov2m3j/Wotypw++3zz5vAefZ7C1 eNJT4gbsf9uc/Et92P5xIJjY5r16CbFuHCg7HHf/xvkLYRyojx8xaVpJbBwH MFfWSq8V2z8OFConG71JxOZxIJx4paCpnPxJHAeqKotF34tJbhVH37Pw+VEc yE4v2HSlrxbZPw7kj+q67uL8lSQOJHmfv63LJXaOo+9fiKXY/my1omMr8gd3 HP+z9fMecb5SFgea2TpB2RuIA+Poexl+fy4OpM37XhR8Iv+JRq7x+7KnD/mH Ap//hiDMfglxZhx9X0OsxPaH97q87i5xPj6/22K5vj7bH9m02440W+LiOPoe h/xLhc9/ZUm/5KPEpcgHgtN1PvD7LPi8+pO8fdl/qrE9PYNzDxby+S7aI9go alQGcS2O9/n2S+m3+LwXxxfQuP5Nc/KXBixv7Hp0GBAL4kG0oPOqdYHEuvFQ nrBke0khsTAeYFfggvpaYuN4+j6IzwfjQdm8ufsczn+Zx4O64vupdcl8XhgP hWl5uZv5/MkKudJO/zjnQyAepOpOBtdGENvFg6JYsq3Km88TsT2Trtdr9hA7 43gTTsTXPOXzReSxjrWVHWl94h4PmiGd1KUOWv9Yhu11HRtwNIY4MB6EG74V 5JwjluN4klwjg38QR+PzOJzUnjWI/EMRD+KYbn3NeX2Tifo5e6Hhq5Lft8T6 tld9TlUT56O+BszNDhaSPxSifF6W91A74mJsz/vAz9oNxCp8vmenhm/i/VEp 9l/3vK/NRz7PigdB6qSqR73IH6rxefY3sw5cSKxGezwas1B/E3Htf+WFY7Jv EGtQH63S1d10Wv3jBuTFtbY7rIkFCSDyNPM09SN/0U0AqF28MHUfsTABhM7F HbSeExsnQGHH0bkrO5E/iBJAslD3Q5kDsXkCiPv3a90nhlicADLXE002qIit UH7y4pWb9cSAXLJgqfFAWs/YJYC6MrVqvhuxBMczyb9H1mbyH+cEUA1sbV9e we8X4PhjVzs20Sd/cE8A6YAcK4vxxLIEUN7ZJnDg8+nABChvGVvgdYhYngCa 6fNHR9cSR2P5T52Ls7uSPynw+fvd7rx7ttY/zkyg78uIlTj+AvM9+znflo/l 79yq2v2LuBDHa+//PWcw+UdxAn2Pxu9Ho37uFRv6sD+VYv9fHds53SMuRw57 LhS3In+oTqDv1/h8G5+3ZcXvymDiWmx/Qe8vWw8TaxJAUD7n7dI3FN8aEuh7 N37/JxHX/31f3Z9NrIs8vfhDXAKxMBHU9g0CK86/GyfS93H8fiSWr5o7Zf0g 8g/zRJBvXhBh7E7+JcbyftW3C7YQW2F794oHjark94cSQTTs3a4LHN/sEkHy ZeGQieOIJYlQ6N5YfZ7nJ+dEKH95IGvEQWIplj+0aM3el8TuiSBtUe/brgv5 jywRhD1dkoMciQMTQWHpf/t+NLEcyy/pPWzIWeJobP/u7HOR3/h9JHy+Pa/8 KvqRf2TieLVOOHZZwu/nYfv1B1wW8vlqPra3LT8t+yZxIbJxRGO5ttY/Lk6k 7wGJVchXFiy18CYuTQTxQEM3h93E5Sg/b6KUPeL8L+pjyxzDWEP+niER4FnW uc2TiWtRXni6YB/HOw2Ob3BG1ZGjnP9NBGXqXzhWx/mfJCjXvf7+cDfyF90k EJTdeLyH92NC5K4P2+UkcP43CYT2l9IiL3D+Lwnjw4IFHj84/5MEylg/b3vO 74mTQCq9f6cXn99ZYf3seRt/ZXP+D/nYpfBr5RT/7JJAPOZ1dWoz8hdJEhTe iA2dY03+4ozcPFjezofz/0mg3hZ678ZuKu+eBHLp8mj5I2JZEig6fE3rb0j+ EZgEooIPfyrsiOU4PiOT0oD1nP9DfTjbfm5bxPkfrJ9mvmHPG+LMJPq+kvxF if2rhpRecuLzvyRQTX0cNTWWz/+wP+1ph66zfxWjvlaPmTjxG5/fo367+dmd 6sv5H+Tb+Sf6Sjn/gzwpOyctnff/WH+ZtqbhGu//sf/e24vnCLT+cS1yXv/6 wqHEGqxvIN2vvYq4IYm+9yQWKEBelxWVw+spbQWIZrQ++Jj3b7oKUK1tPqsL 0PpIX0Hfh3J+EHm8Y4+ovVTeSAHqsy1nFD3hfJEClGfaCWqMyD+6KOh7UvYf BUgXPWnoxPHQDNt79mf84CL2J2xv34DOtm+ILRT0/Sn7F5Z38PebM5PYUgGC 3i9/OEezvykAhndoO6uE2FpB36uy/+F4UlY2selN/mSL5Zs+fmjuQmyH7f88 PqN1MrE99r9660LNJfZP5KCRemU/iZ2wPfcBTtsH8nyF49/ddbSvK7ELyu8e ujo6i+cv5ENRDdo3iV1xfEPGl13SIv9wRw6ImBg6nNgD+7v4wX24B89v+Lyb TIfWKon90H5JRwpSK3m+Qw6fenuEHq3HQ7C/NRvzHowmluP4cup7B/iSP4Xj 888cv0A/n+Mh1h/UZOLmGuJ47P/HtefmbbT+sQL1s2OE1cEJxGlYf85LWzHn kzKxP9mylgUHiHMV9D0vsRJ5onVZagfylzxsv6Tk6l/+Pi4f2zdcEeXG+YIC BX3/S/5XiOU7x042e0NchPqyMnMINuH1FupHd1DXGw7Ep1F+DY52jOT1F8ob nhktPkl8Edsft2vMjg+8HkNOMx6u7k7+UoZseKWxwxxen+P4u45OmRJHXIE8 s8WPNWd5vYblI48MVn4hrsHxXr8MF9jf1Kgf3zKzp/OJX2D5ltPUP5J4PY/t LSz3M7hI/vUO7eX/6HnnBmINls/5OaCnBfnPV+TZ++f0kfJ6H+t7BS0yT2v9 jxtR/uHlpO6lxIJkkJr4tu3QSOW1k0EZladqJib/0U0G9Y9fMz8tJdZPRn/6 eaMqg1iI8kCR+Ph1YqNkkHu+D075S2yM7Y9RH3YfQv7WBVlvTdWI5cQi5CED a3VyiM2SQeAa8absJrF5Mqjivj1M1KL4Z5FM319r/WMxjlfdOrvpSmJL5BkH 3I9tJrbC8iNnDHC9TWydTN9rc/4J5T3W5hXyeZgt8m7NnBl8Hm6XDHB0ku6b rcT2yfR9N+cnsL/8FcsMmpO/OKHc3aRd5kjOV6HcLeyKiSfJXZLpe3DOX2H7 7fuO7MT5b1d8Xm3Jb4Uu5zOxvYL3pVrWxB7J9P045zfRHr+mb7i3ndgP2UHj MbKK811Y/+xF98wW5E8hyfS9Ob9/j/0fPqmYICMOx/G5FZ1N28H5UJSnJ2s9 qSJ/i8f+t52eZ6bH8RF53NarrjbEacih2yVKGcdL7P/UgE9VO4hzsX3lvgLd e8RKlA+Thw/VI3/JQ/uvalFywFT4j/ORM1wngRVxwX/96V7csoPjK47P07Jz cRVxEcoXH0ova0H+U4zPa/bMssaa+DT2167Pz1defP6O5etev3q3nfgiju/o hsb3lfw+BvJDifVbXfK/MmzP9NTup6OIy7F+hglUeBJXIJ+qanZ+G6/XcHxz bX/vrdD6xzVo36wLZknNef2G3OTQek/Od73A+t7u+pNX83oOx9tzwi1T3h+8 S6bv93l9h+PpVP3jFJ/Pf8X+8sa6brQibsDxaw9vMXEVcWMyfe9PLEgB9Usz 3ZJy8lftFJArr7t6N+X9APLueU26DSPWTwFBVO8n1915f4DcL+qvdw6xUQru 528sNbzJ+wWUz5phUCggf+qSAqLMhb8ncb5dlALQefrQh/z9hxn2d8jr2IpM 3k9ge8lGYV+uEVukgGpmQlbgb/4eIQWU3/r8aeB4a4n174045MfnuVbY35mW RXVpxNY4nrvvmy+8wvtPrJ/X/8D1H8S2WL63cb6lBe9Hsf+iH98zFxLbp9D9 Brw/xfH0dS/bs5j80wn1mdi/viKI2BnLz9Pd8qs3+ZNLCt2HQCzF/lp+FCbH E7si+5yoqjhD7I71h5T+MvxE7JFC9yeQf8mwvMVN9/BZxH4o3+Zw5GgUcSD2 93bQkmcniENwvIeOBOi9I5Zj+3qdP/c3pfgZjuP33Vdpz9+XRiPf3919eRhx PLaf5vggpIjzI9ie2/vfCa+I01D/G08kZhtzvgzHF1OfsH0KcW4K3efA+TOs /7G0Ju8AcR5y0YMBW9Xkj/lYvt/8r2ltyZ8KUuj+B86vYX8ntzz2CSAuwvqF D3Xm53O+Dcu3C945+gHx6RS6L4Lzr1j/+E3HBhvii1jfuWHJTS/Ox6L+Bnhp tm4jLkuh+yU4P4vj694neqgO+U8Fyi0fpf0Yxvla1N9iVY8T7sQ1KXQfBedv sb/3H8v6llE8foH8IP9NzW+S12L7TVcmxHJ+5F0K3V9BrMHy5tWe1SnEX7H8 /PcHAi8SN6B9hz0MMvpO3IjPa/P2TWUq+acgFUSHIhZsLSDWTgVBzqFBN2L5 PCAV1FMbrOacJtZHbiu8U/OeWIis0+fPAs6XGKWC6rDPmQcSPi9MBamoi9HM MOIuqQA3ZwquHCEWYX9HJ4UPe0lshjyp57Zt7fk8GcvLOjrr2hFbIGdI9q5c SyxOBWXu98xS3n9YYv2aYT271/B5E/ZvYS1ZY0D+ZY1ytbhz6Wg+f8bxXxwd ZSQjtsXyPZPSXTg+22H50imTlHeI7VPpfg8+n8bnXZiX1WkosRPq0yHZ2sGN z6ux/MaoqI0ZtL91SQX5gP3Bh0r5/BLLtzTv9PAHsSvKZ5i4Cvrx+2xY/9Ch ed14P+KBvKzFX5sEPt/G8YnsHGefIfbD8bRLnrXyI3EgPt/PZnpBIvKnENSX dpksgvN1cuTaJnHxYcThWP7R1blJR3g//J9+bR8nvCCOT6X7ScifFKivp3f0 108kTsP+F/c84bWGOBPrSyqSBjiRf+XieH1KRDs8iJXYn+ZE1368P8nD+m03 nmo5ijg/FYTxP/S+HuX4nwrlfQyNpTeJC3E8uVYt025Q+SLU37QJ+Uv/cPxH fdkt1x04kPzrdCrdl0KswvENd2p/QkF8EduLcby85hxxKcofl9kM/szxP5Xu VyH/K8f2jTKismcSV2D58PYuduHE1cidvBs/8X6lJpXuY+H4j/rY02anVXvy rxdY3nPjwcqJnM/D8l97x3quIX6H/X03HNY0n/N7qL/i+UWp1Rz/0R56hs1E LcifGrD8uGkW+SOIG3H840zMLVZy/i8NwD/95z7Ox2ingfr2lbze1zn+p4G0 +lLvrb/If/XT6H4YWg8K00Ce6346lP3TKA0EhgPK38Vzvhh5l+DczBKO/2l0 nwzHf+T0FqPbmZJ/maWBSm9Bmdd0zidjf7fqR13m/IxFGt0/w/llbD/K6oLb E47/WP9XfU1ha/I/K2z/4qCa72OIrdPovhpiQLnnuKQA3j/b4vOPGzihsJzj P5Z3PP/ipYD8yT6N7rchlmD/A7Re2i4mdkoDxRF1j+OlHP9xPA96ll1VE7uk 0X04HP+xvc1Pm93pRv7lityrsVedA59nYPt5f60EPH964HjWfLZpc5jjP7aX /mCY6TOO/2iPsBKz3m3J3wKR5yh1LcYRh+B4SqKeW/gQy7G/T2uO9dnO8R/1 ccEvrPsdPg/D/tNC7TpoUTyOx/7mbWuhO5jPx7D9LVWXvy4mTsPxre8R+iiZ 4z/2tzdmxPlzHP+xP3e9T9s/cfxHecqu/A3dyN/ysP2MhYudHfg8FdtfO7hL f36fowDld7s9+F3I8R/7u9Mv95qa4z/yqBlLU4V83poGSvdYsTMQn06j+4LI f1X4vO5jnlZuJb6I9Z8cuZzI52el2L/r0GPj/3L8x/rjVYVfB/D3djgeqeT4 toUc//H5LJ9em5LI8R+5YvW7jyUc/7G/Ok2X5Pcc/5FPuS4YYEL+9gL13e3C gSv2xLXYf7JO2wUhHP/T6P4ijv84nqWd2oY85PiP8v2PCnVakn81oH7vuC2L G0ncmEb3HREL0kHcqiLmUhnH/3SQNe6KCntBrJsO8m7pZsENHP/T6X4k8jdh OsDwj7f292vzj42wveSXTZeOJzZOB/XYAQkWxzj+p9N9Shz/UZ5q/vW9Efmb GbZvufueHb+PaI7tm6yq2erL8T+d7l/i+I/1FyZMG8f+aon1W5afSmhC/mqF 488Xzajk90es0+m+Jn7/KB1UXQtrnZOIbVE+slyTdobYDvmKqtuN9xz/0+l+ J47/2H/k7SaD7Tn+p4Py/a3DC4M5/mP9gfMVUXuJXbC83+Kcgvsc//H5Isor buiSf7ni85Wm29QN5/iP9W23VGkv5/iPz7e9StlpE8d/lPfpt9niEsd/lJ+P Khv5lfw5EOXf7w2c0IPjfzrdN8XxH/sL/ps+PZTjP8q1C7Kn8flvNLaX/b3K jufX+HS6n4rjP8od9X8OseH4j893as+zHpyfzMT2z8c0E+YQ56bTfVacP/9P P4ebPmrg/T/2//Xq4xLeL+UjCy80ZM8mLkin+6+IC7F+s6DvZg/IX4twfMsb Sjs/5/iP3HLN6zdtOP6n031ZHP+x/qDAj0FeHP9xvDMuPrDZwvEf+/tgov+7 jON/+n/3f4yrWUf+XY7+vsG2u1U6cQWWt1w8zWwux38s71extSKK4z/6z5hL 1qHHiNXYX0m7nn1fEr9A/RTvnnvLkPyvFnmXy0PZOOJ3yMp2+1p5E2uwvvuR q/lbib8iu7a3GnOTz/uw/zzT+tuNxI3on0/2NV/cj+K5YBMI/DavfDeXWHsT qJbfEflx/lx3E87Xffo1HOP9/ya6H4z3/5swfh8b882Q4/8mkLvlT/Xk+wKM sXzykIPPOb/UBdtrPXTVrK0c/7H+xhj5hRu8/98EouEGmv6NvP/H+qLck2l9 Of5j/cdtntY7c/zH8Z+c7DonivZPlijPM51w5Cjv/3E81qvCW/L61XoT3VfG 8R/rj6zodgg4/m/C/V5e6B9Pjv9Y/oPjeLvNvP/fRPeb8f4f27ct/Fj+g9gJ 619oXdPanPzPGes/Pth/Kvuvyya6D43jP9bvINQ+fpj3/yhftz72tZr3/9hf q9i1Rq05/m+i+9M4/mP9XbfTlq7i+L8JpPNOnI/I4v0/1k9Od8m7wvv/TXTf Gu//sbzDhntVPTj+Y/lPQ0++deD4j/0pO0b+Pkv+Hb8JJPKer5veI1Zge9mS Jm1qqHwa2su8w672euRvmfg8/t4lxlbEuZvoPjdiJfZ/r++ktmnEefg8tf1P tTjP+3+sX6i/8/dH4oJNdP8b+Wsh8sttjx5MJS7C8Vz70f/iWuJiZCdZ/Z7d xKc30X1x/P4N8r2GhpX8ft9F9IfSPYMn8nl2KdaffrzWhN/XKkN9mGo6f+b1 bTmOT9n9xvmTxBU4/rddfifV8vs6WP9SQcHc9hz/kfdurelqy/Ef+7t0PuGZ N/EL5C/PVNu2kj/XYn/nywIW3CD5u010fx2xBtv729/zmjnHf3webZtDwbN5 /4/jeWQb1Cec9/+b6L47YkEGqN+s3Bb0hFg7A6RTTZuYGvD+H+WPvr4p4fWD fgbdj8f7/wxQ7hw870s6sVEGqHZYPI++QGycAaJlXg2deL3bJYPu0+P4j/J1 n65Z2vP+H9u3Phdzei2xOcrtfq9SziR/s8ig+/dILsbxRV3pOUaL4z/KR7zp dWIgv2+M7WUpTg5cQGydQff1EQPWnxKT27aY2DYDZH2GBJz9TP3ZZYDYWlPr 26LtP7bH8jWnp00D8kcJjs9ZJT24mtgJ5WsOtmyVw/n/DAD59BkrSoldUF+r Fluc+0YsRXndvh3tepA/uqLc7dNRNwmxO3Lj16VF/L6YB7YftvbAn73EMuw/ cuymCdXEfqj/Ka27xPD7PoHYflkeXB1MHIL6OXNBu5mU8//Icf1XjOF8Qji2 N3uHpz/7czTq6+fLdvmvieNRny2PLbpnxPl/5Iq79k35fY005Ll/H/Xz4vw/ 9j+nwdAhl/P/GXSfIef/8fnsJd7J34nzsP95/bMLevB5egZImq0cusSc9/8Z dP8h5/+x/MY1zd7u5fw/6qe35k79PT5vx+ez7DtFS4fz/xl0XyLn/1EO90YZ LOL8P8o1F44bcD62FOUrlj3VO0FclkH3K/L3uTj+9sfhV1vO/2P58sdrPozh /D/aY97eRY89iGsy6D5G/n4P2/tubFt0mfgFypcOGpf9hbgWn9el+kuIiPzz XQbd30iswfI1LiO7lJC/fsXx7zuyPfoucQPyl5iyV3epfGMG3fdI/ifIBMn9 aMHF9uTf2pkgbvhyr09/Yt1MnG/bGXeJovL6mXQ/JLEQ5aNmddjB+VqjTBBt qzq42ID80RjL2yRom4wk7pJJ90kSizIBbPxfxqQSm2H9OEPfUSpi80yQvlSd ffOO2CKT7p/k94uwvZNds6wnElsiG1j3furD7xtlgtrEZk0Yrzessb+iezGi Mn7/CHm2atGpBj7/x/J2+3449uT3kbC/JHvn15wvs88EZd2ckEDOR0iw/hO5 W7N9xE443r1BHZL5fMsZ2b4hyVib/NElk+7DJJZie7cmPzBZQOyK+vQI258T w+f/mSCzCO/Zcj75vwfK8y/fn+hNLMPx3j3/uklr8kc/HI/JvFofzp8FIvfT Pqbm89aQTLpvk8//cTzTZp46rCIOx/Gazv3anvO70SgfOOT3Gn6/Mj6T7ufk 9+NQ33e6h4p9iNOwP/OM31G8fs5EnrjZvuYacW4m3edJrMT2D3ZcFszrjzzU R+m7gZdnEOfjeCa1LDcIIS7IpPs/+fwfednTlNQKPv/H9p5+OXab/bsYxxvS /Ih+f+LT6O+RL8ZvtyD/VmH7qZ+zT48jvohspntm7yEqX4rtdXssuv+IuAzH 96vtIm098sdyfL5ZjmsthhFXIKdMkjksIa7G9h5stvVNJK5BubGgPvkksRr5 p3H0/lfEL3C8n1IaLrUl/63F34+l8eSHo/n8H8dzyjHo/Uo+/8fxjHsX37iJ +Cvy1MRQ3Qv8vie23/mZcxvOBzcin1QYdujM7/9mAXwfd7jjJD7/zwLB4m1D O/ry+8BZoJI4bWm3lVg/C+Tqpu9bXef3g7G8Zk53HX6f0ygL1D0aRjfw907G WaB8GTe+djpxlywQuZ4UVwYRi5BT+zY/u4vYDNuz2Hhl5x1ic+xv/0qfmD/E Fll0/yr5vzgLZMoxl3rsI7bMAqlFQ0O3MPJfKyx/JMPpx35i6yy6r5UYUH79 SeUWHfJHW+Rldxo9BhHbYf8HNxhaLSC2z6L7XYklON66nLaXioidUJ+dZjZG qomdUX++s6on6JN/umTRfbDEUuR9V1ecXErsiuP/HSqSJfH3DFh/Sduy7qeI PbLo/lhiGdZ/MkF7Q1vyTz/knf1TzEcTB2J7NQEdbq0gDsH6uxdPOTGF/F2O z5tUpGd4juThqJ8fdWsL3/H3EGi/2RHePeOpfDzWv+7c49M2YgX2tyJ0Z4AX +W8a9re1k0A3hzgT2w8xmbPpMnFuFt1nS6zE/vqoG/eYkL/mYX8rn9gPnEyc j88/4krOIT/iAqx/edhbsZK4EOUtbljtv05chPJL5tG96omLcXwRtdW53Wk9 fRrttWVvP+F0YhXyAINQ+Vrii//Z98D993nkz6U4PtN+w5zLicuy6H5dzv+h vOXA3z16k39W4HjsNe4R/L5pNbY/Revhc16v1GTRfbz8/Ra2dzu2IqOC83+o L62RC97z+zO12P7ofR/G9CN/fZdF9/cSa7C9inEDakKJv2aBuH35h5Qq+j00 oD0i+2d6VHP+L4vu+yX/FGSD+vP4QZ8GEGtng2quVpuB84h1swE85v9ZEUGs n033A3P+LxtEPydo33vI53/ZIO/Z0rRFc/JP42xcv9yZZDWYuEs23SfM3w9i +VZlNxKiOf+H7WWK+xUd4fxfNiin/Mq+95jzf9l0/zD5pxjHY9CzqN1QYkvk hKKFYs7vWWWDOE6ndd4E8ldrrC9VfXY5xvk/5I+rHnk+5fwfjs9o5+N1+vw+ Ko7vnVZ9zHBieyy/pEvvVJ7fJaivAdFeWQnETtlQvtLTfXoN9eecDYVO1Ttv fiJ2wfpXs9TZrcg/pajfHgMU6SOIXbE9WdP5Ca78PivqY+TBsWFJxB7Z/91v a+t3kt9vxed1e+K69CWxH7b/KGH7DCH5cyC298vtj9Uo4hC097S/gV3diOVY X1zXtmkycThy2Zmy56eIo7G/Tq12n3tFHI9y72EON3XJvxQ4/mLPs37WnP9D brL7z+TlnP/D/j/mS7vw+XRuNt3nzPk/5JRZScWvOf+HfKzngrC2nP/D51mk J5lsw/k/HE9ZursB7z8LkVvM230zhc//cHxfavUTSjj/h89rWZFlV8vrf7Tn lP3Tmxhy/i8bJGe1Nj00pfXyRSxft3rwSnfO/2H/IWuWdErl/F823S/N7/9g +XOFY31qef2PPK/J546GnP/D+mrLm2dsOP+XTfdRc/4Px786XF+Qyvk/1NeD s165JcS1ON4mJk2G1fL6P5vur+b8H45n9NpCqQ3n//D5x2y69Wk55/9QfkvY VZ7C+b9suu+a1/852L+zQ9prfv8H+f3YoZ3akj/rIj89N3WzNZ//5dD92MTC HBA0P902J5nYKAeUlg4X253m9X8OqG4e3pvA65suOXSfNvmrKAfUyubxJ00M /7FZDhTebiP5PJjYHPvfOHyRg4LKW+TQ/du8/sfxVCSGd2f/t8TxLHxbF9ma /NUK+9vkH187gtg6h+7rJgZk+8nBOxKJbXH8vvnXGouJ7ZC3uM6a+ZzYPgfE ztqJd5uR/0tyQHYwqXVjZ37/B8eblTWwxyA+/8PnG7/8g91EPv/D8cQHZz44 xut/bH/sxRQR3/flivVDBpct5fMbdyz/YsaEvKH8/g+292Xnn6e8X5Vh/R8l DV34fQ2//56vm+WsIl7/o77A+VDsY17/59B945z/Q/0dXOb7fjBxOPYn3+WS MIB+D9HYXkDf8RP4faL4HLqfnNf/WF5Qa5bC838a9nf23roiHfLXTHyeHzVd Kjgfk5tD95kTK5GnTRjYks/L83B8Rcd2dD/A63+U958nHV7N6/8cuv+c/LUQ y7d2LHK2IC7KAZH7Eftls3n9j/UPSwd6yXn9n0P3pROr8Hm6Ha8MqiC+iO09 XJUd8ofX/6jvIxv3BZuT/5bl0P3qvP7PAWGLtQ+sztD8XoH1qxwPuO/i9T/2 P6zfdxf+vqEmh+5j5/U/jtd7lq+NGfnvC3y+oYV7+kzn9f9/z5MmNgzk9T/6 m9547d8S+n1o8HkStTt+XEb8Fdly2/6z33j9j+29uR28pSu//4vyLaabgybz +7+5oIzVa+vkS6yNXGL8sO9mYl3kzmUNfy4T6yMv2r2qXEMszAVZQvvsGQbk 30a5IH/gtWdod2LjXBAfE7l2Gk7cJRdUfVde+z2VWJQLmv4JNU+kxGYoV17L VvkTm+cCbL2sB+3Ify1y6f55/r4Ux+PseO4oxwPLXJAaH9zhwfHACuXGV9Si 0y3gfzNeGGc= "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 1806.}, {0, 4.849544897940632}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7792159986600213`*^9, 3.779216328946232*^9, 3.779216384728856*^9, { 3.779216416611274*^9, 3.7792164430797377`*^9}, 3.7792164733114777`*^9, { 3.7792165127144775`*^9, 3.779216534951268*^9}, {3.779216600982625*^9, 3.7792166124377985`*^9}, {3.7792166436034913`*^9, 3.779216653716343*^9}, 3.780423706967074*^9, 3.780430857619356*^9}, CellLabel->"Out[29]=", CellID->161821297] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "Generate rulers of length ", Cell[BoxData[ RowBox[{ StyleBox["n", "TI"], "!"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " and plot the number of marks:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7792168805986214`*^9, 3.779216882055406*^9}, { 3.779216930902331*^9, 3.779216962877678*^9}, 3.858856198032703*^9}, CellID->481245122], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", RowBox[{"ReasonableRuler", "[", RowBox[{"n", "!"}], "]"}], "]"}], "]"}], "+", "1"}], ")"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "30"}], "}"}]}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792168186261024`*^9, 3.779216860428196*^9}, { 3.7804236884244194`*^9, 3.780423694730946*^9}, {3.7804309040550594`*^9, 3.7804309042269344`*^9}}, CellLabel->"In[30]:=", CellID->517750091], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQA2IQDQEf7N9b/vrnpPfMHirgwM28turV5I9QPocDRP4b lC8AlWd0gPBFHHQ2s7CZ9bFD+RIOOU4T9vIt5IPyZRw0VdiffHcXhvIVHBIi w35OzxaH8pUcBPj/JC06Kw3lqzjslxCQ5jdRgPLVHNydT9k/nKkE5Ws4tH65 uPuPqCqUr+UgPG/rxJnL1KF8HYc2acurRl5aUL6eww+1r5Gl/3WgfAMH+d/R G22P6kP5hg7q9fGTXX0NoXwjh1t797vZ7jeC8o0dHmgLLlewMIHyTRz+hx8+ N2W7KZRv6sCky7XD3dYcyjdzeH+49v+7ExZQvrmD/tWo+25RVlC+hcONr8rh gh+toXxLB4Nzi8pEe22hfCuH9ecDj8rp2UP51g6/mTMT/mU6QPk2Dj7bZM0d 7R2hfFsHW7Wav4fEnKB8O4dPLS6mBR+cHACW0HU6 "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -2.21681178306179}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 30}, {-2.21681178306179, 37.87842431874914}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-2.3025850929940455`, FormBox[ TagBox[ InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"1000.0\"", 1000., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {16.11809565095832, FormBox[ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {25.328436022934504`, FormBox[ TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {34.538776394910684`, FormBox[ TemplateBox[{"10", "15"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.72326583694641, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.933606208922594`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {39.14394658089878, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.779216838868514*^9, 3.779216862111306*^9}, 3.780423710833764*^9, 3.780430906023811*^9}, CellLabel->"Out[30]=", CellID->144615717] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell["Show the marks for the first 51 rulers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792171175799055`*^9, 3.779217132260392*^9}, { 3.7804237624510794`*^9, 3.7804237910252934`*^9}}, CellID->505532046], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"ReasonableRuler", "[", RowBox[{"n", ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "51"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792169871829147`*^9, 3.7792170423618393`*^9}, { 3.7792170814067593`*^9, 3.779217082081532*^9}, {3.780423744272358*^9, 3.7804237444196157`*^9}, {3.7804309129769344`*^9, 3.7804309163831854`*^9}}, CellLabel->"In[31]:=", CellID->820659033], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4", ",", "7", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "7", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4", ",", "7", ",", "10", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "6", ",", "10", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "5", ",", "8", ",", "11", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "4", ",", "7", ",", "10", ",", "13", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "8", ",", "12", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "8", ",", "13", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "12", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "9", ",", "14", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "10", ",", "15", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "10", ",", "16", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "17", ",", "21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "11", ",", "15", ",", "18", ",", "21", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "17", ",", "21", ",", "22", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "12", ",", "19", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "10", ",", "16", ",", "21", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "10", ",", "16", ",", "22", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "9", ",", "16", ",", "23", ",", "27", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "24", ",", "28", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "24", ",", "28", ",", "29", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "24", ",", "28", ",", "29", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "12", ",", "19", ",", "26", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "17", ",", "24", ",", "28", ",", "32", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "15", ",", "20", ",", "24", ",", "28", ",", "31", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "9", ",", "16", ",", "23", ",", "30", ",", "34", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "31", ",", "35", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "31", ",", "35", ",", "36", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "4", ",", "13", ",", "22", ",", "27", ",", "30", ",", "32", ",", "37", ",", "38"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "12", ",", "19", ",", "26", ",", "33", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "10", ",", "17", ",", "24", ",", "29", ",", "35", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "20", ",", "25", ",", "26", ",", "30", ",", "34", ",", "38", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "9", ",", "16", ",", "23", ",", "30", ",", "37", ",", "41", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "34", ",", "38", ",", "42", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "34", ",", "38", ",", "42", ",", "43", ",", "44"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "34", ",", "38", ",", "42", ",", "43", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "12", ",", "19", ",", "26", ",", "33", ",", "40", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "4", ",", "13", ",", "22", ",", "31", ",", "36", ",", "39", ",", "41", ",", "46", ",", "47"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "21", ",", "26", ",", "30", ",", "34", ",", "38", ",", "42", ",", "45", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "9", ",", "16", ",", "23", ",", "30", ",", "37", ",", "44", ",", "48", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "34", ",", "41", ",", "45", ",", "49", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "3", ",", "6", ",", "13", ",", "20", ",", "27", ",", "34", ",", "41", ",", "45", ",", "49", ",", "50", ",", "51"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7792170156550035`*^9, 3.7792170429847794`*^9}, 3.7792170827345552`*^9, 3.7804237938824687`*^9, 3.780430917039435*^9}, CellLabel->"Out[31]=", CellID->805577262] }, Open ]], Cell["Show the excess values for the first 51 rulers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779217150931393*^9, 3.7792171672356873`*^9}}, CellID->242113712], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], "-", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", RowBox[{"Last", "[", "#", "]"}]}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}], "&"}], "/@", "%"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792170704621964`*^9, 3.779217100344738*^9}}, CellLabel->"In[32]:=", CellID->403730121], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7792171027248125`*^9, 3.7804237962428284`*^9, 3.7804309223675594`*^9}, CellLabel->"Out[32]=", CellID->959614495] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell["Show the default shortened form for a length-googol ruler:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792141317939177`*^9, 3.7792141701143866`*^9}, { 3.779214248577956*^9, 3.779214251921812*^9}, {3.77921455354465*^9, 3.7792145705927467`*^9}, 3.7792157312664595`*^9, {3.780431153192501*^9, 3.780431154981658*^9}, {3.8588562077360077`*^9, 3.858856246117752*^9}}, CellID->758137479], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReasonableRuler", "[", RowBox[{"10", "^", "100"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792130092603397`*^9, 3.779213017871603*^9}, { 3.7792140221327715`*^9, 3.77921404265796*^9}, {3.7792141881729126`*^9, 3.779214239908321*^9}}, CellLabel->"In[33]:=", CellID->219188894], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "28867513459481288225457439025097872782380087563506", ",", "115470053837925152901829756100391491129520350254025", ",", "57735026918962576450914878050195745564760175127012", ",", "115470053837925152901829756100391491129520350254025", ",", "57735026918962576450914878050195745564760175127013", ",", "28867513459481288225457439025097872782380087563507", ",", "28867513459481288225457439025097872782380087563506", ",", "57735026918962576450914878050195745564760175127013", ",", "1", ",", "7252163784513884271055424611204897949828303347519"}], "}"}], ",", RowBox[{"{", RowBox[{ "28867513459481288225457439025097872782380087563506", ",", "1", ",", "1", ",", "28867513459481288225457439025097872782380087563504", ",", "57735026918962576450914878050195745564760175127012", ",", "28867513459481288225457439025097872782380087563505", ",", "1", ",", "1", ",", "1", ",", "28867513459481288225457439025097872782380087563505", ",", "1"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.779213018635849*^9, 3.7792136771926336`*^9, {3.779214025257991*^9, 3.779214042971553*^9}, {3.779214190545679*^9, 3.779214240936497*^9}, 3.7804238026649027`*^9, 3.780430932189952*^9}, CellLabel->"Out[33]=", CellID->989090931] }, Open ]], Cell["Show the number of marks in a length-googol ruler:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792143177532434`*^9, 3.7792143478412805`*^9}, { 3.8588562165598516`*^9, 3.858856249918633*^9}}, CellID->698375327], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", "%", "]"}], "]"}], "+", "1"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77921429014162*^9, 3.779214303355097*^9}}, CellID->459433760], Cell[BoxData["173205080756887729352744634150587236694280525381039"], "Output", TaggingRules->{}, CellChangeTimes->{3.7792143057574224`*^9, 3.7804238133798637`*^9}, CellID->128770807] }, Open ]], Cell["\<\ Showing the full form of a googol-length ruler isn\[CloseCurlyQuote]t \ recommended.\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.779217407848381*^9, 3.7792174778659463`*^9}}, CellID->403439331] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["\<\ Generate reasonable rulers for various integer powers and calculate their \ excess:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.779217320721554*^9, 3.779217362353463*^9}}, CellID->212625740], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Text", "@", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Prepend", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["base", RowBox[{"ToString", "[", "n", "]"}]], ",", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"ReasonableRuler", "[", RowBox[{"base", "^", "n"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "+", "1", " ", "-", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", RowBox[{"base", "^", "n"}]}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "15"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"base", ",", "2", ",", "11"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.779217224120378*^9, {3.7792172657140126`*^9, 3.7792172902040863`*^9}, { 3.780423827744055*^9, 3.7804238320440817`*^9}, {3.7804309427524514`*^9, 3.780430943721201*^9}}, CellLabel->"In[34]:=", CellID->642203940], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"\<\"length\"\>", SuperscriptBox["2", "\<\"3\"\>"], SuperscriptBox["2", "\<\"4\"\>"], SuperscriptBox["2", "\<\"5\"\>"], SuperscriptBox["2", "\<\"6\"\>"], SuperscriptBox["2", "\<\"7\"\>"], SuperscriptBox["2", "\<\"8\"\>"], SuperscriptBox["2", "\<\"9\"\>"], SuperscriptBox["2", "\<\"10\"\>"], SuperscriptBox["2", "\<\"11\"\>"], SuperscriptBox["2", "\<\"12\"\>"], SuperscriptBox["2", "\<\"13\"\>"], SuperscriptBox["2", "\<\"14\"\>"], SuperscriptBox["2", "\<\"15\"\>"]}, {"\<\"excess\"\>", "0", "0", "0", "0", "0", "0", "1", "1", "0", "1", "1", "0", "0"}, {"\<\"length\"\>", SuperscriptBox["3", "\<\"3\"\>"], SuperscriptBox["3", "\<\"4\"\>"], SuperscriptBox["3", "\<\"5\"\>"], SuperscriptBox["3", "\<\"6\"\>"], SuperscriptBox["3", "\<\"7\"\>"], SuperscriptBox["3", "\<\"8\"\>"], SuperscriptBox["3", "\<\"9\"\>"], SuperscriptBox["3", "\<\"10\"\>"], SuperscriptBox["3", "\<\"11\"\>"], SuperscriptBox["3", "\<\"12\"\>"], SuperscriptBox["3", "\<\"13\"\>"], SuperscriptBox["3", "\<\"14\"\>"], SuperscriptBox["3", "\<\"15\"\>"]}, {"\<\"excess\"\>", "0", "0", "1", "1", "1", "1", "1", "1", "1", "0", "1", "1", "1"}, {"\<\"length\"\>", SuperscriptBox["4", "\<\"3\"\>"], SuperscriptBox["4", "\<\"4\"\>"], SuperscriptBox["4", "\<\"5\"\>"], SuperscriptBox["4", "\<\"6\"\>"], SuperscriptBox["4", "\<\"7\"\>"], SuperscriptBox["4", "\<\"8\"\>"], SuperscriptBox["4", "\<\"9\"\>"], SuperscriptBox["4", "\<\"10\"\>"], SuperscriptBox["4", "\<\"11\"\>"], SuperscriptBox["4", "\<\"12\"\>"], SuperscriptBox["4", "\<\"13\"\>"], SuperscriptBox["4", "\<\"14\"\>"], SuperscriptBox["4", "\<\"15\"\>"]}, {"\<\"excess\"\>", "0", "0", "1", "1", "0", "1", "1", "0", "1", "1", "1", "1", "1"}, {"\<\"length\"\>", SuperscriptBox["5", "\<\"3\"\>"], SuperscriptBox["5", "\<\"4\"\>"], SuperscriptBox["5", "\<\"5\"\>"], SuperscriptBox["5", "\<\"6\"\>"], SuperscriptBox["5", "\<\"7\"\>"], SuperscriptBox["5", "\<\"8\"\>"], SuperscriptBox["5", "\<\"9\"\>"], SuperscriptBox["5", "\<\"10\"\>"], SuperscriptBox["5", "\<\"11\"\>"], SuperscriptBox["5", "\<\"12\"\>"], SuperscriptBox["5", "\<\"13\"\>"], SuperscriptBox["5", "\<\"14\"\>"], SuperscriptBox["5", "\<\"15\"\>"]}, {"\<\"excess\"\>", "1", "1", "1", "0", "1", "0", "0", "0", "1", "1", "1", "1", "1"}, {"\<\"length\"\>", SuperscriptBox["6", "\<\"3\"\>"], SuperscriptBox["6", "\<\"4\"\>"], SuperscriptBox["6", "\<\"5\"\>"], SuperscriptBox["6", "\<\"6\"\>"], SuperscriptBox["6", "\<\"7\"\>"], SuperscriptBox["6", "\<\"8\"\>"], SuperscriptBox["6", "\<\"9\"\>"], SuperscriptBox["6", "\<\"10\"\>"], SuperscriptBox["6", "\<\"11\"\>"], SuperscriptBox["6", "\<\"12\"\>"], SuperscriptBox["6", "\<\"13\"\>"], SuperscriptBox["6", "\<\"14\"\>"], SuperscriptBox["6", "\<\"15\"\>"]}, {"\<\"excess\"\>", "0", "0", "0", "1", "1", "0", "1", "1", "1", "0", "0", "1", "1"}, {"\<\"length\"\>", SuperscriptBox["7", "\<\"3\"\>"], SuperscriptBox["7", "\<\"4\"\>"], SuperscriptBox["7", "\<\"5\"\>"], SuperscriptBox["7", "\<\"6\"\>"], SuperscriptBox["7", "\<\"7\"\>"], SuperscriptBox["7", "\<\"8\"\>"], SuperscriptBox["7", "\<\"9\"\>"], SuperscriptBox["7", "\<\"10\"\>"], SuperscriptBox["7", "\<\"11\"\>"], SuperscriptBox["7", "\<\"12\"\>"], SuperscriptBox["7", "\<\"13\"\>"], SuperscriptBox["7", "\<\"14\"\>"], SuperscriptBox["7", "\<\"15\"\>"]}, {"\<\"excess\"\>", "1", "1", "0", "1", "1", "0", "1", "0", "1", "1", "1", "1", "1"}, {"\<\"length\"\>", SuperscriptBox["8", "\<\"3\"\>"], SuperscriptBox["8", "\<\"4\"\>"], SuperscriptBox["8", "\<\"5\"\>"], SuperscriptBox["8", "\<\"6\"\>"], SuperscriptBox["8", "\<\"7\"\>"], SuperscriptBox["8", "\<\"8\"\>"], SuperscriptBox["8", "\<\"9\"\>"], SuperscriptBox["8", "\<\"10\"\>"], SuperscriptBox["8", "\<\"11\"\>"], SuperscriptBox["8", "\<\"12\"\>"], SuperscriptBox["8", "\<\"13\"\>"], SuperscriptBox["8", "\<\"14\"\>"], SuperscriptBox["8", "\<\"15\"\>"]}, {"\<\"excess\"\>", "1", "1", "0", "1", "1", "1", "1", "1", "1", "0", "1", "1", "0"}, {"\<\"length\"\>", SuperscriptBox["9", "\<\"3\"\>"], SuperscriptBox["9", "\<\"4\"\>"], SuperscriptBox["9", "\<\"5\"\>"], SuperscriptBox["9", "\<\"6\"\>"], SuperscriptBox["9", "\<\"7\"\>"], SuperscriptBox["9", "\<\"8\"\>"], SuperscriptBox["9", "\<\"9\"\>"], SuperscriptBox["9", "\<\"10\"\>"], SuperscriptBox["9", "\<\"11\"\>"], SuperscriptBox["9", "\<\"12\"\>"], SuperscriptBox["9", "\<\"13\"\>"], SuperscriptBox["9", "\<\"14\"\>"], SuperscriptBox["9", "\<\"15\"\>"]}, {"\<\"excess\"\>", "1", "1", "1", "0", "1", "1", "1", "1", "0", "1", "1", "1", "1"}, {"\<\"length\"\>", SuperscriptBox["10", "\<\"3\"\>"], SuperscriptBox["10", "\<\"4\"\>"], SuperscriptBox["10", "\<\"5\"\>"], SuperscriptBox["10", "\<\"6\"\>"], SuperscriptBox["10", "\<\"7\"\>"], SuperscriptBox["10", "\<\"8\"\>"], SuperscriptBox["10", "\<\"9\"\>"], SuperscriptBox["10", "\<\"10\"\>"], SuperscriptBox["10", "\<\"11\"\>"], SuperscriptBox["10", "\<\"12\"\>"], SuperscriptBox["10", "\<\"13\"\>"], SuperscriptBox["10", "\<\"14\"\>"], SuperscriptBox["10", "\<\"15\"\>"]}, {"\<\"excess\"\>", "1", "1", "0", "1", "1", "0", "1", "1", "0", "1", "0", "1", "1"}, {"\<\"length\"\>", SuperscriptBox["11", "\<\"3\"\>"], SuperscriptBox["11", "\<\"4\"\>"], SuperscriptBox["11", "\<\"5\"\>"], SuperscriptBox["11", "\<\"6\"\>"], SuperscriptBox["11", "\<\"7\"\>"], SuperscriptBox["11", "\<\"8\"\>"], SuperscriptBox["11", "\<\"9\"\>"], SuperscriptBox["11", "\<\"10\"\>"], SuperscriptBox["11", "\<\"11\"\>"], SuperscriptBox["11", "\<\"12\"\>"], SuperscriptBox["11", "\<\"13\"\>"], SuperscriptBox["11", "\<\"14\"\>"], SuperscriptBox["11", "\<\"15\"\>"]}, {"\<\"excess\"\>", "1", "0", "1", "1", "1", "1", "1", "0", "0", "0", "1", "1", "0"} }, AutoDelete->False, GridBoxDividers->{ "Columns" -> {True, {}, True}, "Rows" -> {{True, False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TextForm]], "InlineText"], Text[ Grid[{{ "length", 2^"3", 2^"4", 2^"5", 2^"6", 2^"7", 2^"8", 2^"9", 2^"10", 2^ "11", 2^"12", 2^"13", 2^"14", 2^"15"}, { "excess", 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0}, { "length", 3^"3", 3^"4", 3^"5", 3^"6", 3^"7", 3^"8", 3^"9", 3^"10", 3^ "11", 3^"12", 3^"13", 3^"14", 3^"15"}, { "excess", 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1}, { "length", 4^"3", 4^"4", 4^"5", 4^"6", 4^"7", 4^"8", 4^"9", 4^"10", 4^ "11", 4^"12", 4^"13", 4^"14", 4^"15"}, { "excess", 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1}, { "length", 5^"3", 5^"4", 5^"5", 5^"6", 5^"7", 5^"8", 5^"9", 5^"10", 5^ "11", 5^"12", 5^"13", 5^"14", 5^"15"}, { "excess", 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1}, { "length", 6^"3", 6^"4", 6^"5", 6^"6", 6^"7", 6^"8", 6^"9", 6^"10", 6^ "11", 6^"12", 6^"13", 6^"14", 6^"15"}, { "excess", 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1}, { "length", 7^"3", 7^"4", 7^"5", 7^"6", 7^"7", 7^"8", 7^"9", 7^"10", 7^ "11", 7^"12", 7^"13", 7^"14", 7^"15"}, { "excess", 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1}, { "length", 8^"3", 8^"4", 8^"5", 8^"6", 8^"7", 8^"8", 8^"9", 8^"10", 8^ "11", 8^"12", 8^"13", 8^"14", 8^"15"}, { "excess", 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0}, { "length", 9^"3", 9^"4", 9^"5", 9^"6", 9^"7", 9^"8", 9^"9", 9^"10", 9^ "11", 9^"12", 9^"13", 9^"14", 9^"15"}, { "excess", 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1}, { "length", 10^"3", 10^"4", 10^"5", 10^"6", 10^"7", 10^"8", 10^"9", 10^ "10", 10^"11", 10^"12", 10^"13", 10^"14", 10^"15"}, { "excess", 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1}, { "length", 11^"3", 11^"4", 11^"5", 11^"6", 11^"7", 11^"8", 11^"9", 11^ "10", 11^"11", 11^"12", 11^"13", 11^"14", 11^"15"}, { "excess", 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0}}, Dividers -> {True, {{True, False}}}]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.779217248127053*^9, 3.7792172909698534`*^9}, 3.780423836226947*^9, 3.780430945533702*^9}, CellLabel->"Out[34]=", CellID->798713995] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["\<\ All rulers to length 213 are minimal. Show a pixel representation of these \ sparse rulers:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.779217653886335*^9, 3.7792176668066664`*^9}, { 3.7792176968456373`*^9, 3.7792177232217937`*^9}}, CellID->240707197], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"PadRight", "[", RowBox[{ RowBox[{"ReplacePart", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"n", "+", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", "+", "1"}], "}"}], "&"}], "/@", RowBox[{"ReasonableRuler", "[", RowBox[{"n", ",", "\"\\""}], "]"}]}], ")"}], "\[Rule]", "1"}]}], "]"}], ",", "215"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "213"}], "}"}]}], "]"}], ",", " ", RowBox[{"PixelConstrained", "\[Rule]", "2"}], ",", " ", RowBox[{"Frame", "->", "False"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.779217560408654*^9, 3.7792176226115837`*^9}, { 3.7804238541742697`*^9, 3.7804238543370733`*^9}, {3.7804309536621532`*^9, 3.7804309568321815`*^9}}, CellLabel->"In[35]:=", CellID->281538556], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt2U2u7dZ1ReGbuJJiupBepJqiqwrSABlRBFdkQApguEsuuIvJM14hB2BI rP3Ltff+BiBBJueai5eHHAcH/pc//OmH//rHr6+v3/7p279++PHP//brrz/+ 5d//+dv/+I9ffvvjz7/89J+//+W/f/r5p1//9Q+/+3bwr//w9fW3b//8/b8/ +R8AOBImBICvC29fEQDMhgkB4OpAPgRwGkwIAHcm5EMA58CEAPD865gPAZwA EwLA3W9hPgRwDkwIAHET8iGAXWFCAPi6cD37fAQAVocJAaDOgXwIYCeYEABa TMiHAPaACQHg+v+Y3Pmt9DgArAITAkDdr+PrET4EsC5MCAB9fxfzIYAVYUIA eDZhryMAkBkmBIBxDuRDAKvAhABw/XX8bLC7s6XHASAPTAgAvUz4fJYPAWSG CQHgzoQRK1572jMAMB8mBIA6B447CwDzYUIAaPldzIcA9oAJAWCcCSMZPgSQ ASYEgKv3rnaK++ou+XycDwG8CxMCQOkv4ruGyPHnI3wI4C2YEACy/TrmQwDz YUIAuP46vhLv6ZXkQwAzYUIAaHFge6blLAD0ggkB4F0TRjJ8CGA0TAgAV+9d zRM58tzfkoybGQDqYEIAqDPhc1tLkg8BzIcJAWBFE/IhgL4wIQCsaMLSXQDw DBMCwPVXZ93v0LeSfAigHSYEgMivznZ3jWsoNTYAXGFCAGj5RRxpLj0bP95i bAD4hAkB4Gq/vs6ZmexrcgDnwIQAUGfC57Y5ST4E0AsmBIC9TciHACIwIQDc eaPOISOmns0cmeVDAM8wIQBcTXjnxkhP5iQfAriDCQGgxYHzndZ+VXwI4AoT AkCdA3vtjVxVfDZ+nA8BfMKEAHB1TsQbcZPkTM50PoD8MGGkB8De1JnwuS1b kg8BPMOETAiACfkQABMyIQAmfP7bAZwAEzIhgOsvxCvxnj2SfAicBhO2tAHY gzvv1dkgz9T1bPyvK/0WALA6THg3y4TAOVxNONMApTYbfTxyBMB+MGHpEQD7 cbVfXz+snpz/7QBgPkz4nGRC4ATqTPjctm6SD4EzYcL4cSYEdoUJ48f5ENgV JowfZ0JgV5gwfvz5LgFYFyaMH2dCYFeuv/vuKO08Ic+HwB4wYUueCYE9yGDC OVN8COAOJpzfDCAbd8a7e7tLj0e2rzvV8n0BIA9M2DLFhMAelJow0rbu1PVs /J7wIbAuTPh8lgmBE4g4MP52n5N8Ps6HwFowYV2SCYGd+Lrh7ev6P56vp85U I463fIMAeBcm7HWcCYF1eXZgnYUiZ+PXNrqhb+Z6J/kQyA8TMiEAJhxtwngD gLdgQiYEcH1/n6nrb7m2ObNz/jo+BHLChC27mBDYgxEOzGyV+NS46+FDIBtM OP96mBDIxromnDPFh8AJMGHffiYEVuTOeHfvaenxyPbTplq+ZQCMgAnnTzEh kI1SE0baTpu6no3fST4EMsCE7VNMCKzO1YSrvJWldsp2PHIEwByY8K3jTAjk 4dmBdbZpPxthlYZ4Zq1vImAnmHB0AxMC+XnLhPFry9/Ah8DqMGF7AxMCq8OE 7Q3jTMiHwByYsL2BCYHVYcL2hnEmjM8CaIEJ2xuYEFgdJmxvGG3CeAOAOpiw vYEJgdW5vn13lHbWXckeU+PuGB8CI2DCEVNMCKxFXweOuLYR+UhyTqbuLB8C fWHCdzNMCGTgznt175qp+NT1bPz+Z/ieAnaCCd+aYkIgD1cTrv6WRa488jdm O1t6HEAcJqzrYUJgJyL2+zxe996Zep6K99zN8iHQAhNmmGJC4F0iJvxMxjtL p1o27jr7/N3UYlQAnzBh5lkmBObwbMIWN/byqoZ4JvKNBuAKE+ZvYEJgNG+Z MH5tJzTwIfAuTJihgQmBd2HCDA3jTMiHQAQmzNDAhMC7MGGGhnEmjM8CJ8OE GRqYEHgXJszQMNqE8QbgTJgwQwMTAu9yfXee36YMlF5VPD/fWi2ZurM5P1Pg XZiwNJknw4RAL1Y04R3Xqz3BmXwItMOEdXkmBHbi2Xsj3sHSaxvdsNN1xjMr ftMB42DCna6TCYE6St+L+LtT6tW6Tg3x43efCB8CTLhTAxMCdcRNWOfAlrfM bMtsnRXrtgOrw4S7zjIhECduws98aXPLtZmtm302YekUsDdMuOssEwJxnk34 /F6MOxtBQ7whnmn//gJWhAlPaGBC4Jm3TBi/Ng19XRfJ8CFOgwn3aGBCoAUm 3KNhnAn5ECfAhHs0MCHQAhPu0TDOhPFZYF2YcI8GJgRaYMI9GkabMN4ArAgT 7tHAhEAL1yd/9PPf653tuzF/W3uy5ZN9fkKA1WHCVdqYEBjHnQnzP/Ol11b3 t8w01fzMuLPAWjBhrykmBNZlXRPWcf2Lxhk1j/Eimbqz+z0hOBMmZMKWs/s9 ITiTE0zIdfEMH+JMmLAln8dgvTJMiDMp9V6pJVreEbNvzUaMF58C8sOEZpkQ eDbh87P91tkIo9/Kvt8a4xra++OZ9u8+4C2YcFz/OX8FE2J1cpowgoaZDXyI vWFCDUwIvGXC+LVpyOa6SIYPsRZMqGFEhgmxFkyoYUSGD7EWTKhhRIYJsRZM qGFE5vpE8SEyw4QaRmSYEGvBhBpGZOqeKOAtmFDDiAwTYi2uz+0db1/p/8+4 a2tpLp29y8d7enlsTjLzE4UzYcIRzUz4nMz8ROFMVjdhKXV/Sy+z5UnOybSc BWbChCOmmLD9LDCTiPf6PrG93sG+G09ra0+2PCe7fs9iXZjwzDYmBD65M+HJ T2n7d0FfI62VqTt75pOGPDDhFSZsyTAhVoQJv8N1fTN8iLVgwu8wYd8ME2It nr034mlvPxth9Ds15wr3uA/xzGnfv8gDE77Vz4TXDBPiLXKaMIKGtRr4EJlh Qg1MCLxlwvi1aVilgQ+xLkyooVcDE2JdmFBDr4ZxJuRDjIYJNfRqYEKsCxNq 6NUwzoTxWaAOJtTQq4EJsS5MqKFXw2gTxhuAUphQQ68GJsS6XJ+6O96+0oyU 3pm7fOnxnZJ1rvNMoi9M2AITtieZEBlgwu/U/Y29TLhick6m5SwQhwm/w4Sl SSbETjDhMy2GPNmT8eRoWwIRmPAZJhydZEJkIOK9Oc9zPBNH21ptpcnn5xaI w4Ta8rQxId6ilwlLN7Zn+m7U1tLWnmx56vgQ7TChtvY2JsTq3JnQc3Wl9G70 NcmZmbqznluUwoRxmHB+hgkxh2fvjXhKI2cjaDitIZ65e56BO5hQwyoNTIhx vGXC+LVpOKeBD/EWTKghTwMT4i2uz8zdkxN/ot5NlqK5pTlnPv5UA99hQs0t zTnzTIhSmFBzS3PO/N3zzIe4gwk1tzTnzDMhSmFCzS3NOfPPzzMf4goTam5p zplnQpTChJpbmnPm+z7POAEm1NzSnDPPhCjl7smJPEuI0OvdX+WbaE6y7kjL NWBvmHA0TDgiyYToS9yEpz0zLX9v3eycqXH5t5LtmdOebVxhwjuYsDTPhFgX DpxDL/+UHj8zGTnSshH7wYRzYMKZSSZEKUxYSt3d6GXCvZNzMi1nsStMWAoT jksyId4i4r08z3Ap2k5uK00+vwXYGybUtmsbEyJOLxOWbmzP9N2oLU9be7Ll GebDM2FCbdnamBDzuTOh5yFO3f0pnZppkjzJOZmWs9gDJmyHCcclmRBziHiv 75PQ69nuu1Fbnrb2ZMszfPcu8OHeMKG2bG1MiPkwobZsbTlNWNqDtWBCbdna mBDziZjwMxnvzJ8sRXPO5jn5yDuCdWHCOJpzNjMh2tnPhKVoztmcM8+Hu8KE mnM258wz4a4woeaczTnzfLgrTKg5Z3POPBPuChNqztmcM3/3pvDh6jCh5pzN OfNMuCtMqDlnc87885vCh+vChJpzNufMM+GuMKHmnM05833fFOSBCTXnbM6Z Z8Jduft8I584rrTfq7qGVb6nMif7nvXWrAUT9oUJ100y4ckwYTZK7/ZdvvS4 5HOyznXenVVgwmwwYc4kE+4NE46j7r71MqHkzEzLWWSACcfBhBmSTIgIEe/1 /Rx7PZl9N2rbta092fJGPL9ZyAMTatu7jQkRod2EPuUR1N3Vuk9hplX2Tn5m 4l5FBpgwJ0y4YpIJ1+XOhM9uRB2jTVWaPzM5J9NyFvNhwpkwYYYkE+JKxHt9 P7Vez2Hfjdp2bWtPtrwRM98stMCE2vZuY0JEYEJte7dlNmFpG8bBhNr2bmNC RGhxYMvZ+LVpmPPdoSHe0Dfz7EnMgQn3aFjlOvdoYML9uH4Wd59I/JNaJVmK 5tOa5+T5MANMGEfzac1MeA77mbAUzac158zz4bswoebTmnPmmfBdmFDzac05 83z4Lkyo+bTmnHkmfBcm1Hxac8783TvIh3NgQs2nNefMM+G7MKHm05pz5p/f QT4cDRNqPq05Z54J34UJNZ/WnDPf9x1EKUyo+bTmnHkmfJe7TyHyueBder2h 7e+dZF0ycqRlI+Iw4bow4epJJswDE2ag7g73MqFkaXJOpuUsSmHCDDDhWkkm 3A8mzEyLIXkyf3K0LRGHCTPDhHsnmTAPce/lf67qOKE5z5Ws2JwzH3lnEYcJ T2jOcyUrNufMM2Ff7u6q+/wudfd83DsomSHTchbPMGFOmHCtJBOuztV1I56l cVPjno1xz5XmE5pHZK75lvcXnzDhiFnNmplwLb5uuEvGO99KlnJCc54rWbE5 Z/75neXDUpjwhOY8V7Jic848E/aFCU9oznMlKzbnzPd9Z8GEJzTnuZIVm3Pm mbAvz/fz+U6OOxtBg4YzG+KZZ0/iEybUoGGtBiYcwfWO3d23+P1cJVmKZs29 mufk+TAOE8bRrLlXMxNmYz8TlqJZc6/mnHk+jMCEmjX3as6ZZ8IITKhZc6/m nHk+jMCEmjX3as6ZZ8IITKhZc6/mnPm7t5sPP2FCzZp7NefMM2EEJtSsuVdz zvzz282H32FCzZp7NefMM2EEJtSsuVdzznzft3tXmFCz5l7NOfNMGOHuXkXu HuZT91mMe+MkeyXnZFrO7g0TrgUT7ppkwncptd+cezXuza3L12HLTlvyTPV9 N+Pv/t4w4Ths2WlLnikmHEGpCT+n6nbtN9WCjdk2njnLh0zYPtWCjdk2njnL hM/34cx7shZznB/PS/ZKzsm0nN0JJlwdJtw1yYQzubru+rfHfTgzU4dmzeOa 7xpG2GbEVMu7vzpMqFlzr2YmXJeICZ9n6zb2mhrxjLXPatY8rnlEJuLAvX3I hCNmNWse18yEI/h65C4/56ry5OuwZacteab6vpvxd79lS36YcBy27LQlzxQT jqDUhJ9Tdbv2m2rBxmwbz5zlQyZsn2rBxmwbz5xlQibshY02rjvLh0zYCxtt XHeWCeN/e/yvXiVZimbN+Zvn5OO2XAUmjKNZc/5mJqxjPxOWollz/uac+Z18 yISaNedvzplnwkjnW8lSNGvO35wzv5MPmVCz5vzNOfNMGOl8K1mKZs35m3Pm 77yxog+ZULPm/M0580wY6XwrWYpmzfmbc+afvbGWD5lQs+b8zTnzTBjpfCtZ imbN+Ztz5vt6412YULPm/M0580wY6eybLEWz5pOb3zLhuj5kQs2a92tmwlJG /0Wn5euwxZZdpyJWyQAT9s3XYYstu04x4R75OmyxxdTnVH4fMuEIbLHF1OcU E7ZcVZ58HbbYsu5UXwPk9yETjsMWW9adOtmEn0fi/126K/OUfv2n9Y9LjjPJ CJiwDv369+hnwu98PfI8VbfLVDs22rjubKlt5sCEb021YKON684y4a5TLdho 45mz2XzIhO1TLdho45mzq5twztWWbhmdr8MWW9ad6muAbIaJXyETtmOLLetO MWGG62RCW87ckmfqLRO2bGmBCcdhiy3rTjFh+x1YJVmKZs0nN8/Jx23ZFyaM o1nzyc1M+JmMd76VLEWz5pObc+bn+5AJNWs+uTlnngnbk6Vo1nxyc878fB8y oWbNJzfnzDNhe7IUzZpPbs6ZvzPS6PvGhJo1n9mcM8+E7clSNGs+uTln/tlI I+4eE2rWfHJzzjwTtidL0az55Oac+b5GemsvE2rWvEpzznweEz5vqbuGXada sLHvVAtrbTxzttRUo/vz28nbt/rGVa7zrY1nzjJh5qkWbBw3e8LGM2dH+JAJ 26dasHHc7Akbz5ydacKW6383WYrmbM0ZrkHzKvlePmRCzdmaM1yD5lXyo03Y 7sMz83XYYkvOLatMtfuQCfvm67DFlpxbVpliQmazxZZsWzKYsM4MTNgXW2w5 eQsT9oIPbbFl3JY8U3090+JDJhyHLbbk3JJnigkjV5UnX4cttuTckmdqjgkj bUw4DltsybklzxQTRq4qT74OW2zJuSXP1BwTxq+ECUdgiy05t+SZYsJnmNAW W8ZtyTM104SRjUw4Altsybklz1R+E7Zc2yrJUjRr1jyieU4+Ykgm1KxZ81vN TMhvmjXv2pwzf+c6JtSsWfOI5pz5O9f9LyEFzQU= "], {{0, 426}, {430, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{430, 426}, PlotRange->{{0, 430}, {0, 426}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.779217610433608*^9, 3.7792176264509754`*^9}, 3.7804238568147683`*^9, 3.780430958592201*^9}, CellLabel->"Out[35]=", CellID->859856319] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["\<\ The maximal length for a given number of marks is usually a Wichmann value:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792181041783257`*^9, 3.7792181469301615`*^9}, 3.858856313045912*^9}, CellID->382739683], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WichmannValues", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "^", "2"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "6"}], "]"}], "-", "3"}], ")"}], "^", "2"}]}], ")"}], "/", "3"}], "+", "n"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "30"}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792178672708807`*^9, 3.7792178740135946`*^9}}, CellLabel->"In[36]:=", CellID->422565980], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "3", ",", "6", ",", "9", ",", "12", ",", "15", ",", "22", ",", "29", ",", "36", ",", "43", ",", "50", ",", "57", ",", "68", ",", "79", ",", "90", ",", "101", ",", "112", ",", "123", ",", "138", ",", "153", ",", "168", ",", "183", ",", "198", ",", "213", ",", "232", ",", "251", ",", "270", ",", "289", ",", "308", ",", "327"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.779217874517128*^9, 3.780423881312291*^9, 3.7804309637141776`*^9}, CellLabel->"Out[36]=", CellID->155300546] }, Open ]], Cell["\<\ Arrange lengths in columns ending in Wichmann values and bold the lengths \ with excess 1:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792181673533735`*^9, 3.779218253321365*^9}}, CellID->709050215], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"PadLeft", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"ReasonableRuler", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "]"}], " ", "-", RowBox[{"Round", "[", SqrtBox[ RowBox[{ RowBox[{"3", " ", "#"}], "+", RowBox[{"9", "/", "4"}]}]], "]"}]}], "\[Equal]", "1"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{"#", ",", "Black", ",", " ", "Bold", ",", "16"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{"#", ",", "Gray", ",", "14"}], "]"}]}], "]"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "213", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"WichmannValues", "[", RowBox[{"[", "n", "]"}], "]"}], " ", "+", " ", "1"}], ",", " ", RowBox[{"WichmannValues", "[", RowBox[{"[", RowBox[{"n", " ", "+", " ", "1"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", " ", "15", ",", " ", "\"\<\>\""}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"24", " ", "-", " ", "1"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"3", ",", "25"}], "]"}]}], "]"}], ",", " ", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{".2", ",", " ", ".2"}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", RowBox[{ RowBox[{"-", "2"}], "\[Rule]", " ", "Blue"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7792179148465195`*^9, 3.779217930654967*^9}, { 3.7792179659827814`*^9, 3.7792179984258738`*^9}, {3.779218034190301*^9, 3.7792180370230856`*^9}, {3.7804238966438274`*^9, 3.780423896781945*^9}, { 3.780430985673671*^9, 3.7804309967970037`*^9}}, CellLabel->"In[37]:=", CellID->482315570], Cell[BoxData[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["124", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["139", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["154", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["169", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["184", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["199", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["125", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["140", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["155", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["170", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["185", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["200", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["126", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["141", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["156", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["171", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["186", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["201", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["127", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["142", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["157", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["172", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["187", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["202", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["58", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["69", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["80", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["91", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["102", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["113", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["128", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["143", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["158", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["173", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["188", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["203", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["59", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["70", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["81", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["92", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["103", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["114", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["129", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["144", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["159", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["174", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["189", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["204", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["60", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["71", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["82", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["93", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["104", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["115", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["130", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["145", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["160", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["175", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["190", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["205", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["61", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["72", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["83", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["94", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["105", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["116", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["131", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["146", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["161", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["176", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["191", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["206", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["16", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["23", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["30", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["37", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["44", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["51", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["62", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["73", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["84", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["95", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["106", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["117", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["132", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["147", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["162", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["177", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["192", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["207", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["17", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["24", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["31", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["38", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["45", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["52", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["63", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["74", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["85", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["96", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["107", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["118", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["133", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["148", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["163", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["178", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["193", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["208", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["18", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["25", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["32", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["39", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["46", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["53", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["64", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["75", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["86", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["97", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["108", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["119", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["134", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["149", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["164", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["179", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["194", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["209", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]]}, {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", StyleBox["19", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["26", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["33", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["40", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["47", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["54", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["65", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["76", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["87", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["98", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["109", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["120", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["135", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["150", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["165", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["180", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["195", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["210", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]]}, { StyleBox["1", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["4", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["7", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["10", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["13", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["20", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["27", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["34", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["41", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["48", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["55", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["66", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["77", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["88", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["99", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["110", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["121", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["136", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["151", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["166", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["181", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["196", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], StyleBox["211", StripOnInput->False, FontSize->16, FontWeight->Bold, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]]}, { StyleBox["2", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["5", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["8", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["11", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["14", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["21", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["28", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["35", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["42", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["49", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["56", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["67", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["78", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["89", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["100", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["111", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["122", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["137", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["152", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["167", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["182", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["197", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["212", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, { StyleBox["3", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["6", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["9", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["12", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["15", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["22", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["29", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["36", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["43", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["50", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["57", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["68", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["79", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["90", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["101", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["112", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["123", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["138", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["153", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["168", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["183", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["198", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]], StyleBox["213", StripOnInput->False, FontSize->14, FontColor->GrayLevel[0.5], $CellContext`LineColor -> GrayLevel[0.5], $CellContext`FrontFaceColor -> GrayLevel[0.5], $CellContext`GraphicsColor -> GrayLevel[0.5], $CellContext`BackFaceColor -> GrayLevel[0.5]]}, {"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25"} }, AutoDelete->False, GridBoxDividers->{ "Columns" -> {{False}}, "RowsIndexed" -> {-2 -> RGBColor[0, 0, 1]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.2}}, "Rows" -> {{0.2}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.77921794363756*^9, 3.779218009599061*^9, 3.7792180463498955`*^9, { 3.780423893671678*^9, 3.780423907007142*^9}, 3.780431015925471*^9}, CellLabel->"Out[37]=", CellID->752585505] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Ed Pegg Jr", "Text", CellID->356386810] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["sparse ruler", "Item", CellID->917308151], Cell["graceful graph", "Item", CellID->688148781] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Graphs & Networks", {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Higher Mathematical Computation", { False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Just For Fun", {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj+FKw0AQhEGtJlIEn8D75b88RIhGK2ql6wtc02kTerk7dveQvL0XFdFfu8sM8+\ 3URUUL0smBztdJY9KKLpoe3RG7/amcPQ+idP3ANvZibs0r9CPwUejmcTj0YPNitcdodeisM00Yc0A+\ gqflUxI1bWDTJp8ZK8UoUtZJw5e9ouKNQwTrRJeNVRwCD5BMX8c5QPYn3/\ R5bpKDFPe7Qe02b4vWOsGvUN7B4a8yVwgujf4/8GrlFRwZPy+\ WtZ8obQW583IDCYk7vE8RVOSfu9nzCUvbZCw="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->45597596] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["FindDivisions", "Item", CellID->11222290] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Sparse Rulers\[Dash]Wolfram Demonstrations Project", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/SparseRulers/"], None}, ButtonNote->"http://demonstrations.wolfram.com/SparseRulers/"]], "Item", CellID->712538264], Cell[TextData[ButtonBox["Wichmann-like Rulers\[Dash]Wolfram Demonstrations \ Project", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/WichmannLikeRulers/"], None}, ButtonNote->"http://demonstrations.wolfram.com/WichmannLikeRulers/"]], "Item",\ CellID->716895906] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReasonableRuler", "[", RowBox[{"222", ",", "True"}], "]"}]], "Input", CellChangeTimes->{{3.7792187318572187`*^9, 3.779218746638362*^9}}, CellLabel->"In[216]:=", CellID->832883640], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "9", ",", "18", ",", "27", ",", "36", ",", "45", ",", "64", ",", "83", ",", "102", ",", "121", ",", "140", ",", "159", ",", "169", ",", "179", ",", "189", ",", "199", ",", "209", ",", "210", ",", "211", ",", "212", ",", "213", ",", "218", ",", "222"}], "}"}]], "Output", CellChangeTimes->{{3.779218736546837*^9, 3.7792187470418353`*^9}}, CellLabel->"Out[216]=", CellID->320193360] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["No sparse ruler is known with an excess less than 0.", "Item", CellChangeTimes->{{3.8695741683090076`*^9, 3.869574172012311*^9}}, CellID->517197650], Cell["\<\ This function has not been tested for values past 20 million.\ \>", "Item", CellChangeTimes->{{3.8695741683090076`*^9, 3.8695741709436817`*^9}}, CellID->705685438] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ReasonableRuler | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.86957419951214`16.340238167880113*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.86957419957256`16.34023816788689*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"51d35f09-65da-4da6-a7ae-a7517ad6027e", CellTags->{"Name", "TemplateCell", "Title"}, CellID->204441660]}, "TemplateCell"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"51d35f09-65da-4da6-a7ae-a7517ad6027e", CellTags->{"Name", "TemplateCell", "Title"}, CellID->204441660], Cell[732, 27, 203, 5, 70, "Text",ExpressionUUID->"243354c2-5c72-4d12-861b-1dfc411fc2c8", CellTags->{"Description", "TemplateCell"}, CellID->526099624]}, "Title"->{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"51d35f09-65da-4da6-a7ae-a7517ad6027e", CellTags->{"Name", "TemplateCell", "Title"}, CellID->204441660]}, "Description"->{ Cell[732, 27, 203, 5, 70, "Text",ExpressionUUID->"243354c2-5c72-4d12-861b-1dfc411fc2c8", CellTags->{"Description", "TemplateCell"}, CellID->526099624]}, "Definition"->{ Cell[960, 36, 1206, 29, 70, "Section",ExpressionUUID->"3dfbaca5-7a1c-4345-a365-f72e0d655810", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[960, 36, 1206, 29, 70, "Section",ExpressionUUID->"3dfbaca5-7a1c-4345-a365-f72e0d655810", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[960, 36, 1206, 29, 70, "Section",ExpressionUUID->"3dfbaca5-7a1c-4345-a365-f72e0d655810", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[66381, 1562, 1980, 50, 70, "Subsection",ExpressionUUID->"f4210ec9-2429-407a-9fa0-7aadbbe1e0f3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[69294, 1654, 1429, 32, 70, "Subsection",ExpressionUUID->"1a4f8588-49eb-43ba-a757-33e003c0e85a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[71099, 1705, 7029, 152, 70, "Section",ExpressionUUID->"fcea218d-77f2-45f3-99d6-66c22b1ba599", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[265329, 6283, 1026, 26, 70, "Subsection",ExpressionUUID->"4856a9a7-78f0-419a-806f-7f8469470f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[266441, 6317, 996, 26, 70, "Subsection",ExpressionUUID->"c9f3b696-6e7c-4103-b201-68961d5ef19e", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[267578, 6354, 221, 6, 70, "Subsection",ExpressionUUID->"360199ce-40c6-4f12-a90c-5fa1a97c54a4", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[276170, 6619, 980, 26, 70, "Subsection",ExpressionUUID->"8bd7104f-aa56-4677-bd5c-e6dcf40453c5", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[277238, 6653, 1039, 26, 70, "Subsection",ExpressionUUID->"1466dd68-b0a3-4793-9950-5d9bbbec1bf2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[278845, 6694, 1084, 26, 70, "Subsection",ExpressionUUID->"2689692a-1685-4466-9012-84b170352c1f", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[280485, 6735, 923, 26, 70, "Subsection",ExpressionUUID->"665805e5-eb39-4d01-b97f-e58325dc9d5f", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[282028, 6782, 1874, 45, 70, "Subsection",ExpressionUUID->"16df6db7-b6d1-4767-ab92-dcbce4206552", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[284679, 6854, 955, 25, 70, "Subsection",ExpressionUUID->"cbd185ea-9229-4637-babe-5340515e1016", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[285659, 6883, 1174, 31, 70, "Subsubsection",ExpressionUUID->"969f663c-f19e-4828-8185-1401d65a89f8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[286962, 6923, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e4f0ed90-0266-44f2-9391-768ffd08b06b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[290213, 7021, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c7f31de-cc2c-4684-a1ed-8c8fcd642ed2", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[293682, 7124, 1913, 46, 70, "Subsubsection",ExpressionUUID->"6633d3a4-f08a-48e3-bcba-5d3cf30ae928", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[299621, 7294, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c31d08a0-c0fc-4ac8-8067-afbd4b752db0", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[301974, 7366, 1155, 28, 70, "Section",ExpressionUUID->"91fb1632-b640-44a7-8a5c-38c97dc76cef", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[303503, 7409, 1033, 26, 70, "Section",ExpressionUUID->"8bf2900b-dc49-4b2e-b569-e2c15dd223b1", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2169, 67, 63955, 1481, 70, "Input",ExpressionUUID->"540cd09e-a50d-4ca4-8848-bdd16f968b31", CellTags->"TabNext", CellID->285836538], Cell[70726, 1688, 324, 11, 70, "Notes",ExpressionUUID->"7045cee6-a4de-4179-8a12-0ab0b4424d0d", CellTags->"TabNext", CellID->283008469], Cell[278280, 6681, 528, 8, 70, "Item",ExpressionUUID->"f99f65c9-cfac-41ac-821d-ec9e2f00f3b5", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[279932, 6722, 516, 8, 70, "Text",ExpressionUUID->"ca1b045a-2005-4f67-81e6-9bfd8fd31b55", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[304539, 7437, 515, 8, 70, "Text",ExpressionUUID->"fc1e0086-59e4-4d20-83db-74209f5bbfec", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[66161, 1553, 195, 5, 70, "Section",ExpressionUUID->"a9600e73-70af-4031-8864-38a7b8c9bd6f", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[66161, 1553, 195, 5, 70, "Section",ExpressionUUID->"a9600e73-70af-4031-8864-38a7b8c9bd6f", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[265055, 6274, 249, 5, 70, "Section",ExpressionUUID->"c120524e-0f0d-4619-a493-14ad6b3f8cf0", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[66381, 1562, 1980, 50, 70, "Subsection",ExpressionUUID->"f4210ec9-2429-407a-9fa0-7aadbbe1e0f3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[69294, 1654, 1429, 32, 70, "Subsection",ExpressionUUID->"1a4f8588-49eb-43ba-a757-33e003c0e85a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[69294, 1654, 1429, 32, 70, "Subsection",ExpressionUUID->"1a4f8588-49eb-43ba-a757-33e003c0e85a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[71099, 1705, 7029, 152, 70, "Section",ExpressionUUID->"fcea218d-77f2-45f3-99d6-66c22b1ba599", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[265055, 6274, 249, 5, 70, "Section",ExpressionUUID->"c120524e-0f0d-4619-a493-14ad6b3f8cf0", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[265329, 6283, 1026, 26, 70, "Subsection",ExpressionUUID->"4856a9a7-78f0-419a-806f-7f8469470f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[265329, 6283, 1026, 26, 70, "Subsection",ExpressionUUID->"4856a9a7-78f0-419a-806f-7f8469470f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[266441, 6317, 996, 26, 70, "Subsection",ExpressionUUID->"c9f3b696-6e7c-4103-b201-68961d5ef19e", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[267578, 6354, 221, 6, 70, "Subsection",ExpressionUUID->"360199ce-40c6-4f12-a90c-5fa1a97c54a4", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[267802, 6362, 8331, 252, 70, "Output",ExpressionUUID->"6fec4a94-fddb-4968-807b-3aeacd220f9c", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->45597596]}, "Categories-Checkboxes"->{ Cell[267802, 6362, 8331, 252, 70, "Output",ExpressionUUID->"6fec4a94-fddb-4968-807b-3aeacd220f9c", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->45597596]}, "CheckboxCell"->{ Cell[267802, 6362, 8331, 252, 70, "Output",ExpressionUUID->"6fec4a94-fddb-4968-807b-3aeacd220f9c", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->45597596], Cell[288078, 6954, 2098, 62, 70, "Output",ExpressionUUID->"9adb40a2-fb4e-4361-9bbb-ccbde29aa565", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[291496, 7056, 2149, 63, 70, "Output",ExpressionUUID->"6ca5fa73-90bd-45a7-a15f-5c3d06e8a435", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[295598, 7172, 3986, 117, 70, "Output",ExpressionUUID->"d7583320-6b41-4c91-afe6-c01636fdd0dd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[300695, 7323, 1218, 36, 70, "Output",ExpressionUUID->"65f1aff3-2194-4ec0-91ec-25c10a9fbbf7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[276170, 6619, 980, 26, 70, "Subsection",ExpressionUUID->"8bd7104f-aa56-4677-bd5c-e6dcf40453c5", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[277238, 6653, 1039, 26, 70, "Subsection",ExpressionUUID->"1466dd68-b0a3-4793-9950-5d9bbbec1bf2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "DefaultContent"->{ Cell[278280, 6681, 528, 8, 70, "Item",ExpressionUUID->"f99f65c9-cfac-41ac-821d-ec9e2f00f3b5", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661], Cell[279932, 6722, 516, 8, 70, "Text",ExpressionUUID->"ca1b045a-2005-4f67-81e6-9bfd8fd31b55", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[286836, 6916, 89, 2, 70, "Text",ExpressionUUID->"60c7a616-7699-4b37-b318-9ca4c6047721", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[304539, 7437, 515, 8, 70, "Text",ExpressionUUID->"fc1e0086-59e4-4d20-83db-74209f5bbfec", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Source/Reference Citation"->{ Cell[278845, 6694, 1084, 26, 70, "Subsection",ExpressionUUID->"2689692a-1685-4466-9012-84b170352c1f", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[280485, 6735, 923, 26, 70, "Subsection",ExpressionUUID->"665805e5-eb39-4d01-b97f-e58325dc9d5f", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[282028, 6782, 1874, 45, 70, "Subsection",ExpressionUUID->"16df6db7-b6d1-4767-ab92-dcbce4206552", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[282028, 6782, 1874, 45, 70, "Subsection",ExpressionUUID->"16df6db7-b6d1-4767-ab92-dcbce4206552", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[284679, 6854, 955, 25, 70, "Subsection",ExpressionUUID->"cbd185ea-9229-4637-babe-5340515e1016", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[285659, 6883, 1174, 31, 70, "Subsubsection",ExpressionUUID->"969f663c-f19e-4828-8185-1401d65a89f8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[285659, 6883, 1174, 31, 70, "Subsubsection",ExpressionUUID->"969f663c-f19e-4828-8185-1401d65a89f8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[286836, 6916, 89, 2, 70, "Text",ExpressionUUID->"60c7a616-7699-4b37-b318-9ca4c6047721", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[286962, 6923, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e4f0ed90-0266-44f2-9391-768ffd08b06b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[288078, 6954, 2098, 62, 70, "Output",ExpressionUUID->"9adb40a2-fb4e-4361-9bbb-ccbde29aa565", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[286962, 6923, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e4f0ed90-0266-44f2-9391-768ffd08b06b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[288078, 6954, 2098, 62, 70, "Output",ExpressionUUID->"9adb40a2-fb4e-4361-9bbb-ccbde29aa565", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[290213, 7021, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c7f31de-cc2c-4684-a1ed-8c8fcd642ed2", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[291496, 7056, 2149, 63, 70, "Output",ExpressionUUID->"6ca5fa73-90bd-45a7-a15f-5c3d06e8a435", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[290213, 7021, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c7f31de-cc2c-4684-a1ed-8c8fcd642ed2", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[291496, 7056, 2149, 63, 70, "Output",ExpressionUUID->"6ca5fa73-90bd-45a7-a15f-5c3d06e8a435", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[293682, 7124, 1913, 46, 70, "Subsubsection",ExpressionUUID->"6633d3a4-f08a-48e3-bcba-5d3cf30ae928", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[295598, 7172, 3986, 117, 70, "Output",ExpressionUUID->"d7583320-6b41-4c91-afe6-c01636fdd0dd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[293682, 7124, 1913, 46, 70, "Subsubsection",ExpressionUUID->"6633d3a4-f08a-48e3-bcba-5d3cf30ae928", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[295598, 7172, 3986, 117, 70, "Output",ExpressionUUID->"d7583320-6b41-4c91-afe6-c01636fdd0dd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[299621, 7294, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c31d08a0-c0fc-4ac8-8067-afbd4b752db0", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[299621, 7294, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c31d08a0-c0fc-4ac8-8067-afbd4b752db0", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[300695, 7323, 1218, 36, 70, "Output",ExpressionUUID->"65f1aff3-2194-4ec0-91ec-25c10a9fbbf7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[300695, 7323, 1218, 36, 70, "Output",ExpressionUUID->"65f1aff3-2194-4ec0-91ec-25c10a9fbbf7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[301974, 7366, 1155, 28, 70, "Section",ExpressionUUID->"91fb1632-b640-44a7-8a5c-38c97dc76cef", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[303503, 7409, 1033, 26, 70, "Section",ExpressionUUID->"8bf2900b-dc49-4b2e-b569-e2c15dd223b1", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 428057, 9765}, {"TemplateCell", 428239, 9769}, {"Title", 428574, 9776}, {"Description", 428755, 9780}, {"Definition", 428933, 9784}, {"Function", 429129, 9788}, {"TemplateCellGroup", 429334, 9792}, {"TabNext", 433185, 9853}, {"Documentation", 433984, 9869}, {"TemplateSection", 434179, 9873}, {"Usage", 434555, 9880}, {"Details & Options", 434751, 9884}, {"Notes", 434956, 9888}, {"Examples", 435164, 9892}, {"Source & Additional Information", 435375, 9896}, {"Contributed By", 435588, 9900}, {"ContributorInformation", 435824, 9904}, {"Keywords", 436046, 9908}, {"Categories", 436238, 9912}, {"Categories-Checkboxes", 436635, 9919}, {"CheckboxCell", 436848, 9923}, {"Related Symbols", 437972, 9939}, {"Related Resource Objects", 438185, 9943}, {"DefaultContent", 438398, 9947}, {"Source/Reference Citation", 439088, 9960}, {"Links", 439293, 9964}, {"Tests", 439477, 9968}, {"VerificationTests", 439695, 9972}, {"Compatibility", 439909, 9976}, {"CompatibilityWolframLanguageVersionRequired", 440139, 9980}, {"Wolfram Language Version", 440412, 9984}, {"ScrapeDefault", 440674, 9988}, {"CompatibilityOperatingSystem", 440878, 9992}, {"Operating System", 441349, 9999}, {"CompatibilityOperatingSystem-Checkboxes", 441614, 10003}, {"CompatibilityFeatures", 441872, 10007}, {"Required Features", 442324, 10014}, {"CompatibilityFeatures-Checkboxes", 442576, 10018}, {"CompatibilityEvaluationEnvironment", 442833, 10022}, {"Environments", 443314, 10029}, {"CompatibilityEvaluationEnvironment-Checkboxes", 443587, 10033}, {"Cloud Support", 443849, 10037}, {"CompatibilityCloudSupport", 444094, 10041}, {"CompatibilityCloudSupport-Checkboxes", 444573, 10048}, {"Author Notes", 444816, 10052}, {"Submission Notes", 445016, 10056} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[631, 23, 98, 2, 70, "Title",ExpressionUUID->"51d35f09-65da-4da6-a7ae-a7517ad6027e", CellTags->{"Name", "TemplateCell", "Title"}, CellID->204441660], Cell[732, 27, 203, 5, 70, "Text",ExpressionUUID->"243354c2-5c72-4d12-861b-1dfc411fc2c8", CellTags->{"Description", "TemplateCell"}, CellID->526099624], Cell[CellGroupData[{ Cell[960, 36, 1206, 29, 70, "Section",ExpressionUUID->"3dfbaca5-7a1c-4345-a365-f72e0d655810", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2169, 67, 63955, 1481, 70, "Input",ExpressionUUID->"540cd09e-a50d-4ca4-8848-bdd16f968b31", CellTags->"TabNext", CellID->285836538] }, Open ]], Cell[CellGroupData[{ Cell[66161, 1553, 195, 5, 70, "Section",ExpressionUUID->"a9600e73-70af-4031-8864-38a7b8c9bd6f", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[66381, 1562, 1980, 50, 70, "Subsection",ExpressionUUID->"f4210ec9-2429-407a-9fa0-7aadbbe1e0f3", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[68386, 1616, 150, 4, 70, "UsageInputs",ExpressionUUID->"dd418bd0-8d83-4848-aa2b-89335631d314", CellID->141553932], Cell[68539, 1622, 250, 7, 70, "UsageDescription",ExpressionUUID->"17d666ec-674e-4e97-a10f-b5085db6f18c", CellID->434804075] }, Open ]], Cell[CellGroupData[{ Cell[68826, 1634, 185, 5, 70, "UsageInputs",ExpressionUUID->"7aac49f7-1a4b-4c14-945d-86873a87a75b", CellID->687214783], Cell[69014, 1641, 231, 7, 70, "UsageDescription",ExpressionUUID->"c189f253-c29c-4247-9ecb-ec4aa1bec62d", CellID->439692398] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69294, 1654, 1429, 32, 70, "Subsection",ExpressionUUID->"1a4f8588-49eb-43ba-a757-33e003c0e85a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[70726, 1688, 324, 11, 70, "Notes",ExpressionUUID->"7045cee6-a4de-4179-8a12-0ab0b4424d0d", CellTags->"TabNext", CellID->283008469] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[71099, 1705, 7029, 152, 70, "Section",ExpressionUUID->"fcea218d-77f2-45f3-99d6-66c22b1ba599", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[78153, 1861, 75, 2, 70, "Subsection",ExpressionUUID->"f0effef0-9184-4aaf-8678-a069eefce80e", CellID->904125756], Cell[78231, 1865, 161, 3, 70, "Text",ExpressionUUID->"9b3bb6a3-3ff1-4d25-95cd-827da3ce91d4", CellID->236286877], Cell[CellGroupData[{ Cell[78417, 1872, 342, 8, 70, "Input",ExpressionUUID->"4974cf99-2427-4835-9a27-b90edff32359", CellID->257596861], Cell[78762, 1882, 458, 11, 70, "Output",ExpressionUUID->"cc49ce4f-48a1-4b50-9983-26a534a90f36", CellID->710705379] }, Open ]], Cell[79235, 1896, 208, 4, 70, "Text",ExpressionUUID->"1010ffda-f676-4e5b-ac3e-b21d5f47216c", CellID->532085291], Cell[CellGroupData[{ Cell[79468, 1904, 748, 21, 70, "Input",ExpressionUUID->"0364f085-5c5b-4ccc-916f-f0ffe957e524", CellID->55126643], Cell[80219, 1927, 274, 7, 70, "Output",ExpressionUUID->"4e2128cc-932c-48bd-b9e3-572bd055f821", CellID->967918839] }, Open ]], Cell[CellGroupData[{ Cell[80530, 1939, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9f3c4ebd-1b60-4d6e-9958-65c2e64e7452", CellID->14107562], Cell[80676, 1945, 293, 7, 70, "Text",ExpressionUUID->"21bf4bdf-6507-4b06-8be9-9d70f1c5332f", CellID->557834317], Cell[CellGroupData[{ Cell[80994, 1956, 382, 9, 70, "Input",ExpressionUUID->"e52384ee-ad00-4445-a239-9f035d8da1ce", CellID->565210541], Cell[81379, 1967, 681, 14, 70, "Output",ExpressionUUID->"e457b33f-c504-480f-926b-eb821a19aeb3", CellID->735872946] }, Open ]], Cell[82075, 1984, 146, 3, 70, "Text",ExpressionUUID->"76b805ff-79ed-4848-89fe-9535918573d0", CellID->297009592], Cell[CellGroupData[{ Cell[82246, 1991, 187, 5, 70, "Input",ExpressionUUID->"f6f41ea7-9d93-4542-b76c-24eef348bf8a", CellID->315018864], Cell[82436, 1998, 748, 21, 70, "Output",ExpressionUUID->"bdeb87ec-291c-4e9e-97d6-f1651e9f10b9", CellID->107305835] }, Open ]], Cell[83199, 2022, 295, 7, 70, "Text",ExpressionUUID->"6cc6ef04-0b9b-4376-a561-7949d91c3cf2", CellID->382221465], Cell[CellGroupData[{ Cell[83519, 2033, 479, 15, 70, "Input",ExpressionUUID->"2cc56308-3769-4344-b804-e6df97eafbb8", CellID->238146131], Cell[84001, 2050, 798, 22, 70, "Output",ExpressionUUID->"f057876a-3a23-4c74-938a-d647462d097c", CellID->312951495] }, Open ]], Cell[84814, 2075, 145, 3, 70, "Text",ExpressionUUID->"eb153873-416f-4538-aa15-3ad405b8870b", CellID->159209831], Cell[CellGroupData[{ Cell[84984, 2082, 133, 4, 70, "Input",ExpressionUUID->"7c640f31-a47b-4a50-87ad-67359b10d5b7", CellID->898514602], Cell[85120, 2088, 369, 12, 70, "Output",ExpressionUUID->"c281b922-9448-461a-bf8a-b0aa60bf38a1", CellID->480288613] }, Open ]], Cell[85504, 2103, 221, 4, 70, "Text",ExpressionUUID->"ce25861b-b4e5-460c-9f21-70e39a52d914", CellID->396220827], Cell[CellGroupData[{ Cell[85750, 2111, 283, 7, 70, "Input",ExpressionUUID->"5bbfd289-751a-4bb4-89b5-f147c89b7f5e", CellID->50342117], Cell[86036, 2120, 306, 7, 70, "Output",ExpressionUUID->"50315b9a-5703-44ed-ae47-fed00b577393", CellID->914002354] }, Open ]], Cell[86357, 2130, 269, 5, 70, "Text",ExpressionUUID->"4ef76c1f-8401-46a5-b08f-c26e5b3031da", CellID->560598388], Cell[CellGroupData[{ Cell[86651, 2139, 339, 8, 70, "Input",ExpressionUUID->"29e07b0b-6012-4486-9f7b-89dbb32fa922", CellID->217016944], Cell[86993, 2149, 648, 13, 70, "Output",ExpressionUUID->"65847156-c6e0-4aef-996b-0a6be691ebaf", CellID->571099736] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[87702, 2169, 66, 2, 70, "Subsection",ExpressionUUID->"2da6a12f-3c6f-4b5e-9f52-4f87e396a0ea", CellID->204653245], Cell[87771, 2173, 217, 4, 70, "Text",ExpressionUUID->"97f6ac7c-7247-46c2-865c-9ce7d218f01e", CellID->101055569], Cell[CellGroupData[{ Cell[88013, 2181, 545, 16, 70, "Input",ExpressionUUID->"11c9ee8c-a2b3-493d-9a88-6d5c6f96658d", CellID->753808882], Cell[88561, 2199, 282, 7, 70, "Output",ExpressionUUID->"162ffe3f-e6df-419a-ac56-0e37a772caf3", CellID->898815110] }, Open ]], Cell[88858, 2209, 813, 28, 70, "Text",ExpressionUUID->"c8f86110-7e3e-4071-a2c4-6a05339b5753", CellID->293363210], Cell[CellGroupData[{ Cell[89696, 2241, 543, 17, 70, "Input",ExpressionUUID->"7ed7e3f7-b100-475c-8bfc-e8c2aa94dca8", CellID->328777115], Cell[90242, 2260, 157, 4, 70, "Output",ExpressionUUID->"4122bdba-716e-4d2f-8f45-7ef2d8f25163", CellID->551914436] }, Open ]], Cell[90414, 2267, 190, 4, 70, "Text",ExpressionUUID->"da3c587b-ece2-47b8-92ca-1d217bc58c56", CellID->120368821], Cell[CellGroupData[{ Cell[90629, 2275, 1336, 37, 70, "Input",ExpressionUUID->"27380b87-d63e-4054-8783-cd9541f1479e", CellID->231625798], Cell[91968, 2314, 929, 25, 70, "Output",ExpressionUUID->"9ce446ab-4481-4d5a-84e6-dc032d87a9ef", CellID->693353258] }, Open ]], Cell[CellGroupData[{ Cell[92934, 2344, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4bcc31eb-0626-49a9-9684-cc09bd77beb9", CellID->14107563], Cell[93080, 2350, 325, 8, 70, "Text",ExpressionUUID->"9789950a-70bc-4802-bfce-4fb86f1772ec", CellID->640740111], Cell[93408, 2360, 32015, 506, 70, "Input",ExpressionUUID->"217ecfd6-4643-4d3b-b06f-bada06177f73", CellID->690653243], Cell[125426, 2868, 221, 4, 70, "Text",ExpressionUUID->"e69fd9b3-2251-4ce1-a3b3-1e8eeb1ffac3", CellID->227810106], Cell[CellGroupData[{ Cell[125672, 2876, 1324, 37, 70, "Input",ExpressionUUID->"cd7489f0-28c4-4eb8-ab4a-813f9e145cbc", CellID->663783593], Cell[126999, 2915, 804, 23, 70, "Output",ExpressionUUID->"f118f778-5c0e-4576-82c7-da9029222dad", CellID->127048711] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[127852, 2944, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"1d02e5fc-b310-4112-8482-79bf8b0e66e3", CellID->14107564], Cell[127998, 2950, 482, 9, 70, "Text",ExpressionUUID->"e3c8c12b-049b-435f-b699-2660efecbc17", CellID->294194824], Cell[CellGroupData[{ Cell[128505, 2963, 841, 22, 70, "Input",ExpressionUUID->"63214379-9b58-4b90-8fe4-9d6854453199", CellID->313708762], Cell[129349, 2987, 24704, 423, 70, "Output",ExpressionUUID->"9a9af5b9-c9a3-4f6c-9963-5a43671fac11", CellID->161821297] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[154102, 3416, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"672ad1ff-c7c2-4ea8-b895-3f5b215a47a5", CellID->14107565], Cell[154248, 3422, 380, 11, 70, "Text",ExpressionUUID->"5124db0d-a7cf-4f32-920f-167db3443b3e", CellID->481245122], Cell[CellGroupData[{ Cell[154653, 3437, 613, 17, 70, "Input",ExpressionUUID->"2b7dfee4-9722-4e42-b53b-5949908d983b", CellID->517750091], Cell[155269, 3456, 3991, 92, 70, "Output",ExpressionUUID->"e0694b6f-0736-4ec0-8b3f-54ea60662504", CellID->144615717] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[159321, 3555, 68, 2, 70, "Subsection",ExpressionUUID->"287c3ee5-e179-4697-ad4d-94476dc82ec6", CellID->890561554], Cell[159392, 3559, 215, 4, 70, "Text",ExpressionUUID->"9c5d9793-d783-4a84-8add-a6a03790ab28", CellID->505532046], Cell[CellGroupData[{ Cell[159632, 3567, 505, 12, 70, "Input",ExpressionUUID->"172aa945-9bf9-44e5-905e-2f5e53ba8ec5", CellID->820659033], Cell[160140, 3581, 7217, 190, 70, "Output",ExpressionUUID->"26620972-206d-45dd-a72b-b23866c5ea4d", CellID->805577262] }, Open ]], Cell[167372, 3774, 170, 3, 70, "Text",ExpressionUUID->"f1af2aa8-4bdd-483b-b5c8-30320e4e423c", CellID->242113712], Cell[CellGroupData[{ Cell[167567, 3781, 427, 14, 70, "Input",ExpressionUUID->"201cd95e-5a5e-4125-b64e-6ad1b528710b", CellID->403730121], Cell[167997, 3797, 748, 14, 70, "Output",ExpressionUUID->"99890f98-2874-4ac6-b240-7e62cc7fc2b1", CellID->959614495] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[168794, 3817, 76, 2, 70, "Subsection",ExpressionUUID->"7753568e-4ab5-49f6-ae1d-fb5b80972947", CellID->158766396], Cell[168873, 3821, 406, 6, 70, "Text",ExpressionUUID->"6d339e7c-7f66-45b8-a09a-987e5dda1921", CellID->758137479], Cell[CellGroupData[{ Cell[169304, 3831, 326, 8, 70, "Input",ExpressionUUID->"c6703de8-bcbd-4e49-871c-4758a506efb7", CellID->219188894], Cell[169633, 3841, 1404, 28, 70, "Output",ExpressionUUID->"2fdfa4af-bd0a-4e02-8588-f32abcaf51ec", CellID->989090931] }, Open ]], Cell[171052, 3872, 226, 4, 70, "Text",ExpressionUUID->"bb347e73-6c30-49df-8a5e-d4da14a0b040", CellID->698375327], Cell[CellGroupData[{ Cell[171303, 3880, 217, 6, 70, "Input",ExpressionUUID->"52558906-b00a-4670-b746-81e202bba610", CellID->459433760], Cell[171523, 3888, 185, 3, 70, "Output",ExpressionUUID->"a0df8ab1-b278-4505-a855-474d99e8de91", CellID->128770807] }, Open ]], Cell[171723, 3894, 215, 6, 70, "Text",ExpressionUUID->"fa92e1c4-f965-47b2-a912-b21a42038e36", CellID->403439331] }, Closed]], Cell[CellGroupData[{ Cell[171975, 3905, 74, 2, 70, "Subsection",ExpressionUUID->"4c2dda43-3ac4-4441-8e78-556a43d5f7f9", CellID->461278909], Cell[172052, 3909, 212, 6, 70, "Text",ExpressionUUID->"b70d0741-a175-4338-a0bf-ad8083971ee1", CellID->212625740], Cell[CellGroupData[{ Cell[172289, 3919, 1861, 50, 70, "Input",ExpressionUUID->"d58690c9-134d-41ba-9239-63d819e77788", CellID->642203940], Cell[174153, 3971, 9354, 208, 70, "Output",ExpressionUUID->"ae1c4215-b501-4d8e-830e-96c973f2dfb0", CellID->798713995] }, Open ]], Cell[CellGroupData[{ Cell[183544, 4184, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"35945639-e894-418e-a130-786d047c609f", CellID->14107566], Cell[183690, 4190, 275, 7, 70, "Text",ExpressionUUID->"af70b9ab-336a-4ae2-bdbf-d1435a731dff", CellID->240707197], Cell[CellGroupData[{ Cell[183990, 4201, 1155, 32, 70, "Input",ExpressionUUID->"d7807f07-7d31-462f-a587-b9e6e7e0046a", CellID->281538556], Cell[185148, 4235, 7115, 123, 70, "Output",ExpressionUUID->"96a9a9c8-ab23-4f3d-9c12-03473c611c5b", CellID->859856319] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[192312, 4364, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"0e0427f0-f9f4-4353-af55-63ab9b30061b", CellID->14107567], Cell[192458, 4370, 234, 6, 70, "Text",ExpressionUUID->"6cdd0c74-ca5f-4464-8202-c0334df7f5d6", CellID->382739683], Cell[CellGroupData[{ Cell[192717, 4380, 618, 20, 70, "Input",ExpressionUUID->"99564b4d-5fbe-44b7-85c4-94b3b3994477", CellID->422565980], Cell[193338, 4402, 567, 12, 70, "Output",ExpressionUUID->"3aaaa15b-bade-4ac7-b9e7-bb6f6dcefc0f", CellID->155300546] }, Open ]], Cell[193920, 4417, 221, 6, 70, "Text",ExpressionUUID->"f9af5484-2fc3-429d-9a4a-7ae82b711a5a", CellID->709050215], Cell[CellGroupData[{ Cell[194166, 4427, 2601, 66, 70, "Input",ExpressionUUID->"f48ffd80-d4e3-4db1-a83a-20ba5b214ec2", CellID->482315570], Cell[196770, 4495, 68212, 1771, 70, "Output",ExpressionUUID->"f45399cf-b543-4c35-a3e9-02e397f422d9", CellID->752585505] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[265055, 6274, 249, 5, 70, "Section",ExpressionUUID->"c120524e-0f0d-4619-a493-14ad6b3f8cf0", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[265329, 6283, 1026, 26, 70, "Subsection",ExpressionUUID->"4856a9a7-78f0-419a-806f-7f8469470f81", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[266358, 6311, 46, 1, 70, "Text",ExpressionUUID->"9c4ea6b8-8f08-4dc6-a5b9-fb924619ca8e", CellID->356386810] }, Open ]], Cell[CellGroupData[{ Cell[266441, 6317, 996, 26, 70, "Subsection",ExpressionUUID->"c9f3b696-6e7c-4103-b201-68961d5ef19e", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[267440, 6345, 48, 1, 70, "Item",ExpressionUUID->"517e64ee-ae9d-4bc8-84b6-fe0050b1f890", CellID->917308151], Cell[267491, 6348, 50, 1, 70, "Item",ExpressionUUID->"11e91bac-5d5b-4214-afe0-ec3545b508dd", CellID->688148781] }, Open ]], Cell[CellGroupData[{ Cell[267578, 6354, 221, 6, 70, "Subsection",ExpressionUUID->"360199ce-40c6-4f12-a90c-5fa1a97c54a4", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[267802, 6362, 8331, 252, 70, "Output",ExpressionUUID->"6fec4a94-fddb-4968-807b-3aeacd220f9c", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->45597596] }, Open ]], Cell[CellGroupData[{ Cell[276170, 6619, 980, 26, 70, "Subsection",ExpressionUUID->"8bd7104f-aa56-4677-bd5c-e6dcf40453c5", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[277153, 6647, 48, 1, 70, "Item",ExpressionUUID->"d652dfbd-1cc1-4168-be0a-04f13bd31df1", CellID->11222290] }, Open ]], Cell[CellGroupData[{ Cell[277238, 6653, 1039, 26, 70, "Subsection",ExpressionUUID->"1466dd68-b0a3-4793-9950-5d9bbbec1bf2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[278280, 6681, 528, 8, 70, "Item",ExpressionUUID->"f99f65c9-cfac-41ac-821d-ec9e2f00f3b5", CellTags->{"DefaultContent", "TabNext"}, CellID->873143661] }, Open ]], Cell[CellGroupData[{ Cell[278845, 6694, 1084, 26, 70, "Subsection",ExpressionUUID->"2689692a-1685-4466-9012-84b170352c1f", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[279932, 6722, 516, 8, 70, "Text",ExpressionUUID->"ca1b045a-2005-4f67-81e6-9bfd8fd31b55", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[280485, 6735, 923, 26, 70, "Subsection",ExpressionUUID->"665805e5-eb39-4d01-b97f-e58325dc9d5f", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[281411, 6763, 277, 5, 70, "Item",ExpressionUUID->"3c7cd847-6270-4dff-ac33-94dd91f0adb7", CellID->712538264], Cell[281691, 6770, 300, 7, 70, "Item",ExpressionUUID->"e4000131-2f48-47c6-b0a1-7393ede81f42", CellID->716895906] }, Open ]], Cell[CellGroupData[{ Cell[282028, 6782, 1874, 45, 70, "Subsection",ExpressionUUID->"16df6db7-b6d1-4767-ab92-dcbce4206552", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[283927, 6831, 209, 5, 70, "Input",ExpressionUUID->"ace1944b-daac-4688-b9ba-af8576b88c70", CellID->832883640], Cell[284139, 6838, 491, 10, 70, "Output",ExpressionUUID->"dc6c71cd-b966-4113-a69b-eff91180b98b", CellID->320193360] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[284679, 6854, 955, 25, 70, "Subsection",ExpressionUUID->"cbd185ea-9229-4637-babe-5340515e1016", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[285659, 6883, 1174, 31, 70, "Subsubsection",ExpressionUUID->"969f663c-f19e-4828-8185-1401d65a89f8", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[286836, 6916, 89, 2, 70, "Text",ExpressionUUID->"60c7a616-7699-4b37-b318-9ca4c6047721", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[286962, 6923, 1113, 29, 70, "Subsubsection",ExpressionUUID->"e4f0ed90-0266-44f2-9391-768ffd08b06b", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[288078, 6954, 2098, 62, 70, "Output",ExpressionUUID->"9adb40a2-fb4e-4361-9bbb-ccbde29aa565", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[290213, 7021, 1280, 33, 70, "Subsubsection",ExpressionUUID->"6c7f31de-cc2c-4684-a1ed-8c8fcd642ed2", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[291496, 7056, 2149, 63, 70, "Output",ExpressionUUID->"6ca5fa73-90bd-45a7-a15f-5c3d06e8a435", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[293682, 7124, 1913, 46, 70, "Subsubsection",ExpressionUUID->"6633d3a4-f08a-48e3-bcba-5d3cf30ae928", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[295598, 7172, 3986, 117, 70, "Output",ExpressionUUID->"d7583320-6b41-4c91-afe6-c01636fdd0dd", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[299621, 7294, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c31d08a0-c0fc-4ac8-8067-afbd4b752db0", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[300695, 7323, 1218, 36, 70, "Output",ExpressionUUID->"65f1aff3-2194-4ec0-91ec-25c10a9fbbf7", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[301974, 7366, 1155, 28, 70, "Section",ExpressionUUID->"91fb1632-b640-44a7-8a5c-38c97dc76cef", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[303132, 7396, 156, 2, 70, "Item",ExpressionUUID->"5966d4a5-17ed-4812-9dde-5ea085f2f126", CellID->517197650], Cell[303291, 7400, 175, 4, 70, "Item",ExpressionUUID->"2aea4c5f-302b-4413-9da5-e8330dc48974", CellID->705685438] }, Open ]], Cell[CellGroupData[{ Cell[303503, 7409, 1033, 26, 70, "Section",ExpressionUUID->"8bf2900b-dc49-4b2e-b569-e2c15dd223b1", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[304539, 7437, 515, 8, 70, "Text",ExpressionUUID->"fc1e0086-59e4-4d20-83db-74209f5bbfec", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)