Cell[CellGroupData[{Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"trns", "[", RowBox[{"a_", ",", "n_"}], "]"}], "=", RowBox[{"TranslationTransform", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"HarmonicNumber", "[", RowBox[{"n", "-", "1"}], "]"}], "-", RowBox[{"HarmonicNumber", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{"n", "/", "8"}], "-", RowBox[{"a", "/", "8"}]}]}], "}"}], "]"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.36809548557157*^9, 3.36809554619366*^9}, { 3.36809560208636*^9, 3.36809562898157*^9}, {3.36809566374957*^9, 3.36809566664571*^9}, {3.36809646317113*^9, 3.36809646379716*^9}, 3.36809657563026*^9, {3.3680966914029*^9, 3.36809670514643*^9}, { 3.36809678169315*^9, 3.3680967965145*^9}, {3.36809684643956*^9, 3.36809686438105*^9}, {3.36809696982754*^9, 3.36809697635299*^9}, { 3.36809702881394*^9, 3.36809705250734*^9}, 3.36809709652491*^9, { 3.36809723564586*^9, 3.36809725427836*^9}, {3.3680972952302*^9, 3.36809729901135*^9}, {3.36809737396769*^9, 3.36809738682218*^9}, { 3.36809803735045*^9, 3.368098088222*^9}, {3.36809824700538*^9, 3.36809824736226*^9}, 3.36809829077569*^9, 3.7608067389075527`*^9}, CellID->1549456297], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"StackBlocks", "[", RowBox[{"n_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "Black", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".71", ",", "0"}], "]"}], ",", RowBox[{"Apply", "[", RowBox[{"Rectangle", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"trns", "[", RowBox[{"i", ",", "n"}], "]"}], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "/", "8"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".47", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"1", "/", "n"}]}], ",", RowBox[{"-", ".1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"1", "/", "n"}]}], ",", "7"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"AbsolutePointSize", "[", "8", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".12", ",", ".61", ",", ".78"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"1", "/", "n"}]}], ",", RowBox[{ RowBox[{"1", "/", "8"}], "+", RowBox[{"n", "/", "16"}]}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", RowBox[{"Axes", "->", " ", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".2"}], ",", "7"}], "}"}]}], "}"}]}], ",", RowBox[{"GridLines", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "6", "]"}], ",", "None"}], "}"}]}], ",", RowBox[{"ImageSize", "->", " ", RowBox[{"5", " ", "72"}]}]}], "]"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.36809572417436*^9, 3.36809577040857*^9}, { 3.3680961224701*^9, 3.36809614032507*^9}, {3.36809635032671*^9, 3.36809640996708*^9}, {3.36809653218173*^9, 3.36809655207558*^9}, { 3.36809760186501*^9, 3.36809761110511*^9}, {3.36809765591241*^9, 3.36809774630791*^9}, 3.36809781460415*^9, {3.36809788729313*^9, 3.36809791965791*^9}, 3.36809796657525*^9, {3.36809839768426*^9, 3.36809846613345*^9}, {3.36809857364687*^9, 3.36809863140399*^9}, { 3.36809876841218*^9, 3.36809880961923*^9}, {3.36809884062395*^9, 3.36809886668314*^9}, {3.36809897557134*^9, 3.36809898500827*^9}, 3.36809914559599*^9, 3.3681408869885*^9, {3.382380495361227*^9, 3.382380540756502*^9}, 3.760806738907679*^9}, CellID->1325280157], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"StackBlocks", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "3", ",", "\"\\""}], "}"}], ",", "1", ",", "52", ",", "1", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"SaveDefinitions", "->", "True"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35757176568782*^9, {3.3681009819239*^9, 3.36810099206353*^9}, { 3.36810112900112*^9, 3.36810113412124*^9}, {3.36811578588154*^9, 3.3681157907185*^9}, {3.36814090600413*^9, 3.36814091434788*^9}, { 3.379780263740266*^9, 3.3797803220985203`*^9}, { 3.37981168303125*^9, 3.379811687015625*^9}, {3.381843573249493*^9, 3.381843573671368*^9}, 3.760806738904154*^9}, CellID->1496021318], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 3, "dominoes"}, 1, 52, 1}}, Typeset`size$$ = {360., {181., 186.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`n$11714$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$11714$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> $CellContext`StackBlocks[$CellContext`n$$], "Specifications" :> {{{$CellContext`n$$, 3, "dominoes"}, 1, 52, 1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{405., {226., 232.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`StackBlocks[ PatternTest[ Pattern[$CellContext`n, Blank[Integer]], Positive]] := Graphics[{ EdgeForm[Black], RGBColor[1, 0.71, 0], Apply[Rectangle, Table[ $CellContext`trns[$CellContext`i, $CellContext`n][{{-1, 0}, {1, 1/8}}], {$CellContext`i, 0, $CellContext`n - 1}], {1}], RGBColor[1, 0.47, 0], Line[{{1 - 1/$CellContext`n, -0.1}, { 1 - 1/$CellContext`n, 7}}], AbsolutePointSize[8], RGBColor[0.12, 0.61, 0.78], Point[{1 - 1/$CellContext`n, 1/8 + $CellContext`n/16}]}, AspectRatio -> Automatic, Axes -> {True, False}, PlotRange -> {{-1.1, 6}, {-0.2, 7}}, GridLines -> { Range[6], None}, ImageSize -> 5 72], $CellContext`trns[ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`n, Blank[]]] = TransformationFunction[{{ 1, 0, -HarmonicNumber[$CellContext`a] + HarmonicNumber[-1 + $CellContext`n]}, { 0, 1, (-$CellContext`a)/8 + $CellContext`n/8}, {0, 0, 1}}]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.7608067389044733`*^9}, CellID->799541683] }, {4}]]