(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 330502, 7850] NotebookOptionsPosition[ 318423, 7575] NotebookOutlinePosition[ 320184, 7627] CellTagsIndexPosition[ 320141, 7624] WindowTitle->ReasonableRuler | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Marks for a sparse ruler of length 57:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7792137221994047`*^9, 3.779213767390977*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->609650877], 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->404606526] }, Open ]], Cell["Check that all differences are covered:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779213914411284*^9, 3.77921393894713*^9}, { 3.780423179708539*^9, 3.780423182217964*^9}}, CellID->449376354], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Complement", "[", RowBox[{ RowBox[{"Range", "[", "57", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}], "/@", RowBox[{"Subsets", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->947231027], 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->50066754] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1276118294], 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->121584727], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Differences", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->154612673], 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->70079623] }, Open ]], Cell["Split the Difference:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7804304749968724`*^9, 3.7804304941643887`*^9}}, CellID->182081018], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Split", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780430499966076*^9, 3.780430503012952*^9}}, CellLabel->"In[10]:=", CellID->359255912], 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->291630976] }, 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->464379390], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", "396", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780430379271882*^9, 3.780430447056969*^9}}, CellLabel->"In[8]:=", CellID->884741201], 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->100639824] }, Open ]], Cell["Show the compact form:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780430626805254*^9, 3.7804306608607216`*^9}}, CellID->228368028], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", "396", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[11]:=", CellID->468063387], 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->130781104] }, 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->652130199], 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->41606362], 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->21828595] }, 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->730428715], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->618082674], 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->511555829] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], 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->484651901], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", RowBox[{"58", ",", "\"\\""}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", "58", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "+", "1"}]}], "}"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7804232793108654`*^9, 3.780423302662754*^9}, { 3.7804307169620028`*^9, 3.78043077556612*^9}}, CellLabel->"In[16]:=", CellID->173156145], 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->666438936] }, 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->156740358], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", "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->498032325], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{3.780423567133657*^9, 3.7804308106630726`*^9}, CellLabel->"Out[17]=", CellID->342118603] }, 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->649685796], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"length", "=", "999"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ruler", "=", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", "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->836153427], 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->62705382] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1299197929], 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->576378146], 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->406421993], 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->37189455], 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->480313527], 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->520267894] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1267600658], 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->3087006], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"3.348", " ", "n"}], "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", "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->58595494], 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->137236207] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1750615368], 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->45588372], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->6652581], 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->19556326] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Options", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->776923543], 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->166396940], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->833815360], 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->184986432] }, Open ]], Cell["Show the excess values for the first 51 rulers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.779217150931393*^9, 3.7792171672356873`*^9}}, CellID->38150875], 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->199476689], 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->310660316] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Possible Issues", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->92483860], 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->337155208], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->763758661], 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->350887173] }, 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->125974329], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Total", "[", RowBox[{"Last", "[", "%", "]"}], "]"}], "+", "1"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77921429014162*^9, 3.779214303355097*^9}}, CellID->6859247], Cell[BoxData["173205080756887729352744634150587236694280525381039"], "Output", TaggingRules->{}, CellChangeTimes->{3.7792143057574224`*^9, 3.7804238133798637`*^9}, CellID->895955711] }, 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->28593105] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->540091361], Cell["\<\ Generate reasonable rulers for various integer powers and calculate their \ excess:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.779217320721554*^9, 3.779217362353463*^9}}, CellID->847752340], 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[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->19902818], 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->73125656] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->207808380], 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->67551639], 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[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->916843151], 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->802830394] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->562656422], 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->32234132], 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->43418441], 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->148380122] }, 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->83056644], 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[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ReasonableRuler", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ReasonableRuler"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ReasonableRuler"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ReasonableRuler"], BoxID -> "ReasonableRuler", Selectable->False], "[", 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->85398921], 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->668240778] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ReasonableRuler | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[628, 23, 168, 7, 70, "Subsection",ExpressionUUID->"a259c8fc-503c-4f1b-ac90-99345e0dd317", CellID->462042388], Cell[799, 32, 160, 3, 70, "Text",ExpressionUUID->"1cbe0561-079e-419f-a7be-4310f79545d7", CellID->13078159], Cell[CellGroupData[{ Cell[984, 39, 7291, 182, 70, "Input",ExpressionUUID->"10cf1f2c-f2be-4326-ba9a-beee960aa778", CellID->609650877], Cell[8278, 223, 458, 11, 70, "Output",ExpressionUUID->"cf69dd69-952d-41f4-b1bf-655cdb894af2", CellID->404606526] }, Open ]], Cell[8751, 237, 208, 4, 70, "Text",ExpressionUUID->"50de3d01-2282-49de-a46e-3ac047e6143a", CellID->449376354], Cell[CellGroupData[{ Cell[8984, 245, 8662, 208, 70, "Input",ExpressionUUID->"0898a176-e769-445d-9030-a1c9ac75c1d0", CellID->947231027], Cell[17649, 455, 273, 7, 70, "Output",ExpressionUUID->"31f89841-66d7-4bca-9976-1015d9169e97", CellID->50066754] }, Open ]], Cell[CellGroupData[{ Cell[17959, 467, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"1d19ca7a-1365-436a-9a9a-fbf86b085e8b", CellID->1276118294], Cell[18107, 473, 293, 7, 70, "Text",ExpressionUUID->"67fb0b62-1ea4-479f-ac91-021889964fb4", CellID->121584727], Cell[CellGroupData[{ Cell[18425, 484, 7566, 187, 70, "Input",ExpressionUUID->"34b4f4ec-135c-45e7-8f56-2aad0e32c3c9", CellID->154612673], Cell[25994, 673, 680, 14, 70, "Output",ExpressionUUID->"5a282bee-b8b6-4812-b6a7-48f58224e6de", CellID->70079623] }, Open ]], Cell[26689, 690, 146, 3, 70, "Text",ExpressionUUID->"a2dfddac-8446-4837-8007-4d927f4af3e9", CellID->182081018], Cell[CellGroupData[{ Cell[26860, 697, 187, 5, 70, "Input",ExpressionUUID->"39483dcb-125e-49f7-be9e-a875156f3bf0", CellID->359255912], Cell[27050, 704, 748, 21, 70, "Output",ExpressionUUID->"8f18ad3f-2175-4824-9975-0b0baee7d440", CellID->291630976] }, Open ]], Cell[27813, 728, 295, 7, 70, "Text",ExpressionUUID->"130f8fa3-48d5-4d36-95fd-c85b2e73064e", CellID->464379390], Cell[CellGroupData[{ Cell[28133, 739, 7857, 195, 70, "Input",ExpressionUUID->"0713703b-5ae9-4ad3-aef2-49428106dfee", CellID->884741201], Cell[35993, 936, 798, 22, 70, "Output",ExpressionUUID->"96cf8ef1-5081-45f6-9ed1-3954af4c9308", CellID->100639824] }, Open ]], Cell[36806, 961, 145, 3, 70, "Text",ExpressionUUID->"ba6a87dc-9375-441a-bf31-d6f9050fd604", CellID->228368028], Cell[CellGroupData[{ Cell[36976, 968, 7082, 178, 70, "Input",ExpressionUUID->"bae6093e-ab1f-47e5-b012-90748afc731b", CellID->468063387], Cell[44061, 1148, 369, 12, 70, "Output",ExpressionUUID->"663f7915-3806-4c5f-908d-34bfa2b0b63d", CellID->130781104] }, Open ]], Cell[44445, 1163, 221, 4, 70, "Text",ExpressionUUID->"25a6060c-61f0-4029-a6d9-cc9bf13653e6", CellID->652130199], Cell[CellGroupData[{ Cell[44691, 1171, 283, 7, 70, "Input",ExpressionUUID->"0bbfb9ac-e2fa-4489-97a5-161c3662d0d6", CellID->41606362], Cell[44977, 1180, 305, 7, 70, "Output",ExpressionUUID->"8727dfe9-edd5-4b11-b054-a620ec0449f7", CellID->21828595] }, Open ]], Cell[45297, 1190, 269, 5, 70, "Text",ExpressionUUID->"d02d7a3d-c209-4f92-ab7b-4d90420400da", CellID->730428715], Cell[CellGroupData[{ Cell[45591, 1199, 7288, 182, 70, "Input",ExpressionUUID->"9e20e61e-1ab2-43ae-92eb-b25b001869b5", CellID->618082674], Cell[52882, 1383, 648, 13, 70, "Output",ExpressionUUID->"a98da0a6-77a1-4562-a76d-ba12a8cd1db2", CellID->511555829] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53591, 1403, 159, 7, 70, "Subsection",ExpressionUUID->"f4d993b0-c813-4612-975d-6e4621b38c55", CellID->964056545], Cell[53753, 1412, 217, 4, 70, "Text",ExpressionUUID->"f20cbe7c-1c17-449d-b490-2e7a671e7e65", CellID->484651901], Cell[CellGroupData[{ Cell[53995, 1420, 16001, 384, 70, "Input",ExpressionUUID->"1db55bbc-3f42-4a3d-ad3c-05f8d544a800", CellID->173156145], Cell[69999, 1806, 282, 7, 70, "Output",ExpressionUUID->"19233d30-b52d-417e-ae78-c45226a4dbbc", CellID->666438936] }, Open ]], Cell[70296, 1816, 813, 28, 70, "Text",ExpressionUUID->"2e50d11b-799c-4764-8240-2391c64675fa", CellID->156740358], Cell[CellGroupData[{ Cell[71134, 1848, 8437, 203, 70, "Input",ExpressionUUID->"47186830-ca92-421b-9d4f-109af89a9007", CellID->498032325], Cell[79574, 2053, 157, 4, 70, "Output",ExpressionUUID->"d8421f91-c4e7-4335-836d-c7a66cf2e625", CellID->342118603] }, Open ]], Cell[79746, 2060, 190, 4, 70, "Text",ExpressionUUID->"9d982571-d924-4977-aa7c-56d059962e60", CellID->649685796], Cell[CellGroupData[{ Cell[79961, 2068, 8695, 215, 70, "Input",ExpressionUUID->"f2a99a66-5216-462e-bd81-e76dc75d1e82", CellID->836153427], Cell[88659, 2285, 928, 25, 70, "Output",ExpressionUUID->"165af9ae-b609-4242-b47b-47636fbadb7c", CellID->62705382] }, Open ]], Cell[CellGroupData[{ Cell[89624, 2315, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"25d32739-60c4-402f-9c79-81f96910ffb5", CellID->1299197929], Cell[89772, 2321, 325, 8, 70, "Text",ExpressionUUID->"9ee9b0b9-81db-44cc-99c0-fe85659a02e1", CellID->576378146], Cell[90100, 2331, 32015, 506, 70, "Input",ExpressionUUID->"c07d5159-4148-4d13-ab39-4a41bdf55cf0", CellID->406421993], Cell[122118, 2839, 220, 4, 70, "Text",ExpressionUUID->"a722a545-e9b5-4b1e-bcc7-88026147ea3e", CellID->37189455], Cell[CellGroupData[{ Cell[122363, 2847, 1324, 37, 70, "Input",ExpressionUUID->"0fcd91d1-363f-443f-9396-601c518abb46", CellID->480313527], Cell[123690, 2886, 804, 23, 70, "Output",ExpressionUUID->"5faec433-09e9-44aa-945e-028ea898cccb", CellID->520267894] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124543, 2915, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"2333aef4-6d0c-456c-8fa6-f7ea9770568b", CellID->1267600658], Cell[124691, 2921, 480, 9, 70, "Text",ExpressionUUID->"20b76b25-40ba-4620-8f94-6be29d74b134", CellID->3087006], Cell[CellGroupData[{ Cell[125196, 2934, 9120, 214, 70, "Input",ExpressionUUID->"cc44df38-123a-495c-baa7-edf17f1f9921", CellID->58595494], Cell[134319, 3150, 24704, 423, 70, "Output",ExpressionUUID->"d13f4a4c-3beb-469d-8658-76d08f7067f7", CellID->137236207] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[159072, 3579, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"9f5ff8d6-87c2-43a1-9af5-228563e9267b", CellID->1750615368], Cell[159220, 3585, 379, 11, 70, "Text",ExpressionUUID->"000f3fb4-4c5e-447d-ab7b-b67659a3a04a", CellID->45588372], Cell[CellGroupData[{ Cell[159624, 3600, 8792, 208, 70, "Input",ExpressionUUID->"de8285db-708b-4c3a-8709-8502a9ab3dca", CellID->6652581], Cell[168419, 3810, 3990, 92, 70, "Output",ExpressionUUID->"ce3bc508-2b41-4ba9-974b-46f8fb9c5060", CellID->19556326] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[172470, 3909, 161, 7, 70, "Subsection",ExpressionUUID->"64836c12-4eff-4f48-a680-1bbeaf147d05", CellID->776923543], Cell[172634, 3918, 215, 4, 70, "Text",ExpressionUUID->"f9aa75e1-bb4b-4b0d-abae-844308a62d11", CellID->166396940], Cell[CellGroupData[{ Cell[172874, 3926, 7883, 192, 70, "Input",ExpressionUUID->"1d8e26da-b0f7-4d90-82b4-e8a88c9dfde3", CellID->833815360], Cell[180760, 4120, 7217, 190, 70, "Output",ExpressionUUID->"adf9dcf4-84f3-49a0-87a9-05b779452e5e", CellID->184986432] }, Open ]], Cell[187992, 4313, 169, 3, 70, "Text",ExpressionUUID->"18c0ebad-a393-4d1c-b53a-540124badc36", CellID->38150875], Cell[CellGroupData[{ Cell[188186, 4320, 427, 14, 70, "Input",ExpressionUUID->"d32f86aa-29e1-4bbd-a95f-6bf0da904e30", CellID->199476689], Cell[188616, 4336, 748, 14, 70, "Output",ExpressionUUID->"f516cb7c-e07e-462f-ba6d-385b6e2cf5bb", CellID->310660316] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[189413, 4356, 168, 7, 70, "Subsection",ExpressionUUID->"25c362dd-63a0-4574-bd8a-ca35fa435ef0", CellID->92483860], Cell[189584, 4365, 406, 6, 70, "Text",ExpressionUUID->"790f3e16-1501-4e0c-8db7-73c9e0bc17ac", CellID->337155208], Cell[CellGroupData[{ Cell[190015, 4375, 7275, 182, 70, "Input",ExpressionUUID->"039e06d4-d25c-43bd-bc57-e4e1eb79b26d", CellID->763758661], Cell[197293, 4559, 1404, 28, 70, "Output",ExpressionUUID->"5e853964-e51a-4367-a60e-af454e099937", CellID->350887173] }, Open ]], Cell[198712, 4590, 226, 4, 70, "Text",ExpressionUUID->"dc0a9cb0-a2e6-4bbc-8d72-a163845b6f6f", CellID->125974329], Cell[CellGroupData[{ Cell[198963, 4598, 215, 6, 70, "Input",ExpressionUUID->"45aca23d-e2a3-4d75-9700-ee42674152b6", CellID->6859247], Cell[199181, 4606, 185, 3, 70, "Output",ExpressionUUID->"95639640-bfb0-43be-b05d-63d927018277", CellID->895955711] }, Open ]], Cell[199381, 4612, 214, 6, 70, "Text",ExpressionUUID->"524fa164-3a1e-4a30-8dff-873276e88ee0", CellID->28593105] }, Closed]], Cell[CellGroupData[{ Cell[199632, 4623, 167, 7, 70, "Subsection",ExpressionUUID->"3504f79f-149f-4c9e-833d-47b5019e8163", CellID->540091361], Cell[199802, 4632, 212, 6, 70, "Text",ExpressionUUID->"ffad5f88-387f-429a-924c-d53a25ef660d", CellID->847752340], Cell[CellGroupData[{ Cell[200039, 4642, 10442, 243, 70, "Input",ExpressionUUID->"44626a5e-9d86-4d8b-8ab5-54aeff0138f3", CellID->19902818], Cell[210484, 4887, 9353, 208, 70, "Output",ExpressionUUID->"98b9ee7c-4f3d-46ef-bc21-81417a9ec07c", CellID->73125656] }, Open ]], Cell[CellGroupData[{ Cell[219874, 5100, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"4fd89b55-54c5-450f-b9b9-081773d38400", CellID->207808380], Cell[220021, 5106, 274, 7, 70, "Text",ExpressionUUID->"644bd5ca-3bb7-42ff-a855-b8ec2b5ca27e", CellID->67551639], Cell[CellGroupData[{ Cell[220320, 5117, 9620, 225, 70, "Input",ExpressionUUID->"3657ace0-e9ff-4589-afd4-1cf7c92e3bed", CellID->916843151], Cell[229943, 5344, 7120, 124, 70, "Output",ExpressionUUID->"f135d385-413c-4a60-b608-56e637f9c699", CellID->802830394] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[237112, 5474, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"7598192a-49bf-4522-a5fb-cad5770091b3", CellID->562656422], Cell[237259, 5480, 233, 6, 70, "Text",ExpressionUUID->"58fb7bea-af34-4b05-bd74-00f957c81d21", CellID->32234132], Cell[CellGroupData[{ Cell[237517, 5490, 617, 20, 70, "Input",ExpressionUUID->"e4a3dea6-7f1d-4246-b37e-d8715a27b6a6", CellID->43418441], Cell[238137, 5512, 567, 12, 70, "Output",ExpressionUUID->"22bd55df-0f58-4e4f-945d-2ffc3f6a7971", CellID->148380122] }, Open ]], Cell[238719, 5527, 220, 6, 70, "Text",ExpressionUUID->"ae447723-d995-47b4-86e6-9ef73325bb3e", CellID->83056644], Cell[CellGroupData[{ Cell[238964, 5537, 11204, 260, 70, "Input",ExpressionUUID->"72f715f4-e4da-4ab5-8169-9a3d3229d93f", CellID->85398921], Cell[250171, 5799, 68212, 1771, 70, "Output",ExpressionUUID->"ec7a46a3-42d6-4c14-8504-5e0820508f66", CellID->668240778] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)