(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 95103, 2276] NotebookOptionsPosition[ 91145, 2181] NotebookOutlinePosition[ 91469, 2197] CellTagsIndexPosition[ 91426, 2194] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Plot binary digit sequences of successive numbers:", "Text", CellChangeTimes->{{3.7447635435647297`*^9, 3.744763552884612*^9}}, CellID->702153016], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.744763104007203*^9, 3.744763119301169*^9}, { 3.744763247902459*^9, 3.744763248210586*^9}, {3.744763533839284*^9, 3.744763534019216*^9}, {3.746740744702631*^9, 3.746740745252614*^9}}, CellLabel->"In[299]:=", CellID->663099647], Cell[BoxData[ GraphicsBox[ {EdgeForm[GrayLevel[0]], {GrayLevel[0.], StyleBox[RectangleBox[{-1, 0}, {0, -1}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -1}, {-1, -2}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -1}, {0, -2}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -2}, {-1, -3}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -2}, {0, -3}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -3}, {-2, -4}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -3}, {-1, -4}]}, {GrayLevel[0.85], RectangleBox[{-1, -3}, {0, -4}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -4}, {-2, -5}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -4}, {-1, -5}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -4}, {0, -5}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -5}, {-2, -6}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -5}, {-1, -6}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -5}, {0, -6}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -6}, {-2, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -6}, {-1, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -6}, {0, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -7}, {-3, -8}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -7}, {-2, -8}]}, {GrayLevel[0.85], RectangleBox[{-2, -7}, {-1, -8}]}, {GrayLevel[0.85], RectangleBox[{-1, -7}, {0, -8}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -8}, {-3, -9}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -8}, {-2, -9}]}, {GrayLevel[0.85], RectangleBox[{-2, -8}, {-1, -9}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -8}, {0, -9}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -9}, {-3, -10}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -9}, {-2, -10}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -9}, {-1, -10}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -9}, {0, -10}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -10}, {-3, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -10}, {-2, -11}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -10}, {-1, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -10}, {0, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -11}, {-3, -12}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -11}, {-2, -12}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -11}, {-1, -12}]}, {GrayLevel[0.85], RectangleBox[{-1, -11}, {0, -12}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -12}, {-3, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -12}, {-2, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -12}, {-1, -13}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -12}, {0, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -13}, {-3, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -13}, {-2, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -13}, {-1, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -13}, {0, -14}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -14}, {-3, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -14}, {-2, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -14}, {-1, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -14}, {0, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -15}, {-4, -16}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -15}, {-3, -16}]}, {GrayLevel[0.85], RectangleBox[{-3, -15}, {-2, -16}]}, {GrayLevel[0.85], RectangleBox[{-2, -15}, {-1, -16}]}, {GrayLevel[0.85], RectangleBox[{-1, -15}, {0, -16}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -16}, {-4, -17}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -16}, {-3, -17}]}, {GrayLevel[0.85], RectangleBox[{-3, -16}, {-2, -17}]}, {GrayLevel[0.85], RectangleBox[{-2, -16}, {-1, -17}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -16}, {0, -17}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -17}, {-4, -18}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -17}, {-3, -18}]}, {GrayLevel[0.85], RectangleBox[{-3, -17}, {-2, -18}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -17}, {-1, -18}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -17}, {0, -18}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -18}, {-4, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -18}, {-3, -19}]}, {GrayLevel[0.85], RectangleBox[{-3, -18}, {-2, -19}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -18}, {-1, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -18}, {0, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -19}, {-4, -20}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -19}, {-3, -20}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -19}, {-2, -20}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -19}, {-1, -20}]}, {GrayLevel[0.85], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, ImageSize->{59.952665441176464`, Automatic}, PlotRange->{{-5.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{{3.74476311337363*^9, 3.744763119734692*^9}, { 3.744763234432394*^9, 3.744763248596856*^9}, {3.74476353130168*^9, 3.744763534407436*^9}, 3.746740745955618*^9, 3.754137786020527*^9, 3.7541384686421833`*^9, 3.7541394850585413`*^9, 3.754139909875085*^9, 3.754140010704898*^9, 3.7541537090712337`*^9, 3.7541544353729963`*^9, 3.754154910891032*^9, 3.7541594511885653`*^9, 3.754163017487329*^9}, CellLabel->"Out[299]=", CellID->1109541045] }, Open ]], Cell["Plot ternary digit sequences:", "Text", CellChangeTimes->{{3.744763575656547*^9, 3.74476357979193*^9}}, CellID->1900296083], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.744763104007203*^9, 3.744763119301169*^9}, { 3.744763247902459*^9, 3.744763248210586*^9}, {3.744763533839284*^9, 3.744763569823078*^9}, {3.746740751126893*^9, 3.7467407516292048`*^9}}, CellLabel->"In[300]:=", CellID->1820054696], Cell[BoxData[ GraphicsBox[ {EdgeForm[GrayLevel[0]], {GrayLevel[0.425], RectangleBox[{-1, 0}, {0, -1}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -1}, {0, -2}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.425], RectangleBox[{-2, -2}, {-1, -3}]}, {GrayLevel[0.85], RectangleBox[{-1, -2}, {0, -3}]}, {GrayLevel[0.425], RectangleBox[{-2, -3}, {-1, -4}]}, {GrayLevel[0.425], RectangleBox[{-1, -3}, {0, -4}]}, {GrayLevel[0.425], RectangleBox[{-2, -4}, {-1, -5}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -4}, {0, -5}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -5}, {-1, -6}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -5}, {0, -6}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -6}, {-1, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.425], RectangleBox[{-1, -6}, {0, -7}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -7}, {-1, -8}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -7}, {0, -8}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.425], RectangleBox[{-3, -8}, {-2, -9}]}, {GrayLevel[0.85], RectangleBox[{-2, -8}, {-1, -9}]}, {GrayLevel[0.85], RectangleBox[{-1, -8}, {0, -9}]}, {GrayLevel[0.425], RectangleBox[{-3, -9}, {-2, -10}]}, {GrayLevel[0.85], RectangleBox[{-2, -9}, {-1, -10}]}, {GrayLevel[0.425], RectangleBox[{-1, -9}, {0, -10}]}}, AspectRatio->Automatic, ImageSize->{67.36925551470591, Automatic}, PlotRange->{{-3.1, 0.1}, {0.1, -10.1}}]], "Output", CellChangeTimes->{{3.744763565449256*^9, 3.744763570231265*^9}, 3.7467407523201447`*^9, 3.754137788806551*^9, 3.75413948747509*^9, 3.754140010784865*^9, 3.754153709379218*^9, 3.7541544354656143`*^9, 3.754154911009761*^9, 3.754159451291164*^9, 3.754163017592725*^9}, CellLabel->"Out[300]=", CellID->1455836414] }, Open ]], Cell["\<\ Include padding equivalent to 3 digits positions on the left:\ \>", "Text", CellChangeTimes->{{3.74476362122158*^9, 3.744763636246134*^9}}, CellID->24530361], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], ",", "2", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.744763104007203*^9, 3.744763119301169*^9}, { 3.744763247902459*^9, 3.744763248210586*^9}, {3.744763533839284*^9, 3.744763534019216*^9}, {3.744763599173079*^9, 3.744763601203269*^9}, { 3.746740757895749*^9, 3.746740758478114*^9}}, CellLabel->"In[306]:=", CellID->2112400750], Cell[BoxData[ GraphicsBox[ {EdgeForm[GrayLevel[0]], {GrayLevel[0.], StyleBox[RectangleBox[{-1, 0}, {0, -1}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -1}, {-1, -2}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -1}, {0, -2}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -2}, {-1, -3}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -2}, {0, -3}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -3}, {-2, -4}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -3}, {-1, -4}]}, {GrayLevel[0.85], RectangleBox[{-1, -3}, {0, -4}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -4}, {-2, -5}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -4}, {-1, -5}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -4}, {0, -5}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -5}, {-2, -6}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -5}, {-1, -6}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -5}, {0, -6}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -6}, {-2, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -6}, {-1, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -6}, {0, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -7}, {-3, -8}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -7}, {-2, -8}]}, {GrayLevel[0.85], RectangleBox[{-2, -7}, {-1, -8}]}, {GrayLevel[0.85], RectangleBox[{-1, -7}, {0, -8}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -8}, {-3, -9}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -8}, {-2, -9}]}, {GrayLevel[0.85], RectangleBox[{-2, -8}, {-1, -9}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -8}, {0, -9}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -9}, {-3, -10}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -9}, {-2, -10}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -9}, {-1, -10}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -9}, {0, -10}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -10}, {-3, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -10}, {-2, -11}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -10}, {-1, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -10}, {0, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -11}, {-3, -12}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -11}, {-2, -12}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -11}, {-1, -12}]}, {GrayLevel[0.85], RectangleBox[{-1, -11}, {0, -12}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -12}, {-3, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -12}, {-2, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -12}, {-1, -13}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -12}, {0, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -13}, {-3, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -13}, {-2, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -13}, {-1, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -13}, {0, -14}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -14}, {-3, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -14}, {-2, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -14}, {-1, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -14}, {0, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -15}, {-4, -16}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -15}, {-3, -16}]}, {GrayLevel[0.85], RectangleBox[{-3, -15}, {-2, -16}]}, {GrayLevel[0.85], RectangleBox[{-2, -15}, {-1, -16}]}, {GrayLevel[0.85], RectangleBox[{-1, -15}, {0, -16}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -16}, {-4, -17}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -16}, {-3, -17}]}, {GrayLevel[0.85], RectangleBox[{-3, -16}, {-2, -17}]}, {GrayLevel[0.85], RectangleBox[{-2, -16}, {-1, -17}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -16}, {0, -17}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -17}, {-4, -18}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -17}, {-3, -18}]}, {GrayLevel[0.85], RectangleBox[{-3, -17}, {-2, -18}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -17}, {-1, -18}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -17}, {0, -18}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -18}, {-4, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -18}, {-3, -19}]}, {GrayLevel[0.85], RectangleBox[{-3, -18}, {-2, -19}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -18}, {-1, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -18}, {0, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -19}, {-4, -20}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -19}, {-3, -20}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -19}, {-2, -20}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -19}, {-1, -20}]}, {GrayLevel[0.85], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, ImageSize->{102.10852413366334`, Automatic}, PlotRange->{{-8.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{3.7447636017204647`*^9, 3.746740759388453*^9, 3.754137791358327*^9, 3.754139490274598*^9, 3.7541400053209753`*^9, 3.7541537094581413`*^9, 3.754154435545115*^9, 3.7541549110884867`*^9, 3.754159451371914*^9, 3.754163017677154*^9, 3.754163983835373*^9}, CellLabel->"Out[306]=", CellID->1124275403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->1575259], Cell["Hide Mesh:", "Text", CellChangeTimes->{{3.7447635435647297`*^9, 3.744763552884612*^9}, { 3.7541343084128733`*^9, 3.754134312172921*^9}}, CellID->2008209966], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], ",", "2", ",", "3", ",", RowBox[{"ColorFunction", "\[Rule]", "GrayLevel"}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.752840703247609*^9, 3.752840707016005*^9}, { 3.752863208245654*^9, 3.752863208816224*^9}, {3.752869813297523*^9, 3.7528698272218533`*^9}, {3.7528699838191357`*^9, 3.7528699877141933`*^9}, { 3.7530175427798843`*^9, 3.753017544370717*^9}}, CellLabel->"In[307]:=", CellID->131371461], Cell[BoxData[ GraphicsBox[ {EdgeForm[None], {GrayLevel[0.], StyleBox[RectangleBox[{-1, 0}, {0, -1}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -1}, {-1, -2}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -1}, {0, -2}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -2}, {-1, -3}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -2}, {0, -3}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -3}, {-2, -4}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -3}, {-1, -4}]}, {GrayLevel[0.85], RectangleBox[{-1, -3}, {0, -4}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -4}, {-2, -5}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -4}, {-1, -5}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -4}, {0, -5}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -5}, {-2, -6}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -5}, {-1, -6}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -5}, {0, -6}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -6}, {-2, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -6}, {-1, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -6}, {0, -7}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -7}, {-3, -8}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -7}, {-2, -8}]}, {GrayLevel[0.85], RectangleBox[{-2, -7}, {-1, -8}]}, {GrayLevel[0.85], RectangleBox[{-1, -7}, {0, -8}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -8}, {-3, -9}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -8}, {-2, -9}]}, {GrayLevel[0.85], RectangleBox[{-2, -8}, {-1, -9}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -8}, {0, -9}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -9}, {-3, -10}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -9}, {-2, -10}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -9}, {-1, -10}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -9}, {0, -10}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -10}, {-3, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-3, -10}, {-2, -11}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -10}, {-1, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -10}, {0, -11}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -11}, {-3, -12}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -11}, {-2, -12}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -11}, {-1, -12}]}, {GrayLevel[0.85], RectangleBox[{-1, -11}, {0, -12}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -12}, {-3, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -12}, {-2, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -12}, {-1, -13}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -12}, {0, -13}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -13}, {-3, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -13}, {-2, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -13}, {-1, -14}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -13}, {0, -14}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-4, -14}, {-3, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -14}, {-2, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -14}, {-1, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -14}, {0, -15}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -15}, {-4, -16}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -15}, {-3, -16}]}, {GrayLevel[0.85], RectangleBox[{-3, -15}, {-2, -16}]}, {GrayLevel[0.85], RectangleBox[{-2, -15}, {-1, -16}]}, {GrayLevel[0.85], RectangleBox[{-1, -15}, {0, -16}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -16}, {-4, -17}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -16}, {-3, -17}]}, {GrayLevel[0.85], RectangleBox[{-3, -16}, {-2, -17}]}, {GrayLevel[0.85], RectangleBox[{-2, -16}, {-1, -17}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -16}, {0, -17}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -17}, {-4, -18}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -17}, {-3, -18}]}, {GrayLevel[0.85], RectangleBox[{-3, -17}, {-2, -18}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -17}, {-1, -18}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-1, -17}, {0, -18}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -18}, {-4, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -18}, {-3, -19}]}, {GrayLevel[0.85], RectangleBox[{-3, -18}, {-2, -19}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-2, -18}, {-1, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-1, -18}, {0, -19}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[RectangleBox[{-5, -19}, {-4, -20}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-4, -19}, {-3, -20}]}, {GrayLevel[0.], StyleBox[RectangleBox[{-3, -19}, {-2, -20}], StripOnInput->False, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{-2, -19}, {-1, -20}]}, {GrayLevel[0.85], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, PlotRange->{{-8.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{ 3.752869827547761*^9, {3.752869961225183*^9, 3.752869988261949*^9}, 3.752960142954275*^9, 3.75296021823486*^9, 3.753012831328002*^9, 3.753012917127613*^9, {3.753017539681822*^9, 3.753017545583572*^9}, 3.753096652908455*^9, 3.754137794274625*^9, 3.754139492800396*^9, 3.754153709521031*^9, 3.754154435612214*^9, 3.754154911155856*^9, 3.754159451440127*^9, 3.754163017736662*^9, 3.754163983958056*^9}, CellLabel->"Out[307]=", CellID->2135571915] }, Open ]], Cell["Select color maps:", "Text", CellChangeTimes->{{3.7447635435647297`*^9, 3.744763552884612*^9}, { 3.754134362689658*^9, 3.754134366048436*^9}}, CellID->1672201875], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], ",", "2", ",", "3", ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"ColorData", "[", "\"\\"", "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{ 3.753017957592147*^9, 3.7530181884567013`*^9, 3.753018283190399*^9, { 3.753018348842512*^9, 3.753018377412552*^9}, {3.7530281953752613`*^9, 3.753028195870116*^9}, {3.754139792998798*^9, 3.754139795881097*^9}, { 3.7541399168106003`*^9, 3.754139917274735*^9}}, CellLabel->"In[308]:=", CellID->869894572], Cell[BoxData[ GraphicsBox[ {EdgeForm[GrayLevel[0]], {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, 0}, {0, -1}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -1}, {-1, -2}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -1}, {0, -2}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -2}, {-1, -3}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -2}, {0, -3}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -3}, {-2, -4}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -3}, {-1, -4}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -3}, {0, -4}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -4}, {-2, -5}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -4}, {-1, -5}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -4}, {0, -5}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -5}, {-2, -6}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -5}, {-1, -6}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -5}, {0, -6}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -6}, {-2, -7}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -6}, {-1, -7}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -6}, {0, -7}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -7}, {-3, -8}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -7}, {-2, -8}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -7}, {-1, -8}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -7}, {0, -8}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -8}, {-3, -9}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -8}, {-2, -9}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -8}, {-1, -9}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -8}, {0, -9}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -9}, {-3, -10}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -9}, {-2, -10}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -9}, {-1, -10}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -9}, {0, -10}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -10}, {-3, -11}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -10}, {-2, -11}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -10}, {-1, -11}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -10}, {0, -11}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -11}, {-3, -12}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -11}, {-2, -12}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -11}, {-1, -12}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -11}, {0, -12}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -12}, {-3, -13}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -12}, {-2, -13}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -12}, {-1, -13}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -12}, {0, -13}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -13}, {-3, -14}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -13}, {-2, -14}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -13}, {-1, -14}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -13}, {0, -14}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-4, -14}, {-3, -15}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -14}, {-2, -15}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -14}, {-1, -15}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -14}, {0, -15}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-5, -15}, {-4, -16}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-4, -15}, {-3, -16}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -15}, {-2, -16}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -15}, {-1, -16}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -15}, {0, -16}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-5, -16}, {-4, -17}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-4, -16}, {-3, -17}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -16}, {-2, -17}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -16}, {-1, -17}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -16}, {0, -17}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-5, -17}, {-4, -18}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-4, -17}, {-3, -18}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -17}, {-2, -18}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -17}, {-1, -18}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -17}, {0, -18}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-5, -18}, {-4, -19}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-4, -18}, {-3, -19}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-3, -18}, {-2, -19}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-2, -18}, {-1, -19}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-1, -18}, {0, -19}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-5, -19}, {-4, -20}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-4, -19}, {-3, -20}]}, {RGBColor[0.90222, 0.101808, 0.198306], RectangleBox[{-3, -19}, {-2, -20}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-2, -19}, {-1, -20}]}, {RGBColor[1., 0.5280428431034175, 0.05557922124570785], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, PlotRange->{{-8.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{ 3.753018188941951*^9, 3.753018283675015*^9, {3.753018349406352*^9, 3.753018377895768*^9}, {3.753027990638376*^9, 3.753027997787702*^9}, 3.753028081856728*^9, {3.753028162572309*^9, 3.7530281963326273`*^9}, { 3.753028253040493*^9, 3.753028273119893*^9}, 3.753028385610836*^9, 3.753028417249466*^9, 3.753028500451028*^9, 3.753029729937181*^9, 3.753029771435224*^9, 3.753029815816044*^9, 3.753029971079097*^9, 3.75309664901021*^9, 3.753473861875751*^9, {3.753550299678549*^9, 3.753550320695015*^9}, 3.75372229254916*^9, 3.753729174454708*^9, 3.754069486073154*^9, 3.754137798924268*^9, 3.754139495508762*^9, 3.7541397963841763`*^9, {3.7541399141879463`*^9, 3.7541399177208643`*^9}, 3.75414001545616*^9, 3.754153709604891*^9, 3.754154435692305*^9, 3.7541549112368*^9, 3.754159451523693*^9, 3.754162811888418*^9, 3.754162948826016*^9, {3.754162996142981*^9, 3.754163025478636*^9}, 3.754163984030655*^9}, CellLabel->"Out[308]=", CellID->1662983094] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], ",", "2", ",", "3", ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"ColorData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{ 3.753017957592147*^9, 3.7530181884567013`*^9, 3.753018283190399*^9, { 3.753018348842512*^9, 3.753018377412552*^9}, {3.7530281953752613`*^9, 3.753028195870116*^9}, 3.754139076626113*^9}, CellLabel->"In[309]:=", CellID->679008975], Cell[BoxData[ GraphicsBox[ {EdgeForm[GrayLevel[0]], {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, 0}, {0, -1}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -1}, {-1, -2}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -1}, {0, -2}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -2}, {-1, -3}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -2}, {0, -3}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -3}, {-2, -4}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -3}, {-1, -4}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -3}, {0, -4}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -4}, {-2, -5}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -4}, {-1, -5}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -4}, {0, -5}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -5}, {-2, -6}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -5}, {-1, -6}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -5}, {0, -6}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -6}, {-2, -7}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -6}, {-1, -7}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -6}, {0, -7}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -7}, {-3, -8}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -7}, {-2, -8}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -7}, {-1, -8}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -7}, {0, -8}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -8}, {-3, -9}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -8}, {-2, -9}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -8}, {-1, -9}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -8}, {0, -9}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -9}, {-3, -10}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -9}, {-2, -10}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -9}, {-1, -10}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -9}, {0, -10}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -10}, {-3, -11}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -10}, {-2, -11}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -10}, {-1, -11}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -10}, {0, -11}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -11}, {-3, -12}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -11}, {-2, -12}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -11}, {-1, -12}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -11}, {0, -12}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -12}, {-3, -13}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -12}, {-2, -13}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -12}, {-1, -13}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -12}, {0, -13}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -13}, {-3, -14}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -13}, {-2, -14}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -13}, {-1, -14}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -13}, {0, -14}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-4, -14}, {-3, -15}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -14}, {-2, -15}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -14}, {-1, -15}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -14}, {0, -15}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-5, -15}, {-4, -16}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-4, -15}, {-3, -16}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -15}, {-2, -16}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -15}, {-1, -16}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -15}, {0, -16}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-5, -16}, {-4, -17}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-4, -16}, {-3, -17}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -16}, {-2, -17}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -16}, {-1, -17}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -16}, {0, -17}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-5, -17}, {-4, -18}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-4, -17}, {-3, -18}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -17}, {-2, -18}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -17}, {-1, -18}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -17}, {0, -18}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-5, -18}, {-4, -19}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-4, -18}, {-3, -19}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-3, -18}, {-2, -19}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-2, -18}, {-1, -19}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-1, -18}, {0, -19}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-5, -19}, {-4, -20}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-4, -19}, {-3, -20}]}, {RGBColor[0.817319, 0.134127, 0.164218], RectangleBox[{-3, -19}, {-2, -20}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-2, -19}, {-1, -20}]}, {RGBColor[0.4244036000000001, 0.5420188, 0.9482636], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, PlotRange->{{-8.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{3.754139077426311*^9, 3.7541394995037947`*^9, 3.754139920408239*^9, 3.754153709674417*^9, 3.754154435776062*^9, 3.754154911307013*^9, 3.754159451602991*^9, 3.7541629988779488`*^9, 3.754163984113284*^9}, CellLabel->"Out[309]=", CellID->257195153] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], ",", "2", ",", "3", ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"ColorData", "[", "\"\\"", "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{ 3.753017957592147*^9, 3.7530181884567013`*^9, 3.753018283190399*^9, { 3.753018348842512*^9, 3.753018377412552*^9}, {3.7530194640044127`*^9, 3.753019466980155*^9}, {3.753028108720531*^9, 3.753028112519657*^9}, 3.753035773762002*^9, {3.754137719069087*^9, 3.754137721484681*^9}}, CellLabel->"In[310]:=", CellID->1972734899], Cell[BoxData[ GraphicsBox[ {EdgeForm[None], {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, 0}, {0, -1}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -1}, {-1, -2}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -1}, {0, -2}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -2}, {-1, -3}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -2}, {0, -3}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -3}, {-2, -4}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -3}, {-1, -4}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -3}, {0, -4}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -4}, {-2, -5}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -4}, {-1, -5}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -4}, {0, -5}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -5}, {-2, -6}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -5}, {-1, -6}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -5}, {0, -6}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -6}, {-2, -7}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -6}, {-1, -7}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -6}, {0, -7}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -7}, {-3, -8}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -7}, {-2, -8}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -7}, {-1, -8}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -7}, {0, -8}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -8}, {-3, -9}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -8}, {-2, -9}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -8}, {-1, -9}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -8}, {0, -9}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -9}, {-3, -10}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -9}, {-2, -10}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -9}, {-1, -10}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -9}, {0, -10}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -10}, {-3, -11}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -10}, {-2, -11}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -10}, {-1, -11}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -10}, {0, -11}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -11}, {-3, -12}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -11}, {-2, -12}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -11}, {-1, -12}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -11}, {0, -12}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -12}, {-3, -13}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -12}, {-2, -13}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -12}, {-1, -13}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -12}, {0, -13}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -13}, {-3, -14}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -13}, {-2, -14}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -13}, {-1, -14}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -13}, {0, -14}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-4, -14}, {-3, -15}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -14}, {-2, -15}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -14}, {-1, -15}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -14}, {0, -15}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-5, -15}, {-4, -16}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-4, -15}, {-3, -16}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -15}, {-2, -16}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -15}, {-1, -16}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -15}, {0, -16}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-5, -16}, {-4, -17}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-4, -16}, {-3, -17}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -16}, {-2, -17}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -16}, {-1, -17}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -16}, {0, -17}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-5, -17}, {-4, -18}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-4, -17}, {-3, -18}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -17}, {-2, -18}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -17}, {-1, -18}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -17}, {0, -18}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-5, -18}, {-4, -19}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-4, -18}, {-3, -19}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-3, -18}, {-2, -19}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-2, -18}, {-1, -19}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-1, -18}, {0, -19}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-5, -19}, {-4, -20}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-4, -19}, {-3, -20}]}, {RGBColor[0.9803921568627451, 0.9215686274509803, 0.8431372549019608], RectangleBox[{-3, -19}, {-2, -20}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-2, -19}, {-1, -20}]}, {RGBColor[0.9411764705882353, 0.9725490196078431, 1.], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, PlotRange->{{-8.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{ 3.753028207224682*^9, {3.753028255421549*^9, 3.7530282697108*^9}, 3.75302838140856*^9, 3.753028516436357*^9, 3.753029732527691*^9, 3.753029776722562*^9, 3.753029819296454*^9, {3.753029888873344*^9, 3.753029937209057*^9}, 3.753029971220674*^9, 3.753035775536667*^9, 3.7530941458868504`*^9, 3.753095509653164*^9, 3.753096646233323*^9, 3.7537204964493856`*^9, 3.75372228736455*^9, 3.75372917857209*^9, 3.754069499176927*^9, 3.754069637949532*^9, 3.754070202032226*^9, 3.754070321469943*^9, 3.754137722173951*^9, 3.754137801750997*^9, { 3.754137851253319*^9, 3.754137858838719*^9}, {3.7541384000538273`*^9, 3.754138428350164*^9}, 3.75413950263064*^9, 3.754139923093409*^9, 3.75415370979457*^9, 3.754154435892597*^9, 3.754154911421698*^9, 3.754159451724074*^9, 3.754163001192779*^9, 3.7541639842337112`*^9}, CellLabel->"Out[310]=", CellID->1941838707] }, Open ]], Cell["Specify individual colors for values:", "Text", CellChangeTimes->{{3.7447635435647297`*^9, 3.744763552884612*^9}, { 3.754134269717155*^9, 3.7541342956260157`*^9}}, CellID->521663307], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "20"}], "}"}]}], "]"}], ",", " ", "3", ",", " ", RowBox[{"ColorRules", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"0", "\[Rule]", "Red"}], ",", RowBox[{"1", "\[Rule]", "Blue"}], ",", RowBox[{"2", "\[Rule]", "Yellow"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7537297310400467`*^9, 3.753729756388695*^9}, { 3.753730568963511*^9, 3.753730569782873*^9}, {3.753730957909602*^9, 3.753730965737783*^9}, 3.753731028482127*^9, {3.7541550508815117`*^9, 3.7541550526648397`*^9}, {3.754155133654955*^9, 3.7541551369263678`*^9}, { 3.754157767753194*^9, 3.7541577734578857`*^9}, {3.7541578379516573`*^9, 3.754157882295981*^9}, {3.7541622996310368`*^9, 3.754162367772458*^9}}, CellLabel->"In[311]:=", CellID->653982776], Cell[BoxData[ GraphicsBox[ {EdgeForm[GrayLevel[0]], {RGBColor[0, 0, 1], RectangleBox[{-1, 0}, {0, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{-1, -1}, {0, -2}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -2}, {-1, -3}]}, {RGBColor[1, 0, 0], RectangleBox[{-1, -2}, {0, -3}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -3}, {-1, -4}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -3}, {0, -4}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -4}, {-1, -5}]}, {RGBColor[1, 1, 0], RectangleBox[{-1, -4}, {0, -5}]}, {RGBColor[1, 1, 0], RectangleBox[{-2, -5}, {-1, -6}]}, {RGBColor[1, 0, 0], RectangleBox[{-1, -5}, {0, -6}]}, {RGBColor[1, 1, 0], RectangleBox[{-2, -6}, {-1, -7}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -6}, {0, -7}]}, {RGBColor[1, 1, 0], RectangleBox[{-2, -7}, {-1, -8}]}, {RGBColor[1, 1, 0], RectangleBox[{-1, -7}, {0, -8}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -8}, {-2, -9}]}, {RGBColor[1, 0, 0], RectangleBox[{-2, -8}, {-1, -9}]}, {RGBColor[1, 0, 0], RectangleBox[{-1, -8}, {0, -9}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -9}, {-2, -10}]}, {RGBColor[1, 0, 0], RectangleBox[{-2, -9}, {-1, -10}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -9}, {0, -10}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -10}, {-2, -11}]}, {RGBColor[1, 0, 0], RectangleBox[{-2, -10}, {-1, -11}]}, {RGBColor[1, 1, 0], RectangleBox[{-1, -10}, {0, -11}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -11}, {-2, -12}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -11}, {-1, -12}]}, {RGBColor[1, 0, 0], RectangleBox[{-1, -11}, {0, -12}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -12}, {-2, -13}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -12}, {-1, -13}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -12}, {0, -13}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -13}, {-2, -14}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -13}, {-1, -14}]}, {RGBColor[1, 1, 0], RectangleBox[{-1, -13}, {0, -14}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -14}, {-2, -15}]}, {RGBColor[1, 1, 0], RectangleBox[{-2, -14}, {-1, -15}]}, {RGBColor[1, 0, 0], RectangleBox[{-1, -14}, {0, -15}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -15}, {-2, -16}]}, {RGBColor[1, 1, 0], RectangleBox[{-2, -15}, {-1, -16}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -15}, {0, -16}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -16}, {-2, -17}]}, {RGBColor[1, 1, 0], RectangleBox[{-2, -16}, {-1, -17}]}, {RGBColor[1, 1, 0], RectangleBox[{-1, -16}, {0, -17}]}, {RGBColor[1, 1, 0], RectangleBox[{-3, -17}, {-2, -18}]}, {RGBColor[1, 0, 0], RectangleBox[{-2, -17}, {-1, -18}]}, {RGBColor[1, 0, 0], RectangleBox[{-1, -17}, {0, -18}]}, {RGBColor[1, 1, 0], RectangleBox[{-3, -18}, {-2, -19}]}, {RGBColor[1, 0, 0], RectangleBox[{-2, -18}, {-1, -19}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -18}, {0, -19}]}, {RGBColor[1, 1, 0], RectangleBox[{-3, -19}, {-2, -20}]}, {RGBColor[1, 0, 0], RectangleBox[{-2, -19}, {-1, -20}]}, {RGBColor[1, 1, 0], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, PlotRange->{{-3.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{{3.7541577693903503`*^9, 3.75415777420548*^9}, { 3.754157838661553*^9, 3.754157882802945*^9}, 3.754159451862577*^9, { 3.7541622999447412`*^9, 3.754162368267761*^9}, 3.754162443133855*^9, 3.7541624872592573`*^9, 3.7541626832962418`*^9, 3.75416279923173*^9, 3.7541629529106627`*^9, 3.754163003709923*^9, {3.754163962995487*^9, 3.754163984297566*^9}}, CellLabel->"Out[311]=", CellID->1174165090] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", " ", "2"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "20"}], "}"}]}], "]"}], ",", " ", "2", ",", " ", "3", ",", RowBox[{"ColorRules", "\[Rule]", RowBox[{"{", RowBox[{"0", "\[Rule]", "Blue"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7537297310400467`*^9, 3.753729756388695*^9}, { 3.753730568963511*^9, 3.753730569782873*^9}, {3.753730957909602*^9, 3.753730965737783*^9}, 3.753731028482127*^9}, CellLabel->"In[312]:=", CellID->445157156], Cell[BoxData[ GraphicsBox[ {EdgeForm[GrayLevel[0]], StyleBox[RectangleBox[{-1, 0}, {0, -1}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-2, -1}, {-1, -2}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-1, -1}, {0, -2}]}, StyleBox[RectangleBox[{-2, -2}, {-1, -3}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-1, -2}, {0, -3}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-3, -3}, {-2, -4}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-2, -3}, {-1, -4}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -3}, {0, -4}]}, StyleBox[RectangleBox[{-3, -4}, {-2, -5}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-2, -4}, {-1, -5}]}, StyleBox[RectangleBox[{-1, -4}, {0, -5}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-3, -5}, {-2, -6}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-2, -5}, {-1, -6}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-1, -5}, {0, -6}]}, StyleBox[RectangleBox[{-3, -6}, {-2, -7}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-2, -6}, {-1, -7}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-1, -6}, {0, -7}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-4, -7}, {-3, -8}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-3, -7}, {-2, -8}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -7}, {-1, -8}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -7}, {0, -8}]}, StyleBox[RectangleBox[{-4, -8}, {-3, -9}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-3, -8}, {-2, -9}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -8}, {-1, -9}]}, StyleBox[RectangleBox[{-1, -8}, {0, -9}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-4, -9}, {-3, -10}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-3, -9}, {-2, -10}]}, StyleBox[RectangleBox[{-2, -9}, {-1, -10}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-1, -9}, {0, -10}]}, StyleBox[RectangleBox[{-4, -10}, {-3, -11}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-3, -10}, {-2, -11}]}, StyleBox[RectangleBox[{-2, -10}, {-1, -11}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-1, -10}, {0, -11}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-4, -11}, {-3, -12}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-3, -11}, {-2, -12}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-2, -11}, {-1, -12}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -11}, {0, -12}]}, StyleBox[RectangleBox[{-4, -12}, {-3, -13}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-3, -12}, {-2, -13}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-2, -12}, {-1, -13}]}, StyleBox[RectangleBox[{-1, -12}, {0, -13}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-4, -13}, {-3, -14}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-3, -13}, {-2, -14}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-2, -13}, {-1, -14}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-1, -13}, {0, -14}]}, StyleBox[RectangleBox[{-4, -14}, {-3, -15}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-3, -14}, {-2, -15}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-2, -14}, {-1, -15}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-1, -14}, {0, -15}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-5, -15}, {-4, -16}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-4, -15}, {-3, -16}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -15}, {-2, -16}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -15}, {-1, -16}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -15}, {0, -16}]}, StyleBox[RectangleBox[{-5, -16}, {-4, -17}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-4, -16}, {-3, -17}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -16}, {-2, -17}]}, {RGBColor[0, 0, 1], RectangleBox[{-2, -16}, {-1, -17}]}, StyleBox[RectangleBox[{-1, -16}, {0, -17}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-5, -17}, {-4, -18}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-4, -17}, {-3, -18}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -17}, {-2, -18}]}, StyleBox[RectangleBox[{-2, -17}, {-1, -18}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-1, -17}, {0, -18}]}, StyleBox[RectangleBox[{-5, -18}, {-4, -19}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-4, -18}, {-3, -19}]}, {RGBColor[0, 0, 1], RectangleBox[{-3, -18}, {-2, -19}]}, StyleBox[RectangleBox[{-2, -18}, {-1, -19}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-1, -18}, {0, -19}], StripOnInput->False, FontSize->1], StyleBox[RectangleBox[{-5, -19}, {-4, -20}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-4, -19}, {-3, -20}]}, StyleBox[RectangleBox[{-3, -19}, {-2, -20}], StripOnInput->False, FontSize->1], {RGBColor[0, 0, 1], RectangleBox[{-2, -19}, {-1, -20}]}, {RGBColor[0, 0, 1], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, PlotRange->{{-8.1, 0.1}, {0.1, -20.1}}]], "Output", CellChangeTimes->{ 3.753730456361032*^9, 3.753730570273161*^9, {3.753730949556327*^9, 3.7537309660724487`*^9}, {3.75373102126637*^9, 3.7537310290890083`*^9}, 3.754069505193194*^9, 3.754070183981206*^9, 3.754137862675087*^9, 3.754139505243037*^9, 3.754139925368827*^9, 3.754153709908565*^9, 3.75415443599404*^9, 3.7541549114938793`*^9, 3.7541594519254*^9, 3.7541623200307827`*^9, 3.754162446719521*^9, 3.754162687600319*^9, 3.7541628015936604`*^9, 3.754162956710012*^9, 3.754163006311*^9, 3.754163984331379*^9}, CellLabel->"Out[312]=", CellID->965435347] }, Open ]], Cell["Add other options:", "Text", CellChangeTimes->{{3.7447635435647297`*^9, 3.744763552884612*^9}, { 3.754134249902673*^9, 3.754134259632077*^9}}, CellID->1565139695], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RaggedDigitsPlot\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RaggedDigitsPlot"], BoxID -> "RaggedDigitsPlot"], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], ",", "2", ",", "3", ",", RowBox[{"Background", "->", "LightBlue"}], ",", " ", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"ColorData", "[", "\"\\"", "]"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Thickness", "[", ".02", "]"}]}], "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotRangePadding", "\[Rule]", "1"}]}], "]"}]], "Input", CellChangeTimes->{ 3.753017957592147*^9, 3.7530181884567013`*^9, 3.753018283190399*^9, { 3.753018348842512*^9, 3.753018377412552*^9}, {3.7530194640044127`*^9, 3.753019466980155*^9}, {3.753028108720531*^9, 3.753028112519657*^9}, 3.753035773762002*^9, {3.753473832498307*^9, 3.75347386934402*^9}, { 3.753473904937936*^9, 3.7534739635222807`*^9}, {3.753720009545946*^9, 3.753720017873931*^9}, {3.753729193186604*^9, 3.753729214356515*^9}, { 3.753729273853066*^9, 3.7537292741788807`*^9}, {3.754068887564898*^9, 3.7540688900432663`*^9}, 3.7541343919707527`*^9}, CellLabel->"In[313]:=", CellID->1452434255], Cell[BoxData[ GraphicsBox[ {EdgeForm[{RGBColor[0, 0, 1], Opacity[0.4], Thickness[0.02]}], {RGBColor[1., 1., 0.8], RectangleBox[{-1, 0}, {0, -1}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -1}, {-1, -2}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -1}, {0, -2}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -2}, {-1, -3}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -2}, {0, -3}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -3}, {-2, -4}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -3}, {-1, -4}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -3}, {0, -4}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -4}, {-2, -5}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -4}, {-1, -5}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -4}, {0, -5}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -5}, {-2, -6}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -5}, {-1, -6}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -5}, {0, -6}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -6}, {-2, -7}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -6}, {-1, -7}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -6}, {0, -7}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -7}, {-3, -8}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -7}, {-2, -8}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -7}, {-1, -8}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -7}, {0, -8}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -8}, {-3, -9}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -8}, {-2, -9}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -8}, {-1, -9}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -8}, {0, -9}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -9}, {-3, -10}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -9}, {-2, -10}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -9}, {-1, -10}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -9}, {0, -10}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -10}, {-3, -11}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -10}, {-2, -11}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -10}, {-1, -11}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -10}, {0, -11}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -11}, {-3, -12}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -11}, {-2, -12}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -11}, {-1, -12}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -11}, {0, -12}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -12}, {-3, -13}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -12}, {-2, -13}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -12}, {-1, -13}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -12}, {0, -13}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -13}, {-3, -14}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -13}, {-2, -14}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -13}, {-1, -14}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -13}, {0, -14}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-4, -14}, {-3, -15}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -14}, {-2, -15}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -14}, {-1, -15}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -14}, {0, -15}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-5, -15}, {-4, -16}]}, {RGBColor[1., 1., 1.], RectangleBox[{-4, -15}, {-3, -16}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -15}, {-2, -16}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -15}, {-1, -16}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -15}, {0, -16}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-5, -16}, {-4, -17}]}, {RGBColor[1., 1., 1.], RectangleBox[{-4, -16}, {-3, -17}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -16}, {-2, -17}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -16}, {-1, -17}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -16}, {0, -17}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-5, -17}, {-4, -18}]}, {RGBColor[1., 1., 1.], RectangleBox[{-4, -17}, {-3, -18}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -17}, {-2, -18}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -17}, {-1, -18}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -17}, {0, -18}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-5, -18}, {-4, -19}]}, {RGBColor[1., 1., 1.], RectangleBox[{-4, -18}, {-3, -19}]}, {RGBColor[1., 1., 1.], RectangleBox[{-3, -18}, {-2, -19}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-2, -18}, {-1, -19}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-1, -18}, {0, -19}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-5, -19}, {-4, -20}]}, {RGBColor[1., 1., 1.], RectangleBox[{-4, -19}, {-3, -20}]}, {RGBColor[1., 1., 0.8], RectangleBox[{-3, -19}, {-2, -20}]}, {RGBColor[1., 1., 1.], RectangleBox[{-2, -19}, {-1, -20}]}, {RGBColor[1., 1., 1.], RectangleBox[{-1, -19}, {0, -20}]}}, AspectRatio->Automatic, Background->RGBColor[0.87, 0.94, 1], Frame->True, PlotLabel->FormBox["\"Digits\"", TraditionalForm], PlotRange->{{-8.1, 0.1}, {0.1, -20.1}}, PlotRangePadding->1]], "Output", CellChangeTimes->{3.753729215100361*^9, 3.753729275046217*^9, 3.754069509107098*^9, 3.754070187663642*^9, 3.754070328354521*^9, 3.754134392659822*^9, 3.754134543763197*^9, 3.754137865291625*^9, 3.7541384324456577`*^9, 3.754139508039843*^9, 3.754139928271566*^9, 3.7541537100367737`*^9, 3.754154436102868*^9, 3.7541549116164083`*^9, 3.754159452050743*^9, 3.75416244975815*^9, 3.754162805431199*^9, 3.754162960108142*^9, 3.754163008837579*^9, 3.754163984451399*^9}, CellLabel->"Out[313]=", CellID->1832923944] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"0954fca5-8681-42dd-b63d-017b0bf54ac1", CellID->285421464], Cell[639, 25, 154, 2, 70, "Text",ExpressionUUID->"2a0ce53a-43d9-4953-8368-f8814532280b", CellID->702153016], Cell[CellGroupData[{ Cell[818, 31, 2083, 50, 70, "Input",ExpressionUUID->"9c4a1a2f-ab18-446a-bbb2-2908d56eeb2c", CellID->663099647], Cell[2904, 83, 7887, 213, 70, "Output",ExpressionUUID->"5ea5154e-1f12-4a9d-b195-77ddcd65b7f3", CellID->1109541045] }, Open ]], Cell[10806, 299, 131, 2, 70, "Text",ExpressionUUID->"b93cc073-0482-4c71-8360-cd0a48119f39", CellID->1900296083], Cell[CellGroupData[{ Cell[10962, 305, 2115, 51, 70, "Input",ExpressionUUID->"3c80b8a0-b6fd-4556-aca7-6eb9a9591789", CellID->1820054696], Cell[13080, 358, 2066, 49, 70, "Output",ExpressionUUID->"22b55959-1058-487c-90b1-0e7aa593e283", CellID->1455836414] }, Open ]], Cell[15161, 410, 169, 4, 70, "Text",ExpressionUUID->"005b3164-026b-467b-8cf7-188af8d8b49e", CellID->24530361], Cell[CellGroupData[{ Cell[15355, 418, 2175, 53, 70, "Input",ExpressionUUID->"ef666716-be9d-4941-9eb1-989019c6329c", CellID->2112400750], Cell[17533, 473, 7738, 211, 70, "Output",ExpressionUUID->"14e9a518-6b9c-4aa4-8fa8-6736f0916388", CellID->1124275403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25320, 690, 47, 1, 70, "Subsection",ExpressionUUID->"0fe21bb1-14c6-485f-b522-da9d5ffff046", CellID->1575259], Cell[25370, 693, 166, 3, 70, "Text",ExpressionUUID->"ccca92c5-d677-4531-a7ea-c33c461a9569", CellID->2008209966], Cell[CellGroupData[{ Cell[25561, 700, 2291, 54, 70, "Input",ExpressionUUID->"d0e9fc3d-a721-4e98-aefa-8bbb4990219e", CellID->131371461], Cell[27855, 756, 7846, 213, 70, "Output",ExpressionUUID->"e67900fc-5e3c-41f8-8787-eb13d3533390", CellID->2135571915] }, Open ]], Cell[35716, 972, 172, 3, 70, "Text",ExpressionUUID->"727e5fef-54e3-4aab-9bb0-f092290fcaa8", CellID->1672201875], Cell[CellGroupData[{ Cell[35913, 979, 2362, 56, 70, "Input",ExpressionUUID->"f25f3aa7-fb03-4d9f-9945-dd7c0decfb09", CellID->869894572], Cell[38278, 1037, 7894, 157, 70, "Output",ExpressionUUID->"a6e0634d-ad1e-4493-a1f2-6f20625b2e6b", CellID->1662983094] }, Open ]], Cell[CellGroupData[{ Cell[46209, 1199, 2362, 58, 70, "Input",ExpressionUUID->"4ee42982-64e2-49e0-b085-0d6f95ef1d03", CellID->679008975], Cell[48574, 1259, 7103, 147, 70, "Output",ExpressionUUID->"2af44bf6-6950-47cd-90bd-b5d712a025ce", CellID->257195153] }, Open ]], Cell[CellGroupData[{ Cell[55714, 1411, 2377, 56, 70, "Input",ExpressionUUID->"4d65d919-5ca1-4b04-9eaf-3667595f1fec", CellID->1972734899], Cell[58094, 1469, 9112, 167, 70, "Output",ExpressionUUID->"fbf79aee-fa4b-4f10-b153-c9091fc395e9", CellID->1941838707] }, Open ]], Cell[67221, 1639, 192, 3, 70, "Text",ExpressionUUID->"2ac634a3-848d-4f84-bd88-a253b1649aa5", CellID->521663307], Cell[CellGroupData[{ Cell[67438, 1646, 2594, 61, 70, "Input",ExpressionUUID->"39c9e53b-e082-4a89-af89-1e59986beef9", CellID->653982776], Cell[70035, 1709, 3559, 62, 70, "Output",ExpressionUUID->"60f6bb2b-e498-4e3f-8477-2f3a9fc29fb2", CellID->1174165090] }, Open ]], Cell[CellGroupData[{ Cell[73631, 1776, 2240, 55, 70, "Input",ExpressionUUID->"9405378a-11b3-4633-9c40-6bd5c966a026", CellID->445157156], Cell[75874, 1833, 6463, 173, 70, "Output",ExpressionUUID->"99e34b8f-afef-48cb-80e4-25bb82e3c0d5", CellID->965435347] }, Open ]], Cell[82352, 2009, 172, 3, 70, "Text",ExpressionUUID->"5fee55a7-3504-4d7c-8df3-eb5fa80781fb", CellID->1565139695], Cell[CellGroupData[{ Cell[82549, 2016, 3030, 68, 70, "Input",ExpressionUUID->"4519b5a2-1815-402e-97eb-b750618c6427", CellID->1452434255], Cell[85582, 2086, 5535, 91, 70, "Output",ExpressionUUID->"21ad70d4-da58-4b4b-a1a1-609f7b6822a4", CellID->1832923944] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)