(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 428270, 9988] NotebookOptionsPosition[ 410995, 9433] NotebookOutlinePosition[ 415139, 9549] CellTagsIndexPosition[ 414063, 9521] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["TreePatterns 1.05", "Title"], Cell["documentation notebook", "Subtitle"], Cell[TextData[{ "Eric Rowland\n", ButtonBox["http://math.tulane.edu/~erowland/packages.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://math.tulane.edu/~erowland/packages.html"], None}] }], "Subsubtitle"], Cell[CellGroupData[{ Cell["Introduction", "Section"], Cell["\<\ TreePatterns is a collection of implementations of various bijections on \ rooted trees and of functions for computing the weight of the set of binary \ trees for different weight functions. This introduction gets you started with a few features of the package; the \ next section provides a complete list of package symbols along with their \ usage messages and further examples.\ \>", "Text"], Cell["\<\ TreePatterns uses functions from my package BinaryTrees, so you will need to \ have BinaryTrees installed as well.\ \>", "Text"], Cell[TextData[{ "To use TreePatterns, first you will need to load the package by evaluating \ the following cell. (If you need help, see ", ButtonBox["loading a package", BaseStyle->"Hyperlink", ButtonData->{ URL["http://math.tulane.edu/~erowland/packages/loadingapackage.html"], None}, ButtonNote-> "http://math.tulane.edu/~erowland/packages/loadingapackage.html"], ".)" }], "Text"], Cell[BoxData[ RowBox[{"<<", "TreePatterns`"}]], "Code"], Cell[CellGroupData[{ Cell["Representing trees", "Subsection"], Cell["\<\ A rooted tree is represented by an expression in which each vertex \ corresponds to a list containing its children. For example, here is a 5-leaf \ binary tree:\ \>", "Text"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]], "Input"], Cell[TextData[{ "The ", StyleBox["Mathematica", FontSlant->"Italic"], " symbol ", StyleBox["TreeForm", "Input"], " displays expressions graphically. ", StyleBox["BareTreeForm", "Input"], " uses ", StyleBox["TreeForm", "Input"], " to draw trees without vertex labels:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["BinaryTrees", "Input"], " gives a list of all binary trees with a fixed number of leaves." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[IndentingNewLine]", RowBox[{"BareTreeForm", "/@", "%"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]], "Output"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, { 0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, { 1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2247448713915892`, 1.6329931618554523`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4082482904638631, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8164965809277261, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.041241452319315, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6329931618554523`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.4494897427831783`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, {0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, {1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}]& ], AspectRatio->NCache[Rational[1, 2] 3^Rational[1, 2], 0.8660254037844386], FrameTicks->Automatic, ImageSize->{Automatic, 20}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.788854381999832}, {0., 0.894427190999916}, { 0.8944271909999159, 0.894427190999916}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.788854381999832}, {0., 0.894427190999916}, { 0.8944271909999159, 0.894427190999916}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 2.6832815729997477`}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.894427190999916}, {1.7888543819998317`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 2.6832815729997477`}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.894427190999916}, {1.7888543819998317`, 1.788854381999832}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Tree patterns and specific bijections", "Subsection"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], "'s pattern matching functionality provides a convenient way to determine by \ brute force how many binary trees do not contain another binary tree as a \ contiguous subtree." }], "Text"], Cell["First we need to render a tree as a pattern.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", RowBox[{"-", "1"}], "\[RightDoubleBracket]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreePattern", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Now we can use this pattern in, for example, ", StyleBox["FreeQ", "Input"], ".\nFor the particular tree, we get the sequence of Motzkin numbers." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "n", "]"}], ",", RowBox[{"Function", "[", RowBox[{"binarytree", ",", RowBox[{"FreeQ", "[", RowBox[{"binarytree", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "4", ",", "9", ",", "21", ",", "51", ",", "127", ",", "323", ",", "835"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["BinaryTree45Bijection", "Input"], " is an explicit bijection between binary trees avoiding ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], TraditionalForm]]], " and Motzkin paths.\n(The name comes from this tree being indexed as the \ fifth binary tree on four leaves.)" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTree45Bijection", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], ",", RowBox[{"Function", "[", RowBox[{"binarytree", ",", RowBox[{"FreeQ", "[", RowBox[{"binarytree", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "The inverse is ", StyleBox["BinaryTree45BijectionInverse", "Input"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTree45BijectionInverse", "/@", "%"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.502172968684897, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}, { 2.0851441405707476`, 0.}, {2.919201796799047, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 2.5021729686848975`, 0.8340576562282993}, {2.0851441405707476`, 0.}, { 2.919201796799047, 0.}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 0.41702882811414954`, 0.}, {1.2510864843424487`, 0.}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {0.41702882811414954`, 0.}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 1.6681153124565984`}, { 1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Computing the number of binary trees avoiding a given pattern\ \>", "Subsection"], Cell[TextData[{ "One way to more efficiently determine the number of binary trees avoiding a \ given tree pattern ", Cell[BoxData[ FormBox["t", TraditionalForm]], FormatType->"TraditionalForm"], " is to first compute the generating function counting ", Cell[BoxData[ FormBox["n", TraditionalForm]], FormatType->"TraditionalForm"], "-vertex binary trees avoiding ", Cell[BoxData[ FormBox["t", TraditionalForm]], FormatType->"TraditionalForm"], ", which is always algebraic, and then extract the desired coefficient. ", StyleBox["AvoidingWeightEquation", "Input"], " gives a polynomial equation that the generating function satisfies." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AvoidingWeightEquation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "f", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "f"}], "+", "x", "+", RowBox[{"f", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"]}]}], "\[Equal]", "0"}]], "Output"] }, Open ]], Cell[TextData[{ StyleBox["ImplicitSeries", "Input"], " from my Symbolics package gives the explicit coefficients of ", Cell[BoxData[ FormBox["f", TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Needs", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"ImplicitSeries", "[", RowBox[{ RowBox[{ RowBox[{"x", "-", RowBox[{"f", "[", "x", "]"}], "+", RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"f", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["x", "3"], " ", SuperscriptBox[ RowBox[{"f", "[", "x", "]"}], "2"]}]}], "\[Equal]", "0"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], "\[Rule]", InterpretationBox[ RowBox[{"x", "+", SuperscriptBox["x", "3"], "+", RowBox[{"2", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"9", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"21", " ", SuperscriptBox["x", "11"]}], "+", RowBox[{"51", " ", SuperscriptBox["x", "13"]}], "+", RowBox[{"127", " ", SuperscriptBox["x", "15"]}], "+", RowBox[{"323", " ", SuperscriptBox["x", "17"]}], "+", RowBox[{"835", " ", SuperscriptBox["x", "19"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "21"], SeriesData[$CellContext`x, 0, {}, 1, 21, 1], Editable->False]}], SeriesData[$CellContext`x, 0, {1, 0, 1, 0, 2, 0, 4, 0, 9, 0, 21, 0, 51, 0, 127, 0, 323, 0, 835}, 1, 21, 1], Editable->False]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "More generally, ", StyleBox["WeightEquation", "Input"], " computes a polynomial equation satisfied by the generating function \ counting all binary trees with respect to multiple tree patterns." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WeightEquation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "f", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"f", "-", RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "-", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "3"], "-", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "5"], "-", RowBox[{"f", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "2"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "3"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}]}], "-", RowBox[{"2", " ", "f", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "4"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "5"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}]}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "3"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], "2"]}], "+", RowBox[{"2", " ", "f", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "4"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], "2"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "5"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], "2"]}], "-", RowBox[{"f", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "2"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "3"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "5"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "+", RowBox[{"2", " ", "f", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "2"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "3"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "+", RowBox[{"2", " ", "f", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "4"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "5"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "3"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], "2"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "-", RowBox[{"2", " ", "f", " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "4"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], "2"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "5"], " ", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], "2"], " ", RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}]}]}], "\[Equal]", "0"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "\[Rule]", "x"}], ",", RowBox[{ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], "]"}], "\[Rule]", "y"}], ",", RowBox[{ RowBox[{"x", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}], "\[Rule]", "z"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"f", "-", "x", "-", SuperscriptBox["x", "3"], "-", SuperscriptBox["x", "5"], "-", RowBox[{"f", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{ SuperscriptBox["x", "3"], " ", "y"}], "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "4"], " ", "y"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "5"], " ", "y"}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"], " ", SuperscriptBox["y", "2"]}], "+", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "4"], " ", SuperscriptBox["y", "2"]}], "-", RowBox[{ SuperscriptBox["x", "5"], " ", SuperscriptBox["y", "2"]}], "-", RowBox[{"f", " ", SuperscriptBox["x", "2"], " ", "z"}], "+", RowBox[{ SuperscriptBox["x", "3"], " ", "z"}], "+", RowBox[{ SuperscriptBox["x", "5"], " ", "z"}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", "x", " ", "y", " ", "z"}], "+", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"], " ", "y", " ", "z"}], "-", RowBox[{ SuperscriptBox["x", "3"], " ", "y", " ", "z"}], "+", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "4"], " ", "y", " ", "z"}], "-", RowBox[{"2", " ", SuperscriptBox["x", "5"], " ", "y", " ", "z"}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"], " ", SuperscriptBox["y", "2"], " ", "z"}], "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "4"], " ", SuperscriptBox["y", "2"], " ", "z"}], "+", RowBox[{ SuperscriptBox["x", "5"], " ", SuperscriptBox["y", "2"], " ", "z"}]}], "\[Equal]", "0"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Equivalence of tree patterns and general bijections", "Subsection"], Cell[TextData[{ "Two tree patterns ", Cell[BoxData[ FormBox["s", TraditionalForm]], FormatType->"TraditionalForm"], " and ", Cell[BoxData[ FormBox["t", TraditionalForm]], FormatType->"TraditionalForm"], " are ", StyleBox["equivalent", FontSlant->"Italic"], " if for all ", Cell[BoxData[ FormBox["n", TraditionalForm]], FormatType->"TraditionalForm"], " the number of ", Cell[BoxData[ FormBox["n", TraditionalForm]], FormatType->"TraditionalForm"], "-leaf binary trees avoiding ", Cell[BoxData[ FormBox["s", TraditionalForm]], FormatType->"TraditionalForm"], " is the same as the number of ", Cell[BoxData[ FormBox["n", TraditionalForm]], FormatType->"TraditionalForm"], "-leaf binary trees avoiding ", Cell[BoxData[ FormBox["t", TraditionalForm]], FormatType->"TraditionalForm"], ". One can determine equivalence simply by computing the polynomial \ equations satisfied by the generating functions corresponding to the two tree \ patterns." }], "Text"], Cell[TextData[{ StyleBox["BinaryTreeClassData", "Input"], " contains precomputed data about the equivalence classes of binary trees. \ It works much like one of the standard ", StyleBox["Mathematica", FontSlant->"Italic"], " data paclets (", StyleBox["GraphData", "Input"], ", ", StyleBox["PolyhedronData", "Input"], ", etc.)." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTreeClassData", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"AvoidingWeightEquation\"\>", ",", "\<\"EquivalenceGraphImage\"\>", ",", "\<\"Indices\"\>", ",", "\<\"Members\"\>", ",", "\<\"ProbableAvoidingBijections\"\>", ",", "\<\"WeightEquation\"\>"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "There are three equivalence classes of ", Cell[BoxData[ FormBox["5", TraditionalForm]]], "-leaf binary trees:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTreeClassData", "[", "5", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["Here are the members of those equivalence classes:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTreeClassData", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTreeClassData", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.502172968684897, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}, { 2.0851441405707476`, 0.}, {2.919201796799047, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 2.5021729686848975`, 0.8340576562282993}, {2.0851441405707476`, 0.}, { 2.919201796799047, 0.}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 0.41702882811414954`, 0.}, {1.2510864843424487`, 0.}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {0.41702882811414954`, 0.}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 1.6681153124565984`}, { 1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6681153124565982`, 2.5021729686848975`}, { 0.8340576562282991, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 1.2510864843424487`, 0.8340576562282993}, {2.5021729686848975`, 1.6681153124565984`}, {2.0851441405707476`, 0.8340576562282993}, { 2.919201796799047, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6681153124565982`, 2.5021729686848975`}, { 0.8340576562282991, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 1.2510864843424487`, 0.8340576562282993}, {2.5021729686848975`, 1.6681153124565984`}, {2.0851441405707476`, 0.8340576562282993}, { 2.919201796799047, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6681153124565982`, 2.5021729686848975`}, { 1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, { 2.5021729686848975`, 0.}, {2.0851441405707476`, 1.6681153124565984`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6681153124565982`, 2.5021729686848975`}, { 1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, { 2.5021729686848975`, 0.}, {2.0851441405707476`, 1.6681153124565984`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTreeClassData", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, { 0.4472135954999579, 0.8944271909999157}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, { 1.7888543819998317`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, { 0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTrees", "[", "5", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.502172968684897, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, { 0.4472135954999579, 0.8944271909999157}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, { 1.7888543819998317`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, { 0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}, { 2.0851441405707476`, 0.}, {2.919201796799047, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 2.5021729686848975`, 0.8340576562282993}, {2.0851441405707476`, 0.}, { 2.919201796799047, 0.}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 0.41702882811414954`, 0.}, {1.2510864843424487`, 0.}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {0.41702882811414954`, 0.}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 1.6681153124565984`}, { 1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6681153124565982`, 2.5021729686848975`}, { 0.8340576562282991, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 1.2510864843424487`, 0.8340576562282993}, {2.5021729686848975`, 1.6681153124565984`}, {2.0851441405707476`, 0.8340576562282993}, { 2.919201796799047, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6681153124565982`, 2.5021729686848975`}, { 0.8340576562282991, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 1.2510864843424487`, 0.8340576562282993}, {2.5021729686848975`, 1.6681153124565984`}, {2.0851441405707476`, 0.8340576562282993}, { 2.919201796799047, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6681153124565982`, 2.5021729686848975`}, { 1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, { 2.5021729686848975`, 0.}, {2.0851441405707476`, 1.6681153124565984`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6681153124565982`, 2.5021729686848975`}, { 1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, { 2.5021729686848975`, 0.}, {2.0851441405707476`, 1.6681153124565984`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Given two equivalent tree patterns, one would like an explicit bijection \ between the respective sets of ", Cell[BoxData[ FormBox["n", TraditionalForm]], FormatType->"TraditionalForm"], "-leaf trees avoiding them. Often a bijection can be accomplished by a \ top-down or bottom-up replacement of one leaf pattern by the other." }], "Text"], Cell[TextData[{ "Such a replacement is determined by the permutation of leaves. ", StyleBox["ProbableAvoidingBijections", "Input"], " finds permutations that produce bijections under the assumption that \ several overlapped patterns never break the bijection." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ProbableAvoidingBijections", "[", RowBox[{ RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "2", ",", "5"}], "}"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "TreeReplacementRules turns the permutation into explicit rules, and ", StyleBox["TopDownReplaceAll", "Input"], " performs the top-down replacement." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rules", "=", RowBox[{"TreeReplacementRules", "[", RowBox[{ RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "2", ",", "5"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"$1_", ",", RowBox[{"{", RowBox[{"$2_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3_", ",", "$4_"}], "}"}], ",", "$5_"}], "}"}]}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{"$1", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3", ",", "$4"}], "}"}], ",", RowBox[{"{", RowBox[{"$2", ",", "$5"}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"$1_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3_", ",", "$4_"}], "}"}], ",", RowBox[{"{", RowBox[{"$2_", ",", "$5_"}], "}"}]}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{"$1", ",", RowBox[{"{", RowBox[{"$2", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3", ",", "$4"}], "}"}], ",", "$5"}], "}"}]}], "}"}]}], "}"}]}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ Applying the top-down replacement to a tree avoiding the first pattern \ produces a tree that avoids the second pattern:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"And", "@@", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{ RowBox[{"TopDownReplaceAll", "[", RowBox[{"#1", ",", "rules"}], "]"}], ",", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "]"}]}], "]"}], "&"}], ")"}], "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "7", "]"}], ",", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#1", ",", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}]}], "]"}], "&"}]}], "]"}]}]}]], "Input"], Cell[BoxData["True"], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "rules", "]"}]], "Input"], Cell[TextData[{ "For the nontrivial equivalence class of ", Cell[BoxData[ FormBox["5", TraditionalForm]]], "-leaf binary trees, the following graph shows which tree patterns can be \ proven equivalent by a top-down replacement (solid red edges) and which \ patterns are equivalent by left\[Dash]right reflection (dashed gray edges)." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTreeClassData", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{{ {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{0.16742496686508246`, 0.38199423445793423`}, { 0.1279977111924745, 0.4664231175880729}, {0.1178368451180507, 0.4892133057288844}, {0.10847962517028886`, 0.512345065491712}, { 0.09993751077748958, 0.5357900682977746}, {0.09222096313944961, 0.5595196019515534}, {0.08533943241603226, 0.5835046058035152}, { 0.0793013461539196, 0.607715706339576}, {0.0741140989657183, 0.6321232531537164}, {0.007144112219685472, 0.9767902758724303}, { 0.0028140567280293682`, 1.0013643779784105`}, {-0.0006535042142342684, 1.026074940416114}, {-0.0032543240182452138`, 1.0508917011076915`}, {-0.004985217559763888, 1.0757842679183658`}, {-0.00584406507987234, 1.1007221558765141`}, {-0.005829814780960563, 1.125674824507443}, {-0.004942484114822898, 1.1506117152351358`}, {0., 1.24366179125472}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0.16742496686508246`, 0.38199423445793423`}, { 1.2488908172816624`, 0.9526364200548345}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "3", "4", "2", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 3, 4, 2, 5}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0.16742496686508246`, 0.38199423445793423`}, { 1.104783707061896, 0.}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"3", "4", "2", "1", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{3, 4, 2, 1, 5}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{0., 1.24366179125472}, {0.039427255672607964`, 1.1592329081245816`}, {0.049588121747031755`, 1.1364427199837699`}, { 0.058945341694793596`, 1.1133109602209426`}, {0.06748745608759288, 1.08986595741488}, {0.07520400372563285, 1.066136423761101}, { 0.0820855344490502, 1.0421514199091393`}, {0.08812362071116286, 1.0179403193730785`}, {0.09331086789936416, 0.993532772558938}, { 0.160280854645397, 0.6488657498402242}, {0.1646109101370531, 0.624291647734244}, {0.16807847107931673`, 0.5995810852965404}, { 0.17067929088332767`, 0.5747643246049631}, {0.17241018442484635`, 0.5498717577942887}, {0.1732690319449548, 0.5249338698361403}, { 0.17325478164604302`, 0.49998120120521145`}, {0.17236745097990536`, 0.47504431047751866`}, {0.16742496686508246`, 0.38199423445793423`}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0., 1.24366179125472}, {0.9102718403209664, 0.6435872984036896}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "5", "4", "2", "3"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 5, 4, 2, 3}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0., 1.24366179125472}, {0.9183189433963759, 1.6922912878144296`}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "4", "2", "3", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 4, 2, 3, 5}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{1.2488908172816624`, 0.9526364200548345}, { 1.1958031471038293`, 1.0202992832524136`}, {1.181906208425539, 1.0386644537058014`}, {1.168660373065495, 1.0575046298202848`}, { 1.1560818626901144`, 1.07679673875494}, {1.1441860817185066`, 1.0965171542040546`}, {1.1329875984572713`, 1.1166417253313603`}, { 1.122500127259252, 1.137145806346633}, {1.1127365117280963`, 1.1580042866884492`}, {0.9805077621739823, 1.453866233792287}, { 0.9714799594350707, 1.4750535688799626`}, {0.963199025492085, 1.4965438113970226`}, {0.955675101687145, 1.5183106430678839`}, { 0.9489174022810953, 1.540327406888837}, {0.9429342031691539, 1.5625671397738565`}, {0.9377328317457404, 1.5850026055752577`}, { 0.9333196579308977, 1.6076063284387627`}, {0.9183189433963759, 1.6922912878144296`}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.2488908172816624`, 0.9526364200548345}, { 1.2095343605887479`, 1.0240931202615273`}, {1.1984941103792461`, 1.0444228832469227`}, {1.187696096288274, 1.064882337770979}, { 1.1771418415813615`, 1.0854685976379967`}, {1.1668328351371355`, 1.1061787587639675`}, {1.1567705312372838`, 1.1270098995862503`}, { 1.1469563493614021`, 1.1479590814757152`}, {1.1373916739867505`, 1.1690233491512907`}, {1.0051629244326357`, 1.4648852962551295`}, { 0.9958491048388292, 1.4860616782007026`}, {0.9867874549174984, 1.5073471870843074`}, {0.9779792529869396, 1.5287388201795444`}, { 0.9694257416117809, 1.5502335597891745`}, {0.9611281274276999, 1.57182837367082}, {0.9530875809712003, 1.593520215464721}, { 0.9453052365144878, 1.6153060251234836`}, {0.9183189433963759, 1.6922912878144296`}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"2", "3", "4", "5", "1"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{2, 3, 4, 5, 1}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.2488908172816624`, 0.9526364200548345}, { 1.3757101137534145`, 0.9819266400871549}, {1.4098026428824133`, 0.9891747360839519}, {1.4441279055949465`, 0.9952255027879325}, { 1.4786438650585851`, 1.000071530057239}, {1.5133082509019053`, 1.0037068831481817`}, {1.5480786109813898`, 1.0061271099832934`}, { 1.58291236337094, 1.0073292466036152`}, {1.6177668485103267`, 1.0073118207985463`}, {2.1081304351299357`, 0.9984850906868937}, { 2.1429629680683266`, 0.9972481237971488}, {2.177730890738908, 0.994793130688624}, {2.212391624200581, 0.991123117897199}, { 2.246902720782762, 0.9862425799467471}, {2.2812219160694105`, 0.9801574938448648}, {2.3153071806586407`, 0.9728753117630599}, { 2.34911677163452, 0.9644049519103625}, {2.4747997838306857`, 0.930569594775703}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "2", "4", "5", "3"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 2, 4, 5, 3}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.2488908172816624`, 0.9526364200548345}, { 1.104783707061896, 0.}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"2", "3", "1", "4", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{2, 3, 1, 4, 5}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{0.9183189433963759, 1.6922912878144296`}, { 0.9714066135742093, 1.624628424616851}, {0.9853035522524995, 1.606263254163463}, {0.9985493876125436, 1.5874230780489795`}, { 1.0111278979879241`, 1.5681309691143244`}, {1.023023678959532, 1.5484105536652097`}, {1.0342221622207672`, 1.528285982537904}, { 1.0447096334187864`, 1.5077819015226313`}, {1.0544732489499422`, 1.486923421180815}, {1.186701998504056, 1.1910614740769774`}, { 1.195729801242968, 1.1698741389893017`}, {1.2040107351859535`, 1.1483838964722417`}, {1.2115346589908937`, 1.1266170648013805`}, { 1.2182923583969432`, 1.1046003009804273`}, {1.2242755575088846`, 1.082360568095408}, {1.2294769289322982`, 1.0599251022940066`}, { 1.2338901027471407`, 1.0373213794305016`}, {1.2488908172816624`, 0.9526364200548345}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0.9183189433963759, 1.6922912878144296`}, { 0.9576754000892908, 1.620834587607737}, {0.9687156502987926, 1.6005048246223414`}, {0.9795136643897643, 1.580045370098285}, { 0.9900679190966768, 1.5594591102312676`}, {1.000376925540903, 1.538748949105297}, {1.0104392294407547`, 1.517917808283014}, { 1.0202534113166366`, 1.4969686263935493`}, {1.029818086691288, 1.4759043587179739`}, {1.1620468362454028`, 1.1800424116141344`}, { 1.1713606558392091`, 1.1588660296685613`}, {1.18042230576054, 1.1375805207849568`}, {1.189230507691099, 1.1161888876897192`}, { 1.1977840190662574`, 1.0946941480800896`}, {1.2060816332503386`, 1.0730993341984443`}, {1.214122179706838, 1.0514074924045431`}, { 1.2219045241635507`, 1.0296216827457805`}, {1.2488908172816624`, 0.9526364200548345}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"5", "1", "2", "3", "4"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{5, 1, 2, 3, 4}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0.9183189433963759, 1.6922912878144296`}, { 0.9102718403209664, 0.6435872984036896}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "2", "5", "3", "4"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 2, 5, 3, 4}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0.9183189433963759, 1.6922912878144296`}, { 1.0364609064533856`, 1.7229316496663039`}, {1.068236445504393, 1.7305818986030803`}, {1.1002602081576613`, 1.7371156430351702`}, { 1.1324929761395928`, 1.7425248813364207`}, {1.1648952752157806`, 1.7468029890201984`}, {1.1974274235335918`, 1.749944726852143}, { 1.2300495802190075`, 1.7519462472664584`}, {1.2627217941682145`, 1.7528050990778765`}, {1.7225987489562085`, 1.7568440216311396`}, { 1.7552810077621828`, 1.7565591530367959`}, {1.78793328671635, 1.7551309129043284`}, {1.8205155978253094`, 1.7525610503446367`}, { 1.8529880387825972`, 1.7488527125698103`}, {1.885310841835508, 1.7440104410388595`}, {1.917444422487139, 1.7380401658959646`}, { 1.9493494279740018`, 1.7309491987080565`}, {2.068011330366362, 1.7023885941975876`}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"3", "1", "2", "4", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{3, 1, 2, 4, 5}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{2.4747997838306857`, 0.930569594775703}, { 2.4130347802381102`, 0.9995825997928354}, {2.3968208514818286`, 1.0183499231862025`}, {2.38127351606252, 1.0376730770287954`}, { 2.366411814205432, 1.0575283969953948`}, {2.352253946466692, 1.0778915670373443`}, {2.338817251443783, 1.098737649161483}, { 2.3261181845416297`, 1.1200411139707491`}, {2.314172297820294, 1.1417758719290525`}, {2.151456916434565, 1.450503471697806}, { 2.140278839563237, 1.4726429050808825`}, {2.1298822619038376`, 1.4951599005740004`}, {2.120279915746183, 1.5180268824765948`}, { 2.1114835607152402`, 1.5412158464731736`}, {2.103503969369562, 1.5646983939291241`}, {2.0963509140085486`, 1.5884457666694356`}, { 2.09003315470469, 1.61242888219773}, {2.068011330366362, 1.7023885941975876`}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{2.4747997838306857`, 0.930569594775703}, { 2.347980487358934, 0.9012793747433827}, {2.313887958229935, 0.8940312787465858}, {2.2795626955174018`, 0.8879805120426052}, { 2.2450467360537636`, 0.8831344847732987}, {2.210382350210443, 0.8794991316823562}, {2.1756119901309585`, 0.8770789048472445}, { 2.140778237741408, 0.8758767682269225}, {2.1059237526020214`, 0.8758941940319914}, {1.615560165982413, 0.8847209241436441}, { 1.580727633044022, 0.8859578910333891}, {1.545959710373441, 0.8884128841419138}, {1.5112989769117673`, 0.892082896933339}, { 1.4767878803295864`, 0.8969634348837908}, {1.4424686850429382`, 0.903048520985673}, {1.4083834204537078`, 0.910330703067478}, { 1.3745738294778291`, 0.9188010629201755}, {1.2488908172816624`, 0.9526364200548345}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "2", "5", "3", "4"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 2, 5, 3, 4}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{2.4747997838306857`, 0.930569594775703}, { 1.9432518436411264`, 0.0019451515415372933`}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"2", "3", "4", "1", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{2, 3, 4, 1, 5}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{2.068011330366362, 1.7023885941975876`}, {2.129776333958938, 1.6333755891804553`}, {2.1459902627152196`, 1.6146082657870882`}, { 2.1615375981345286`, 1.5952851119444953`}, {2.1763992999916164`, 1.575429791977896}, {2.1905571677303564`, 1.5550666219359464`}, { 2.2039938627532654`, 1.5342205398118076`}, {2.2166929296554185`, 1.5129170750025416`}, {2.228638816376754, 1.4911823170442382`}, { 2.391354197762483, 1.1824547172754847`}, {2.402532274633811, 1.160315283892408}, {2.412928852293211, 1.1377982883992903`}, { 2.422531198450865, 1.1149313064966957`}, {2.431327553481808, 1.0917423425001171`}, {2.4393071448274863`, 1.0682597950441663`}, { 2.4464602001884996`, 1.044512422303855}, {2.452777959492358, 1.0205293067755608`}, {2.4747997838306857`, 0.930569594775703}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{2.068011330366362, 1.7023885941975876`}, { 1.8484319056065477`, 0.6111525311568331}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "5", "2", "3", "4"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 5, 2, 3, 4}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{2.068011330366362, 1.7023885941975876`}, { 1.9498693673093526`, 1.6717482323457138`}, {1.9180938282583453`, 1.6640979834089373`}, {1.8860700656050768`, 1.6575642389768475`}, { 1.8538372976231454`, 1.652155000675597}, {1.8214349985469576`, 1.6478768929918195`}, {1.7889028502291464`, 1.6447351551598743`}, { 1.7562806935437307`, 1.6427336347455594`}, {1.7236084795945237`, 1.6418747829341411`}, {1.2637315248065297`, 1.637835860380878}, { 1.2310492660005554`, 1.6381207289752222`}, {1.1983969870463884`, 1.6395489691076897`}, {1.1658146759374288`, 1.642118831667381}, { 1.133342234980141, 1.6458271694422073`}, {1.1010194319272302`, 1.6506694409731584`}, {1.0688858512755992`, 1.6566397161160533`}, { 1.0369808457887364`, 1.6637306833039613`}, {0.9183189433963759, 1.6922912878144296`}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"2", "3", "1", "4", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{2, 3, 1, 4, 5}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{1.104783707061896, 0.}, {1.0681816764327023`, 0.06127233298787743}, {1.0586687487566049`, 0.07784922285231163}, { 1.0497416683386314`, 0.0947488176924039}, {1.0414113678317014`, 0.11195042122267052`}, {1.0336880490352716`, 0.12943296729917073`}, { 1.0265811704015833`, 0.1471750457184051}, {1.0200994354522586`, 0.1651549284375706}, {1.0142507821194324`, 0.1833505961840608}, { 0.9364460354230609, 0.4407855155455362}, {0.931237626328099, 0.4591746847831}, {0.9266758400098104, 0.47773483500163305`}, { 0.9227662631128958, 0.49644323629718334`}, {0.9195136835461983, 0.5152769772083922}, {0.9169220846191352, 0.5342129927752818}, { 0.914994640163491, 0.5532280927860271}, {0.9137337106465482, 0.5722989901771187}, {0.9102718403209664, 0.6435872984036896}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.104783707061896, 0.}, {1.1656338740701828`, 0.08208629363981856}, {1.1823108526757653`, 0.10377940275342423`}, { 1.1997366571837056`, 0.12487570422256589`}, {1.2178899468797266`, 0.14534936221614841`}, {1.2367484901263504`, 0.16517530343065528`}, {1.2562891915891299`, 0.1843292477964611}, { 1.276488120520621, 0.20278773821270102`}, {1.2973205400674506`, 0.22052816927428304`}, {1.5947798194853107`, 0.46498918173701587`}, {1.6162202169824502`, 0.4819898274185924}, { 1.6382423351976008`, 0.4982298676815907}, {1.6608192044874148`, 0.5136894139717153}, {1.683923175826187, 0.5283495335756968}, { 1.7075259546665533`, 0.5421922728074606}, {1.7315986355907382`, 0.5552006789953166}, {1.7561117377099102`, 0.5673588212432462}, { 1.8484319056065477`, 0.6111525311568331}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "2", "4", "5", "3"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 2, 4, 5, 3}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.104783707061896, 0.}, {1.19108389622384, 0.021787890361472995`}, {1.2142924667165063`, 0.02721712885423655}, {1.2376767939005326`, 0.0318309794234215}, { 1.261208239887507, 0.03562379166323615}, {1.2848579866182621`, 0.03859092066203351}, {1.308597071155249, 0.040728732690756275`}, { 1.332396421152335, 0.04203460965302552}, {1.356226890458589, 0.04250695229142276}, {1.6916141450902806`, 0.04328501290803766}, { 1.7154465494441489`, 0.042923242762654135`}, {1.7392517022142981`, 0.04172780287950817}, {1.7630004501433651`, 0.039700157267964276`}, {1.7866637090508306`, 0.036842789107816576`}, {1.810212499451301, 0.033159197708233945`}, {1.8336179820445722`, 0.028653894222290366`}, {1.856851493034013, 0.023332396122328736`}, {1.9432518436411264`, 0.0019451515415372933`}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"3", "4", "5", "1", "2"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{3, 4, 5, 1, 2}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{0.9102718403209664, 0.6435872984036896}, { 0.9468738709501605, 0.5823149654158122}, {0.956386798626258, 0.565738075551378}, {0.9653138790442315, 0.5488384807112858}, { 0.9736441795511614, 0.5316368771810192}, {0.9813674983475913, 0.5141543311045189}, {0.9884743769812798, 0.49641225268528455`}, { 0.9949561119306042, 0.47843236996611904`}, {1.0008047652634302`, 0.46023670221962887`}, {1.0786095119598018`, 0.20280178285815337`}, { 1.0838179210547638`, 0.1844126136205897}, {1.0883797073730523`, 0.1658524634020566}, {1.0922892842699672`, 0.1471440621065062}, { 1.0955418638366645`, 0.12831032119529737`}, {1.0981334627637276`, 0.10937430562840776`}, {1.100060907219372, 0.09035920561766246}, { 1.1013218367363145`, 0.07128830822657092}, {1.104783707061896, 0.}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0.9102718403209664, 0.6435872984036896}, { 1.0077240379584471`, 0.6644012590556306}, {1.0339139442401268`, 0.6695174783048022}, {1.0602668291660404`, 0.6737141849338515}, { 1.0867504193689919`, 0.6769862393971674}, {1.1133322814120454`, 0.6793296345351741}, {1.1399798615085133`, 0.6807415004817455}, { 1.166660525389329, 0.6812201081788201}, {1.1933415982689841`, 0.6807648714939118}, {1.568605624383216, 0.6677909645951693}, { 1.5952544309753176`, 0.6664024410391821}, {1.6218383355087564`, 0.6640823310836473}, {1.6483247816954854`, 0.6608334760782215}, { 1.6746813326009553`, 0.6566598547709941}, {1.7008757103683847`, 0.6515665784358684}, {1.7268758357482137`, 0.645559884612979}, { 1.7526498673843285`, 0.638647129469817}, {1.8484319056065477`, 0.6111525311568331}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"4", "5", "1", "2", "3"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{4, 5, 1, 2, 3}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{0.9102718403209664, 0.6435872984036896}, { 1.033174060112104, 0.604102855777285}, {1.0658955582808678`, 0.5929552044056146}, {1.0982069658828677`, 0.5806694601347071}, { 1.1300687123767719`, 0.5672606688442552}, {1.161441777903957, 0.5527452517665522}, {1.1922877410746324`, 0.5371409853760407}, { 1.2225688260210426`, 0.5204669796191445}, {1.2522479486601226`, 0.5027436545110515}, {1.665439949988186, 0.24608679576619097`}, { 1.6944807634370163`, 0.2273358563832436}, {1.722847702525454, 0.20758026628156456`}, {1.7505060273514357`, 0.18684421937447027`}, {1.7774218658255987`, 0.16515311030311375`}, {1.8035622551531323`, 0.1425335033366416}, { 1.8288951822020478`, 0.11901309983995279`}, {1.8533896227084312`, 0.09462070434889958}, {1.9432518436411264`, 0.0019451515415372933`}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"3", "1", "2", "4", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{3, 1, 2, 4, 5}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{1.8484319056065477`, 0.6111525311568331}, { 1.8738819277602048`, 0.5508541278784876}, {1.8804135196472889`, 0.5345902572576454}, {1.886372042323375, 0.5181078063576889}, { 1.8917501986143281`, 0.501426960603921}, {1.8965414020984595`, 0.48456814838821133`}, {1.9007397851726668`, 0.4675520160511284}, { 1.9043402062382615`, 0.4503994025971577}, {1.9073382559976861`, 0.433131314173973}, {1.9452662312115176`, 0.18944836232785497`}, { 1.9476582380682461`, 0.17208594650089482`}, {1.9494412726232455`, 0.15465046635475052`}, {1.950613151262498, 0.13716327445308213`}, { 1.9511724388311913`, 0.11964578668895288`}, {1.9511184503912955`, 0.10211945605760649`}, {1.9504512520603816`, 0.08460574638380698}, { 1.9491716609306504`, 0.06712610603591578}, {1.9432518436411264`, 0.0019451515415372933`}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.8484319056065477`, 0.6111525311568331}, { 1.787581738598261, 0.5290662375170146}, {1.7709047599926788`, 0.507373128403409}, {1.7534789554847383`, 0.4862768269342673}, { 1.735325665788717, 0.46580316894068474`}, {1.7164671225420935`, 0.445977227726178}, {1.696926421079314, 0.4268232833603721}, { 1.6767274921478228`, 0.4083647929441322}, {1.6558950726009933`, 0.39062436188255023`}, {1.3584357931831332`, 0.14616334941981735`}, {1.3369953956859937`, 0.1291627037382408}, { 1.3149732774708434`, 0.11292266347524249`}, {1.2923964081810293`, 0.09746311718511791}, {1.269292436842257, 0.0828029975811364}, { 1.2456896580018904`, 0.06896025834937258}, {1.221616977077706, 0.05595185216151666}, {1.1971038749585334`, 0.043793709913587}, { 1.104783707061896, 0.}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"1", "2", "5", "3", "4"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{1, 2, 5, 3, 4}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.8484319056065477`, 0.6111525311568331}, { 1.7509797079690674`, 0.5903385705048921}, {1.7247898016873875`, 0.5852223512557205}, {1.698436916761474, 0.5810256446266713}, { 1.6719533265585225`, 0.5777535901633554}, {1.645371464515469, 0.5754101950253487}, {1.618723884419001, 0.5739983290787772}, { 1.5920432205381854`, 0.5735197213817028}, {1.5653621476585302`, 0.5739749580666109}, {1.1900981215442983`, 0.5869488649653536}, { 1.1634493149521967`, 0.5883373885213407}, {1.1368654104187579`, 0.5906574984768755}, {1.110378964232029, 0.5939063534823015}, { 1.0840224133265592`, 0.5980799747895287}, {1.0578280355591296`, 0.6031732511246545}, {1.0318279101793006`, 0.6091799449475439}, { 1.0060538785431858`, 0.6160927000907058}, {0.9102718403209664, 0.6435872984036896}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"3", "4", "5", "1", "2"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{3, 4, 5, 1, 2}]}], "Tooltip"]& ], {GrayLevel[0.5], Dashing[{Small, Small}], ArrowBox[{{1.9432518436411264`, 0.0019451515415372933`}, { 1.9178018214874692`, 0.062243554819882904`}, {1.9112702296003856`, 0.07850742544072505}, {1.9053117069242993`, 0.09498987634068162}, { 1.8999335506333463`, 0.11167072209444955`}, {1.895142347149215, 0.12852953431015912`}, {1.8909439640750072`, 0.1455456666472421}, { 1.887343543009413, 0.1626982801012128}, {1.8843454932499881`, 0.17996636852439749`}, {1.8464175180361564`, 0.4236493203705155}, { 1.8440255111794275`, 0.44101173619747563`}, {1.8422424766244283`, 0.45844721634361996`}, {1.8410705979851758`, 0.4759344082452884}, { 1.840511310416483, 0.4934518960094175}, {1.8405652988563785`, 0.510978226640764}, {1.8412324971872922`, 0.5284919363145636}, { 1.8425120883170234`, 0.5459715766624547}, {1.8484319056065477`, 0.6111525311568331}}, 0.1]}, TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.9432518436411264`, 0.0019451515415372933`}, { 1.8569516544791829`, -0.0198427388199357}, { 1.8337430839865165`, -0.025271977312699256`}, { 1.8103587568024901`, -0.029885827881884208`}, { 1.7868273108155157`, -0.033678640121698855`}, { 1.7631775640847607`, -0.03664576912049622}, { 1.7394384795477738`, -0.03878358114921898}, { 1.7156391295506879`, -0.04008945811148823}, { 1.6918086602444338`, -0.04056180074988547}, { 1.3564214056127422`, -0.04133986136650036}, { 1.332589001258874, -0.04097809122111684}, { 1.3087838484887246`, -0.039782651337970876`}, { 1.2850351005596576`, -0.03775500572642698}, { 1.2613718416521922`, -0.03489763756627928}, { 1.2378230512517219`, -0.031214046166696652`}, { 1.2144175686584506`, -0.026708742680753073`}, { 1.1911840576690098`, -0.021387244580791442`}, {1.104783707061896, 0.}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"4", "5", "1", "2", "3"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{4, 5, 1, 2, 3}]}], "Tooltip"]& ], TagBox[ TooltipBox[ {RGBColor[ NCache[ Rational[1, 2], 0.5], 0, 0], ArrowBox[{{1.9432518436411264`, 0.0019451515415372933`}, { 1.820349623849989, 0.0414295941679419}, {1.7876281256812252`, 0.052577245539612294`}, {1.7553167180792255`, 0.06486298981051963}, {1.7234549715853213`, 0.07827178110097166}, { 1.692081906058136, 0.09278719817867465}, {1.6612359428874606`, 0.10839146456918614`}, {1.6309548579410507`, 0.1250654703260824}, { 1.6012757353019706`, 0.14278879543417522`}, {1.1880837339739068`, 0.3994456541790359}, {1.1590429205250765`, 0.41819659356198324`}, { 1.1306759814366387`, 0.4379521836636622}, {1.103017656610657, 0.4586882305707566}, {1.076101818136494, 0.4803793396421131}, { 1.0499614288089605`, 0.5029989466085854}, {1.024628501760045, 0.5265193501052741}, {1.0001340612536616`, 0.5509117455963273}, { 0.9102718403209664, 0.6435872984036896}}, 0.1]}, TagBox[ GridBox[{{ TemplateBox[{"2", "3", "1", "4", "5"}, "Row", DisplayFunction -> ( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], Annotation[#, Column[{ Row[{2, 3, 1, 4, 5}]}], "Tooltip"]& ]}, GraphicsComplexBox[CompressedData[" 1:eJw9d3k0Ve/3/0WZoigh9c4QTaYGJKXXpRKlZChUSJOxkhQpkZKKUAmZM2So ZMhQyZVZpkpEposoZbiD6Q6u7/ms9Vu/889Zr/M86+z97Gfv/XptxVMXLc7y k0ikB3wk0v/eJcvjXTUuVIPtI8GI9uwA6f89eZGL/ogMM/FpTojmxWFi/YtU h/nr41AeSXfuPTWGz/7BQsnLOJiO1f9+ulGAzGwTHNxeO4Y0T/27JiEkck30 42+cnRxcLdfM2fya/v//W14m5cJQGMOjax2n98T8Qp2z9xH1J3MInKouDw8b hLRJ9a5wmXmQ9M5HhPU64I5bVZLeqXI8+y1sS+3sQUDpIq2wjWXYPLLNcq9Z H8pvn5azqP6As+8e+SqepeJL+wWtW0/fIeF+nM5mlX503M1d0BBXjOT9nBdP f/fDeIeJTHNHIVa/7+uUfDWATXcNv8gcfAtSi7+2s+cgvjD0oMzKx6FK15Bj er8Q8Mt3ocpuP3je08/pMZgASbJo6y1xJ8hR3DOiFtJAmlRLmHPZS7E2Dwpr ciVwhOXvlkxXioUl78vlLzQEGMivdXTzolSo3olw0SHi8NnUiDHhTTkU9qMt LJ7AKtvmSP3elL2irbGV/AyQ7quwH+3yovy398r3384MfMm0V23RTIPotYPN 20IZoPbYGCaczkJqyafwXg0GTpplXVmukYNd7Ubr5L/QkWxVn9xllAelcQMT GQ86YtKCvzwiFyBZfKnk0GI61tPGP4YJFKK/LWnmxSsayOlTC/aGF8GjoaX+ ugkNybpzT3UHi/E45a3+woYJRO7yMFx+pwoXevrlAit/wUu/6eysZDVe/d7r u4U9iFeG251jbldjS6XUqyrNQcye3p79taMa+hSldT5nBlC1pOnyfckanFgs kxka0w/hG83c1+o12GPi8Z9hIxXU5iBPHQK/TmGszZvvA8nwPFtJogYHi13I Ck69KNkpdZ1fiYkK3ePWKpY0nBXmvyE9woAqwzDRPpGGxvXrdNvyGXinEsy6 /4+GG4u4eWb+DJjvjdoWrkfHUbMYiahDBGaaPj4SQofziZTYYgUGpo+9L6rs oeOcbVBexRQdbq8lmiibGVg/P95Y1UTHJSNKgGYwA6ftAr6Yn5yAhc0FfZHd M2DUtKyxk56ALOl09ddnMxjuJ1fe/TaOtoKLoz/oM+hVcGMORo5jleW3FaQD s6D1qwndsxuHSVCXrUb6LL4FxdveURtHtkL+OSMSC9t9oo3/8I1DzGpTnuoJ Flb20jQ/9YwBDT9cPpWwQOp7XkA+xsQ+s3feb07REOIhvEFYnYmdbf+qJgtp oJlvSWoiMfFWaGxJhQgdtUEL3zxuY4AlyjGXsqejj0/9j81LBgZK7/r/yadD jyz6VTGQgZEus3s7hBngqGQMj9sykGt7y1rUnoFscmb8py0MfP7R1Gr+loFN HqxileU05I7ciFD1mEHKMkU6r2cC3xx2xP+pmSHi32dc+WQCe/7eXi67ehae P71V4g5MIIJi2l50ZRbNNAGl+wsn4GUa/PZT0yzubbSoCf80jmEv/UDttSwE /mi5m+c/jl2sHPEl/ixIrfOsomEcF3gXFA90sFAVVhj3h38aUl21rnS3CdT/ Mdv2MGwaU+a5NeYZE1Cw7u5WWTmD4K+W6wY7JsAuUfe5mzmDYjktvgMkGqTJ 54oCdWbxbncvQ2MJDUVt3cvGq2aRPxn+UXYFDU0Nkn/jLFnQ8snYu3A1Ddt9 c/wcBli4sps5z/iPhrIcK7/LPSRy2zkDvmjmBCbXVFbVK/ORr8cUDXmNEHlR YKvGc+MjJ7MtnGzaJrBeGo7sfD7y8Xzt7/uKJ+B+SVcpk8VH5jnZPjMNn8DK m6lGdPCT62uScNluAqEc52pKED954sqgU4PiBDR3DX2Y+8xPtqyRrHHqHsd2 t4cWlcsnsFqO5+DLY6G3Ne9wXPAE3p6UXmFQwILkE6eO/yYnsFb928fl51jo GLb3jFSnIUy80l9ChgVeSsWyQ/YEdhBT2V8zi9GnJffVQmkYmUkkdV+exXhM m6diMQ1e6cZ/++RnocZ0s5bvo+GCWKyOx2fivivldn7gMvCQ/fda1GImuhdf flyoyEStxTS9qZgBx1vvK5J3MyGaNPK51oGBYcf0jZ6nmKicv5uQJMjAiVtV Cgo3mYhq8rO79IqoszehM8+jmNDZknHY1pwOXZ0lJNpLJlp56wW9pmgwun0q VKCMieTgWwd7Y2jIWuvZb5Q+jhiBZNDGWYgUSJ8unh9Hit95RnYcC7Vkc1F1 mwlsPOCe0bOPBdnO7L8pORMY3md/NoQ5iys09Z0hfDTwnn7bVpw4C7n8w5YV G2mYviqiecZkFscaC/SnLGjYxPrh8JQ5g+y8/GAlXyJvrocMHkyYgXKgo3tZ NAPqLt1rvfoZCHT+/PLXRwYWMf9bWfyAgXG7f/78gwzEOrc9D97KwMqFSY+k hZgwfSLW/6eLjlGWzRP5jUy4Cn7j771Nh0TPZoNVpkywelZqu6rS8ViQeXLR eeK8ttlZEd9o+NyrWPEvlAkPq79Pra7RwN8oJmzzlPBvWrhW4REHE6fsVvjL 0LG4UTb9ai4HXiL5ntmxdIiZVlZvb+BAOtB7Mnc1A3rDq6od+znYLHlWzyWV gf22w7m/GRxkRVzNzFrPRNrW96I18xw85c54G+cQ/lCq62eFuJh3TKxaqTUJ wVaxE36LuOg7nvO2MpyDBbslfYVXcWG5+P3958u5WBW0s7pHjgstwdUTDnFc pE3T1y4gvi8xzpz+rjCHmSfFXn6iXHC01tW3p8/hjeJJjimHg+a04IIdG3lI NOO/6f2bg5DXv7f+fM3DlSBfLYEWDkJ5zwTvb5rH+Bfv+pk8DjJ76tWHDgqQ N9rOpkdyJ8DsX+mSqyZAdguYN9lwgIZdYUsVO8UEyJpe8cvNYmlE39tm7jLO T+bn+g6lEHwwnOtwx/UrP1li8rDeItBxTC3/61AhP1k6iDp2PpKO6qH6zsE4 frIddeOO3H90KEcKVLnf5idv+vS9pmgPA7rFOos0dfjIcq0/FXZrzyB5SvH2 fnk+8hrlcj5G+AxomSuK5kX4yDayb+vVRmdQNS1gfmSaRJZiuYa1E/mlF6h3 0/wXiby+9wHja+YsLkbFDbJaSWRJH6oGnwgLU51VyZbVJHKJSOFKI1cWTFf4 HDxdQiJvSTPUC2wk+tC3c7ysOn6y8POBH/t+jOJy+rPcH4H85PUb2dd/x41i 34VWu5Cd/OSo7KMrj7qO4vjHjRJdU3zkHCNDcqrhKBqvLaZ35/CRX02OnehS HgVXw9Iww4mP/P7xg1ohyVHQCnStDyvwkQtDjhdrCI3i/QnXh+MdJPLWqUpD SwJrtXcmHOlkwWS5i0GK2Sjq/nEXZ+1nIXWQeaLKdhTiTS0gl87C75Z1F/X8 KByEFrbv05hFVb3XBXrIKNoPL7UaTZ6BopR51mjBKHy37Vx0TGoGRwpFBWqG RhG9M0/8471paArW/jyvOAbL4hIFA94UGgtjbnw9NwamZp5aHRFf1fYVlw4p sZGp6kDnbuQjHwmU9r3YxoK9v/P27/v5yI/CruWY3GUhhX+PyB4XPnKZYFzv lBYLhSdWthve5SPnLq6+/7B/Fgb9dfdqn/ORs/202zeGzqJ9XV5A/Qc+8mml f/f+aM3i6jXvKPJ3PnKEgcFcf9cMTh/dY3ZTUYD8QnNH6pF/BF/K2P44pStA ju89UvEigoFXZxzTXhP56fzXke2mxUC7tLeIjaMA+aXIS+2KdjocQ8jdxy8L kGOUQ77WeNOh5t13teC2ADnngfbTaKKOX2wtemf7WIAszDqZaVFEg9kkv/j+ JAFymH3rfWkrGjrFP+lmb5nHKUXJZdcpbIxe9Vh3O5eHOwf4tFWS2XD6srLZ Wp2Huw1HpU4FsVFtfdTUPGsONpvnpPQuspFd5yz4THkOJmVbN7y1Y2OLiXWM TRIXY4MOLW2H2TDqaat7t4KLWGsriVRjNrq9NW8MPyHqcI/4zdV72eD6yYfu 0p1E2Hfhk0+02LjXsKz4ZD4TPo97pMq0iftofWOeosYETWF9QfQONhofqexX z2Ag7vaps6uN2KCmvfBWVWJgcOpd76EjbIhrGz2sSaBjqlbmhLILG4fVhsXW y9Gx+nFSeswtNsy6tupdi6Yh3ShFIi2R8M/D6eVeIk4le7KtpB3e4ICZZdoh GtGfL6nqjY0V4IeW+7+PDTREtlo4XjEogYi580xiFg2HKaNn6zJL8WeqyZd7 n4bom/Xuho/KwRZ8dpLqTsPv0aVVz9sr0DOzut6S6P9JLVqTDWuqcdNyi5CD Hg1vF6zfJ+xTi+DQZa/tZsbw5LTX5e/a3bhnXNqZ3zgGn87H21af7oF86TEZ q4wxeNyQV9R+0gv1W/r/HQwegyxV/Oe76j5MV/dPZbiP4XXpG+W1flSsc2vi uFuPQUQjpWOvbD90wmntKfvG4PWt+Nyit/04ZBvue0h/DGGCDbN7Dw9AqPv2 24sviLlgQYpvHKHbNdT66sr+EnOASKuXyaP38Mt6ISG/hYmA8wVZP2coWBoP Vd8bTDzQj/vWHFsB66DfdSX1TCQWq/ZdVa4GU1Ygv2LFJL689WtaEVOLnKHC 5pvukzj8vPUHY7IebablGq2fJqGT4GG3R68R5RskOrbdYeHUtTVcx4oeZKnT 34t0s3BM/lL3v45eFD0widHXYWPXwaG78wN9eHrNb33xYzYG/26oU/agYvW5 x+dt6Wysk2Ds0/9DhVjr3lJBCw60dnPiUm37ofboWHXyWw7OLKHqaFX1w9Vh RZIwkY/+tZ/fNK0bwCv1r9zXhO4oj9Z6HGEWhdjtC2kf/8eXafueNffGwU/p ocbdJiaoK3BxrWkyfLZyc/+oE+c5e0jWWD8FO3zvoTaMwCwr900VqRAUv3Nd gEZgpe9+Z3+mYfzWwJ+b5lMoFw+6HB6UDtO42hm5gimc9B1M9alMB+2rC69T goPctLyFXhtegHayTMrHk4Mvtc1CIux0rLWri2a1EljB6Z2NXTp2alZOQZsL suV2vUjLNDxUu/JGLYqLiBtJ3Yt7UvDUkOL4fJqLkz8vLtrFTkb5tzUt/kfn oDBou9/TOgHsTwYjWYUEvqX4zPNXNJQd0i98Nh2HUdtDnkXKAOSeN90oiR3H xUVPSu/KDYC/PW68c3AcCvI5xcsj+pGYkNous34Cmf1y1qoC/aBadrSccJrA 6IoXdczLVJRtNlzw9PkEcm9kDG0j8nPKTGdrTvsErEKimlISe2HbGNx1QIDQ IbRVaXe8ehBpu0mMa0DUp/y1TOepekRyuq6YW9Nhs3WnQltsLeo+if0gudLh NKZ0MEOvGoYOK60W+NIhtdaoK6GNqK+d9b+PBtMRzkzh+riXY49r65nJR3Tg RL7t5PwH7Oow8O58Rsc/3YUjtYrF2HTZM10gibAX42bDRD6UGl7op8rTUL18 4HyN4RB275S2HXlAw0t39X9v3Iew8HuV7c9pGppDf4lJhg/BNdvR2eo0HSJ5 nxb1ZQ3hy3hqoDYxF7cKXQqQ/DiEY5cmg47rMxCiuvVcSt0QNh9U1EvLZoCn Xr4qrHEIhTayJ8ZkCMtJri6txHp3hYQO/woWri3YtD7EfgjVzgmBGwieuR2/ T0fVkrAfuvaTGJMFluOHqA3kIdjLujTfd2DD2YuzK1RlCHcGVDNuNrAh2iQX fFxgCJ03RjzrdTgoDdu8LqXzF+iZ7mHGzzm4VUTSOp/5C2uWnoj6SeimQL0O ucaLv1CzajKoP5jQgb7yt1usBvHGZGfAH3E6Io3tNvuxBiB48KW3wWM6SiVS VndEDqDZYPV4hRQD3Nqkjvm1AygY3MPa/ZQBfxe3Funcfpw/e8UsfhkTN0h5 +w039cNj5KBVWjgTQVEC9tkZVKhlyKtoi0xCNNe0+5o0Ua9urifS0tkwvjeU Ve3fArF41+7oVRzsGdI8Zb2iCVft08vrIjiILLxxfe7RZyxszolbys9Ft+/3 kcC/tWBkLh4x9+Di1bfPBaVEfz01ekr2TBcXb5UL39zfVYG7f7Vj1u2eQ25e 3PU07zIUeN2hXs+Yw8nZAt6S7SU4/74qwY0zh0+2Au0xyf3QvppwQ02aB7ev U4J2K/tR3293OVKDB89rt78djaRCg6TVFbeHh6tiaQ9zF1Hxyk62cYcNDw45 AfIbBfrQdWJ29QUXHv5EBu93GO2B8MK0i+o+PEiXLl1g09oNFN9cfeUODyWL Dju5l3RhVuLr9Rb5eVw21RfrQB0Wx+95E7dhHsYmG0JHBGugt2PaaoTQqxSB jDVRDZW4uPqjUpH2PA7582gRYZ+wTfNYNEl3Hooj41orn5fBooPGrt02j3R/ cbUA5fc4kU12ECP2f8yq7i/JLIRNQ1JSs+Y83L4oaqhr5kH34BqziWdcCBRe Ml81TsXSuVq95CNc7ItUfXxuJxUV/sTwv5iLF0vkf6yX74PaQ6eOX5UckE13 yZa09OBPKkXvxVUOdJdMS/560A1TiTTz+LUcJEo0xS4178Kj3XQtaisb9nIp y18o/YRr9/D3kJtsuMe3WszNd8B/Pkp1XekUjAe/iF4vrEAUp9D4yJkp2ERr 73e6V44HiXZuiqJTUPCO/ev/pxQv32zoyng9CdIRapU1swSKlVJRC80mQd2Y VPNkSyG2HHXcZzP+P/1wZK1jRh6kYkx3lYUQ+sHRPrEk/RW+1z88c3QdE2Rq /hJF9xcQnjtmKrCACzPb0iLxXwMYDvm36WMMBy78l7Yrvx+A8uTOTY1qHBgN vJOpjB4A5b9kRYtyNhaVdctO3RiAbaed0CVLNgyd1NMqXAbQclR8wYFhFu7v divbbD+AWV+qGf81FmQMeoWMjg3A6+KI+rtFBN+1bP1AItYPLqRbpokyEe96 gWtcN4AzDmeE/BIYePTt6HhmK2F/Z1fds00MrBIffJg9PICGNzEfVlXRkcNO GdrHN4gXQ20D62zoEE25neCzZhCHD8jK9IzSYEt1n9t8cBC68k85doGEfilJ oJ27OQjBonRmgywNT7RqRISLB3Fpxnv68BseplVeK5zufYOXO5JkIiJ5SG+r EJZY8RbSX3oV1t/gwevpkVcG5iXIzxN+p3COB8u5w62Xo0qhZaVcF2DBQ7nl tv6My+UQOLLnyiEDHnLvbgjRf16BjlcxyuFbeLDSXSZr2lqFZPbHK/vW8rDk WYz5GpFaDCe7yY49mINg/pzI0v+60Lx89pfCrTnEFQjtv7+9G6lXjdB6jajX dmPeFuseXHjif0nwyhyeySZEF17pRWbgAPeD5xymE6iGxZF9CO088GySwKo3 QvknbKm4JcTVyiX2j1xt++c0QkXQcPzkmO8cljJMTj3z6cdA1xra0iKCD6vU szLMIymTLRNcfus5kL6Sc4eozyiSv53K9Ga4UDjpPXU6NpEi3T67o4Pg2wDO 51TLXc8pluHur1kEHweEf53ZUZlCucf1uPTxOwcBJYdFLnWlUpKDly4wvMwB LZVvPvZuGsXwgvpUuiQHERInNe9UpVESt4WMDxN6gKqn8ch/YzolMVOnw9hi CiT7A0+kOGkU51dqR2oJPUEqHtxzxj6NYvFz80xA+CTRVwurk6xSKXw9/vqR GpMoX7rKWa73OYVVox0i38yEQn+H+pPpJEqzztf/DC4Q+m2JpeN92zhK5L4C AZklBH4tl3t/+CklL+T42Fpini4/tSzAUCcddfbLmPKxXCRf04l3+pcNz+Np nBpi7r7HmTzdHZuL7HObg/YS+j3CQCgyUeQtqqpEfauWcuCjnd0zXF4M0d0/ 17hHshHh5ycQQvkAYQqf/BlZNtLOeWmp8JfDlG/TodZEFkJJh3f8NqqAq/6Q 9Bl+JnTjD926E9EJV7GhKI8QBt6f35D+ofInSPuz8yHDQMTC2zHOQt249DP5 x1Q6HeNK1v0qx3twZ578oGgbHYIzx7n3ynohVTp6LK2R4DOnrXgkSwXt44ou 6hkaZre/XolOKiq3NjwOJdGgtHn/S8nn/fg/RyV4lQ== "], {InsetBox[ FrameBox["2", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["13", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["3", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3], InsetBox[ FrameBox["12", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 4], InsetBox[ FrameBox["4", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 5], InsetBox[ FrameBox["11", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 6], InsetBox[ FrameBox["6", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 7], InsetBox[ FrameBox["9", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 8], InsetBox[ FrameBox["7", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 9], InsetBox[ FrameBox["8", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 10]}]}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.16742496686508246`, 0.38199423445793423`}, { 0., 1.24366179125472}, {1.2488908172816624`, 0.9526364200548345}, { 0.9183189433963759, 1.6922912878144296`}, {2.4747997838306857`, 0.930569594775703}, {2.068011330366362, 1.7023885941975876`}, { 1.104783707061896, 0.}, {0.9102718403209664, 0.6435872984036896}, { 1.8484319056065477`, 0.6111525311568331}, {1.9432518436411264`, 0.0019451515415372933`}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Package symbols", "Section"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Bijections", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Bijections"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Bijections[tree1, tree2] gives the leaf permutations of tree1 \ that produce top-down (and also bottom-up) replacement bijections in which \ tree1 and tree2 are exchanged.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633160-5864923"] }, Open ]], Cell[TextData[{ "For each pair of ", Cell[BoxData[ FormBox["4", TraditionalForm]]], "-leaf binary trees, compute the permutations that induce top-down \ replacement bijections:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"Outer", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#1", "\[NotEqual]", "#2"}], ",", RowBox[{"Column", "[", RowBox[{"Bijections", "[", "##1", "]"}], "]"}]}], "]"}], "&"}], ",", RowBox[{"BinaryTrees", "[", "4", "]"}], ",", RowBox[{"BinaryTrees", "[", "4", "]"}], ",", "1"}], "]"}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"3", ",", "4", ",", "2", ",", "1"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "1"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], InterpretationBox[ TagBox[GridBox[{ {""} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Column[{}]]}, { TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "4"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], InterpretationBox[ TagBox[GridBox[{ {""} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Column[{}]], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "1"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ { RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "2"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "4"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"3", ",", "4", ",", "2", ",", "1"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { TagBox[GridBox[{ { RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], InterpretationBox[ TagBox[GridBox[{ {""} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Column[{}]], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "4"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, { InterpretationBox[ TagBox[GridBox[{ {""} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Column[{}]], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "2"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "4"}], "}"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], ""} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["BinaryTree42Bijection", "Input"], StyleBox[" and ", FontWeight->"Plain"], StyleBox["BinaryTree42BijectionInverse", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTree42Bijection"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTree42Bijection[tree] gives the binary tuple \ corresponding to a binary tree avoiding {{___}, {{{___}, {___}}, \ {___}}}.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633166-1428021"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTree42Bijection", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], ",", RowBox[{"Function", "[", RowBox[{"binarytree", ",", RowBox[{"FreeQ", "[", RowBox[{"binarytree", ",", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTree42BijectionInverse"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTree42BijectionInverse[list] gives the binary tree \ avoiding {{___}, {{{___}, {___}}, {___}}} corresponding to a binary \ tuple.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633169-6223284"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTree42BijectionInverse", "/@", "%%"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}, { 2.0851441405707476`, 0.}, {2.919201796799047, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 2.5021729686848975`, 0.8340576562282993}, {2.0851441405707476`, 0.}, { 2.919201796799047, 0.}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 0.41702882811414954`, 0.}, {1.2510864843424487`, 0.}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {0.41702882811414954`, 0.}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 1.6681153124565984`}, { 1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6681153124565982`, 2.5021729686848975`}, { 0.8340576562282991, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 1.2510864843424487`, 0.8340576562282993}, {2.5021729686848975`, 1.6681153124565984`}, {2.0851441405707476`, 0.8340576562282993}, { 2.919201796799047, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6681153124565982`, 2.5021729686848975`}, { 0.8340576562282991, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 1.2510864843424487`, 0.8340576562282993}, {2.5021729686848975`, 1.6681153124565984`}, {2.0851441405707476`, 0.8340576562282993}, { 2.919201796799047, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6681153124565982`, 2.5021729686848975`}, { 1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, { 2.5021729686848975`, 0.}, {2.0851441405707476`, 1.6681153124565984`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6681153124565982`, 2.5021729686848975`}, { 1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, { 2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, { 2.5021729686848975`, 0.}, {2.0851441405707476`, 1.6681153124565984`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["BinaryTree43Bijection", "Input"], StyleBox[" and ", FontWeight->"Plain"], StyleBox["BinaryTree43BijectionInverse", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTree43Bijection"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTree43Bijection[tree] gives the binary tuple \ corresponding to a binary tree avoiding {{{___}, {___}}, {{___}, \ {___}}}.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633173-1147427"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTree43Bijection", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], ",", RowBox[{"Function", "[", RowBox[{"binarytree", ",", RowBox[{"FreeQ", "[", RowBox[{"binarytree", ",", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTree43BijectionInverse"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTree43BijectionInverse[list] gives the binary tree \ avoiding {{{___}, {___}}, {{___}, {___}}} corresponding to a binary \ tuple.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633175-3661226"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTree43BijectionInverse", "/@", "%%"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, { 0.4472135954999579, 0.8944271909999157}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, { 1.7888543819998317`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, { 0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 3.5777087639996634`}, { 0.8944271909999159, 2.6832815729997477`}, {0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, {0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}, {1.7888543819998317`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.7888543819998317`, 3.5777087639996634`}, { 1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999157}, {1.7888543819998317`, 1.7888543819998317`}, { 2.23606797749979, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["BinaryTree45Bijection", "Input"], StyleBox[" and ", FontWeight->"Plain"], StyleBox["BinaryTree45BijectionInverse", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTree45Bijection"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTree45Bijection[tree] gives the Motzkin path \ corresponding to a binary tree avoiding {{{{___}, {___}}, {___}}, \ {___}}.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633179-5988959"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTree45Bijection", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], ",", RowBox[{"Function", "[", RowBox[{"binarytree", ",", RowBox[{"FreeQ", "[", RowBox[{"binarytree", ",", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTree45BijectionInverse"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTree45BijectionInverse[motzkinpath] gives the binary \ tree avoiding {{{{___}, {___}}, {___}}, {___}} corresponding to a Motzkin \ path on {-1, 0, 1}.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633180-5932291"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTree45BijectionInverse", "/@", "%%"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 1.7888543819998317`, 0.8944271909999157}, {1.3416407864998738`, 0.}, { 2.23606797749979, 0.}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999157}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {1.3416407864998738`, 1.7888543819998317`}, {0.8944271909999159, 0.8944271909999157}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.7888543819998317`, 0.8944271909999157}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.502172968684897, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8340576562282991, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {1.2510864843424487`, 1.6681153124565984`}, {0.41702882811414954`, 0.8340576562282993}, {0., 0.}, {0.8340576562282991, 0.}, {2.0851441405707476`, 0.8340576562282993}, {1.6681153124565982`, 0.}, {2.502172968684897, 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 3.5777087639996634`}, {0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.7888543819998317`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 3.5777087639996634`}, { 0., 2.6832815729997477`}, {0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999157}, { 0.8944271909999159, 0.8944271909999157}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.7888543819998317`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}, { 2.0851441405707476`, 0.}, {2.919201796799047, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.919201796799047, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 2.5021729686848975`, 0.8340576562282993}, {2.0851441405707476`, 0.}, { 2.919201796799047, 0.}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, {0.8340576562282991, 0.8340576562282993}, { 0.41702882811414954`, 0.}, {1.2510864843424487`, 0.}, { 2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {0.41702882811414954`, 0.}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 1.6681153124565984`}, { 1.6681153124565982`, 0.8340576562282993}, {2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999157}, {1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["BinaryTreeClassData", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTreeClassData"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTreeClassData[class, \\\"property\\\"] gives the value \ of the specified property for an equivalence class of binary \ trees.\\nBinaryTreeClassData[n] gives the equivalence classes of \ n\[Hyphen]leaf binary trees.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633247-7140424"] }, Open ]], Cell[TextData[{ "Display the equivalence classes of ", Cell[BoxData[ FormBox["6", TraditionalForm]], FormatType->"TraditionalForm"], "-leaf binary trees:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BareTreeForm", "/@", RowBox[{"BinaryTreeClassData", "[", RowBox[{"#1", ",", "\"\\""}], "]"}]}], "&"}], ")"}], "/@", RowBox[{"BinaryTreeClassData", "[", "6", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 1.7888543819998317`, 1.788854381999832}, {1.3416407864998738`, 0.8944271909999162}, {2.23606797749979, 0.8944271909999162}, { 1.7888543819998317`, 0.}, {2.6832815729997477`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, { 7, 9}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.6832815729997477`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 1.7888543819998317`, 1.788854381999832}, {1.3416407864998738`, 0.8944271909999162}, {2.23606797749979, 0.8944271909999162}, { 1.7888543819998317`, 0.}, {2.6832815729997477`, 0.}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{2.23606797749979, 4.47213595499958}, { 1.7888543819998317`, 3.577708763999664}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.8944271909999162}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999162}, {1.7888543819998317`, 1.788854381999832}, { 2.23606797749979, 2.683281572999748}, {2.6832815729997477`, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 10}, {3, 4}, {3, 9}, {4, 5}, {4, 8}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{2.6832815729997477`, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{2.23606797749979, 4.47213595499958}, { 1.7888543819998317`, 3.577708763999664}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.8944271909999162}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999162}, { 1.7888543819998317`, 1.788854381999832}, {2.23606797749979, 2.683281572999748}, {2.6832815729997477`, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 1.7888543819998317`, 1.788854381999832}, {1.3416407864998738`, 0.8944271909999162}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, {2.23606797749979, 0.8944271909999162}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, { 7, 11}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.8944271909999162}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 1.7888543819998317`, 1.788854381999832}, {1.3416407864998738`, 0.8944271909999162}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, {2.23606797749979, 0.8944271909999162}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4225771273642583, 3.3806170189140663`}, {0., 2.53546276418555}, {0.8451542547285166, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570331`}, {1.267731382092775, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 9}, {6, 7}, { 6, 8}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4225771273642583, 3.3806170189140663`}, { 0., 2.53546276418555}, {0.8451542547285166, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570331`}, {1.267731382092775, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}}]& ], AspectRatio->NCache[Rational[1, 2] 5^Rational[1, 2], 1.118033988749895], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8451542547285166, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, { 2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, {2.53546276418555, 0.8451542547285165}, { 2.1128856368212916`, 0.}, {2.958039891549808, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}, {7, 8}, { 7, 9}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8451542547285166, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, { 2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, {2.53546276418555, 0.8451542547285165}, { 2.1128856368212916`, 0.}, {2.958039891549808, 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 2.53546276418555, 1.6903085094570331`}, {2.1128856368212916`, 0.8451542547285165}, {2.958039891549808, 0.8451542547285165}, { 2.53546276418555, 0.}, {3.3806170189140663`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}, {7, 8}, { 7, 9}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{3.3806170189140663`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 2.53546276418555, 1.6903085094570331`}, {2.1128856368212916`, 0.8451542547285165}, {2.958039891549808, 0.8451542547285165}, { 2.53546276418555, 0.}, {3.3806170189140663`, 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{2.1128856368212916`, 3.3806170189140663`}, { 1.267731382092775, 2.53546276418555}, {0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, {1.267731382092775, 0.8451542547285165}, {1.6903085094570331`, 1.6903085094570331`}, { 2.958039891549808, 2.53546276418555}, {2.53546276418555, 1.6903085094570331`}, {3.3806170189140663`, 1.6903085094570331`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 7}, {4, 5}, { 4, 6}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{3.3806170189140663`, 1.6903085094570331`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{2.1128856368212916`, 3.3806170189140663`}, {1.267731382092775, 2.53546276418555}, { 0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285165}, {1.6903085094570331`, 1.6903085094570331`}, {2.958039891549808, 2.53546276418555}, { 2.53546276418555, 1.6903085094570331`}, {3.3806170189140663`, 1.6903085094570331`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{2.1128856368212916`, 3.3806170189140663`}, { 1.6903085094570331`, 2.53546276418555}, {0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, {1.267731382092775, 0.8451542547285165}, {2.53546276418555, 1.6903085094570331`}, { 2.1128856368212916`, 0.8451542547285165}, {2.958039891549808, 0.8451542547285165}, {2.53546276418555, 2.53546276418555}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 8}, {3, 4}, {3, 7}, {4, 5}, { 4, 6}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 2.53546276418555}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{2.1128856368212916`, 3.3806170189140663`}, {1.6903085094570331`, 2.53546276418555}, { 0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285165}, {2.53546276418555, 1.6903085094570331`}, {2.1128856368212916`, 0.8451542547285165}, { 2.958039891549808, 0.8451542547285165}, {2.53546276418555, 2.53546276418555}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{2.1128856368212916`, 3.3806170189140663`}, { 1.6903085094570331`, 2.53546276418555}, {1.267731382092775, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.1128856368212916`, 1.6903085094570331`}, {2.53546276418555, 2.53546276418555}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 10}, {3, 4}, {3, 7}, {4, 5}, {4, 6}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 2.53546276418555}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{2.1128856368212916`, 3.3806170189140663`}, {1.6903085094570331`, 2.53546276418555}, { 1.267731382092775, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, { 2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.1128856368212916`, 1.6903085094570331`}, {2.53546276418555, 2.53546276418555}}]& ], AspectRatio->NCache[Rational[1, 2] 5^Rational[1, 2], 1.118033988749895], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.7888543819998317`, 4.47213595499958}, { 1.3416407864998738`, 3.577708763999664}, {0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {0., 0.8944271909999162}, {0.8944271909999159, 0.8944271909999162}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.3416407864998738`, 1.788854381999832}, {1.7888543819998317`, 2.683281572999748}, {2.23606797749979, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 10}, {3, 4}, {3, 9}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.7888543819998317`, 4.47213595499958}, { 1.3416407864998738`, 3.577708763999664}, {0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {0., 0.8944271909999162}, {0.8944271909999159, 0.8944271909999162}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, { 1.3416407864998738`, 1.788854381999832}, {1.7888543819998317`, 2.683281572999748}, {2.23606797749979, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.8944271909999162}, {1.3416407864998738`, 0.8944271909999162}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, {1.7888543819998317`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 11}, {6, 7}, { 6, 8}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.8944271909999162}, {1.3416407864998738`, 0.8944271909999162}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, {1.7888543819998317`, 1.788854381999832}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8451542547285166, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, { 0.4225771273642583, 0.}, {1.267731382092775, 0.}, { 2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, {2.53546276418555, 0.8451542547285165}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 6}, {6, 7}, { 6, 8}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.8451542547285165}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8451542547285166, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, { 0.4225771273642583, 0.}, {1.267731382092775, 0.}, { 2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, {2.53546276418555, 0.8451542547285165}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {1.3416407864998738`, 0.8944271909999162}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.683281572999748}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 11}, {4, 5}, {4, 6}, {6, 7}, { 6, 8}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {1.3416407864998738`, 0.8944271909999162}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.683281572999748}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 1.267731382092775, 0.8451542547285165}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.53546276418555, 1.6903085094570331`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 11}, {6, 7}, { 6, 8}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 1.267731382092775, 0.8451542547285165}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.53546276418555, 1.6903085094570331`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 1.267731382092775, 0.8451542547285165}, {0.8451542547285166, 0.}, { 1.6903085094570331`, 0.}, {2.1128856368212916`, 0.8451542547285165}, {2.53546276418555, 1.6903085094570331`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 11}, {6, 7}, { 6, 10}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 1.267731382092775, 0.8451542547285165}, {0.8451542547285166, 0.}, { 1.6903085094570331`, 0.}, {2.1128856368212916`, 0.8451542547285165}, {2.53546276418555, 1.6903085094570331`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570334`}, {0., 0.8451542547285167}, {0.8451542547285166, 0.8451542547285167}, { 0.4225771273642583, 0.}, {1.267731382092775, 0.}, { 2.1128856368212916`, 1.6903085094570334`}, {1.6903085094570331`, 0.8451542547285167}, {2.53546276418555, 0.8451542547285167}, { 2.1128856368212916`, 0.}, {2.958039891549808, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {7, 8}, { 7, 9}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570334`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570334`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570334`}, {0., 0.8451542547285167}, { 0.8451542547285166, 0.8451542547285167}, {0.4225771273642583, 0.}, { 1.267731382092775, 0.}, {2.1128856368212916`, 1.6903085094570334`}, { 1.6903085094570331`, 0.8451542547285167}, {2.53546276418555, 0.8451542547285167}, {2.1128856368212916`, 0.}, {2.958039891549808, 0.}}]& ], AspectRatio->NCache[Rational[2, 3]^Rational[1, 2], 0.816496580927726], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.556997888323046, 2.335496832484569}, { 0.3892494720807615, 1.5569978883230458`}, {0., 0.7784989441615229}, {0.778498944161523, 0.7784989441615229}, { 0.3892494720807615, 0.}, {1.1677484162422844`, 0.}, { 2.7247463045653304`, 1.5569978883230458`}, {2.335496832484569, 0.7784989441615229}, {1.9462473604038075`, 0.}, { 2.7247463045653304`, 0.}, {3.113995776646092, 0.7784989441615229}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {7, 8}, { 7, 11}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.556997888323046, 2.335496832484569}]}, {RGBColor[0, 0, 0.7], PointBox[{0.3892494720807615, 1.5569978883230458`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.7784989441615229}]}, {RGBColor[0, 0, 0.7], PointBox[{0.778498944161523, 0.7784989441615229}]}, {RGBColor[0, 0, 0.7], PointBox[{0.3892494720807615, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.1677484162422844`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.7247463045653304`, 1.5569978883230458`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.335496832484569, 0.7784989441615229}]}, {RGBColor[0, 0, 0.7], PointBox[{1.9462473604038075`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.7247463045653304`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{3.113995776646092, 0.7784989441615229}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.556997888323046, 2.335496832484569}, { 0.3892494720807615, 1.5569978883230458`}, {0., 0.7784989441615229}, { 0.778498944161523, 0.7784989441615229}, {0.3892494720807615, 0.}, { 1.1677484162422844`, 0.}, {2.7247463045653304`, 1.5569978883230458`}, {2.335496832484569, 0.7784989441615229}, { 1.9462473604038075`, 0.}, {2.7247463045653304`, 0.}, { 3.113995776646092, 0.7784989441615229}}]& ], AspectRatio->NCache[Rational[2, 3]^Rational[1, 2], 0.816496580927726], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6903085094570331`, 2.53546276418555}, { 0.8451542547285166, 1.6903085094570334`}, {0.4225771273642583, 0.8451542547285167}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285167}, {2.53546276418555, 1.6903085094570334`}, {2.1128856368212916`, 0.8451542547285167}, { 2.958039891549808, 0.8451542547285167}, {2.53546276418555, 0.}, { 3.3806170189140663`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {7, 8}, { 7, 9}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570334`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570334`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{3.3806170189140663`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6903085094570331`, 2.53546276418555}, { 0.8451542547285166, 1.6903085094570334`}, {0.4225771273642583, 0.8451542547285167}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285167}, {2.53546276418555, 1.6903085094570334`}, {2.1128856368212916`, 0.8451542547285167}, { 2.958039891549808, 0.8451542547285167}, {2.53546276418555, 0.}, { 3.3806170189140663`, 0.}}]& ], AspectRatio->NCache[Rational[2, 3]^Rational[1, 2], 0.816496580927726], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6903085094570331`, 2.53546276418555}, { 0.8451542547285166, 1.6903085094570334`}, {0.4225771273642583, 0.8451542547285167}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285167}, {2.53546276418555, 1.6903085094570334`}, {2.1128856368212916`, 0.8451542547285167}, { 1.6903085094570331`, 0.}, {2.53546276418555, 0.}, { 2.958039891549808, 0.8451542547285167}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {7, 8}, { 7, 11}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570334`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570334`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285167}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.8451542547285167}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6903085094570331`, 2.53546276418555}, { 0.8451542547285166, 1.6903085094570334`}, {0.4225771273642583, 0.8451542547285167}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285167}, {2.53546276418555, 1.6903085094570334`}, {2.1128856368212916`, 0.8451542547285167}, { 1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.958039891549808, 0.8451542547285167}}]& ], AspectRatio->NCache[Rational[2, 3]^Rational[1, 2], 0.816496580927726], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {1.267731382092775, 0.8451542547285165}, { 0.8451542547285166, 0.}, {1.6903085094570331`, 0.}, { 2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, {2.53546276418555, 1.6903085094570331`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, { 6, 8}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {1.267731382092775, 0.8451542547285165}, { 0.8451542547285166, 0.}, {1.6903085094570331`, 0.}, { 2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, {2.53546276418555, 1.6903085094570331`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285165}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 2.53546276418555, 1.6903085094570331`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 8}, {5, 6}, { 5, 7}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {0.4225771273642583, 0.8451542547285165}, {0., 0.}, {0.8451542547285166, 0.}, { 1.267731382092775, 0.8451542547285165}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 2.53546276418555, 1.6903085094570331`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999162}, {1.7888543819998317`, 1.788854381999832}, {1.7888543819998317`, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 4}, {4, 5}, {4, 10}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999162}, {1.7888543819998317`, 1.788854381999832}, {1.7888543819998317`, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6903085094570331`, 3.3806170189140663`}, { 1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, {2.1128856368212916`, 1.6903085094570331`}, { 1.6903085094570331`, 0.8451542547285165}, {1.267731382092775, 0.}, { 2.1128856368212916`, 0.}, {2.53546276418555, 0.8451542547285165}, { 2.1128856368212916`, 2.53546276418555}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {6, 7}, { 6, 10}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6903085094570331`, 3.3806170189140663`}, {1.267731382092775, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, { 0.8451542547285166, 0.8451542547285165}, {2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, { 1.267731382092775, 0.}, {2.1128856368212916`, 0.}, {2.53546276418555, 0.8451542547285165}, {2.1128856368212916`, 2.53546276418555}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999162}, {1.3416407864998738`, 2.683281572999748}, { 1.7888543819998317`, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 10}, {3, 4}, {3, 5}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999162}, {1.3416407864998738`, 2.683281572999748}, { 1.7888543819998317`, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.8944271909999162}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999162}, {1.7888543819998317`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 11}, {6, 7}, { 6, 10}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {1.3416407864998738`, 2.683281572999748}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.8944271909999162}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.8944271909999162}, { 1.7888543819998317`, 1.788854381999832}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.8451542547285166, 2.53546276418555}, {1.6903085094570331`, 2.53546276418555}, {0.8451542547285166, 1.6903085094570331`}, { 0.4225771273642583, 0.8451542547285165}, {0., 0.}, { 0.8451542547285166, 0.}, {1.267731382092775, 0.8451542547285165}, { 2.53546276418555, 1.6903085094570331`}, {2.1128856368212916`, 0.8451542547285165}, {2.958039891549808, 0.8451542547285165}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 9}, {4, 5}, {4, 8}, {5, 6}, { 5, 7}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.8451542547285165}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.8451542547285166, 2.53546276418555}, {1.6903085094570331`, 2.53546276418555}, {0.8451542547285166, 1.6903085094570331`}, { 0.4225771273642583, 0.8451542547285165}, {0., 0.}, { 0.8451542547285166, 0.}, {1.267731382092775, 0.8451542547285165}, { 2.53546276418555, 1.6903085094570331`}, {2.1128856368212916`, 0.8451542547285165}, {2.958039891549808, 0.8451542547285165}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.8451542547285166, 2.53546276418555}, {1.6903085094570331`, 2.53546276418555}, {1.267731382092775, 1.6903085094570331`}, { 0.4225771273642583, 0.8451542547285165}, {0., 0.}, { 0.8451542547285166, 0.}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.1128856368212916`, 1.6903085094570331`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 11}, {4, 5}, {4, 8}, {5, 6}, { 5, 7}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.8451542547285166, 2.53546276418555}, {1.6903085094570331`, 2.53546276418555}, {1.267731382092775, 1.6903085094570331`}, { 0.4225771273642583, 0.8451542547285165}, {0., 0.}, { 0.8451542547285166, 0.}, {2.1128856368212916`, 0.8451542547285165}, { 1.6903085094570331`, 0.}, {2.53546276418555, 0.}, { 2.1128856368212916`, 1.6903085094570331`}}]& ], AspectRatio->NCache[Rational[1, 2] 5^Rational[1, 2], 1.118033988749895], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {1.3416407864998738`, 3.577708763999664}, {0.8944271909999159, 2.683281572999748}, { 0.4472135954999579, 1.788854381999832}, {0., 0.8944271909999162}, { 0.8944271909999159, 0.8944271909999162}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}, {1.7888543819998317`, 2.683281572999748}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 11}, {4, 5}, {4, 10}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 2.683281572999748}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {1.3416407864998738`, 3.577708763999664}, {0.8944271909999159, 2.683281572999748}, { 0.4472135954999579, 1.788854381999832}, {0., 0.8944271909999162}, { 0.8944271909999159, 0.8944271909999162}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}, { 1.7888543819998317`, 2.683281572999748}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {0., 2.683281572999748}, { 0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {1.3416407864998738`, 1.788854381999832}, { 0.8944271909999159, 0.8944271909999162}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.7888543819998317`, 0.8944271909999162}, {1.3416407864998738`, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, { 6, 10}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {0., 2.683281572999748}, { 0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {1.3416407864998738`, 1.788854381999832}, { 0.8944271909999159, 0.8944271909999162}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.7888543819998317`, 0.8944271909999162}, {1.3416407864998738`, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.8451542547285166, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {1.267731382092775, 1.6903085094570331`}, { 0.4225771273642583, 0.8451542547285165}, {0., 0.}, { 0.8451542547285166, 0.}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {1.6903085094570331`, 2.53546276418555}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 4}, {4, 5}, {4, 8}, {5, 6}, { 5, 7}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 2.53546276418555}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.8451542547285166, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {1.267731382092775, 1.6903085094570331`}, { 0.4225771273642583, 0.8451542547285165}, {0., 0.}, { 0.8451542547285166, 0.}, {2.1128856368212916`, 0.8451542547285165}, { 1.6903085094570331`, 0.}, {2.53546276418555, 0.}, { 1.6903085094570331`, 2.53546276418555}}]& ], AspectRatio->NCache[Rational[1, 2] 5^Rational[1, 2], 1.118033988749895], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6903085094570331`, 3.3806170189140663`}, { 1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, {2.1128856368212916`, 1.6903085094570331`}, { 1.6903085094570331`, 0.8451542547285165}, {2.53546276418555, 0.8451542547285165}, {2.1128856368212916`, 0.}, {2.958039891549808, 0.}, {2.1128856368212916`, 2.53546276418555}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {6, 7}, { 6, 8}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6903085094570331`, 3.3806170189140663`}, {1.267731382092775, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, { 0.8451542547285166, 0.8451542547285165}, {2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, { 2.53546276418555, 0.8451542547285165}, {2.1128856368212916`, 0.}, { 2.958039891549808, 0.}, {2.1128856368212916`, 2.53546276418555}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, { 1.3416407864998738`, 0.8944271909999162}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, {1.3416407864998738`, 2.683281572999748}, {1.7888543819998317`, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 10}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, { 1.3416407864998738`, 0.8944271909999162}, {0.8944271909999159, 0.}, { 1.7888543819998317`, 0.}, {1.3416407864998738`, 2.683281572999748}, { 1.7888543819998317`, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8451542547285166, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, { 2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, {1.267731382092775, 0.}, {2.1128856368212916`, 0.}, {2.53546276418555, 0.8451542547285165}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}, {7, 8}, { 7, 11}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.8451542547285165}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8451542547285166, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, { 2.1128856368212916`, 1.6903085094570331`}, {1.6903085094570331`, 0.8451542547285165}, {1.267731382092775, 0.}, {2.1128856368212916`, 0.}, {2.53546276418555, 0.8451542547285165}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999162}, {1.3416407864998738`, 2.683281572999748}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 11}, {4, 5}, {4, 6}, {6, 7}, { 6, 10}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 4.47213595499958}, {0., 3.577708763999664}, {0.8944271909999159, 3.577708763999664}, { 0.4472135954999579, 2.683281572999748}, {0., 1.788854381999832}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999162}, {1.3416407864998738`, 2.683281572999748}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.357241785076592, 2.3267002029884436`}, { 0.3877833671647406, 1.5511334686589624`}, {0., 0.7755667343294812}, {0.7755667343294812, 0.7755667343294812}, { 2.3267002029884436`, 1.5511334686589624`}, {1.5511334686589624`, 0.7755667343294812}, {1.1633501014942218`, 0.}, {1.938916835823703, 0.}, {3.102266937317925, 0.7755667343294812}, {2.714483570153184, 0.}, {3.4900503044826654`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 9}, {6, 7}, { 6, 8}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.357241785076592, 2.3267002029884436`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.3877833671647406, 1.5511334686589624`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.7755667343294812}]}, {RGBColor[0, 0, 0.7], PointBox[{0.7755667343294812, 0.7755667343294812}]}, {RGBColor[0, 0, 0.7], PointBox[{2.3267002029884436`, 1.5511334686589624`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.5511334686589624`, 0.7755667343294812}]}, {RGBColor[0, 0, 0.7], PointBox[{1.1633501014942218`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.938916835823703, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{3.102266937317925, 0.7755667343294812}]}, {RGBColor[0, 0, 0.7], PointBox[{2.714483570153184, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{3.4900503044826654`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.357241785076592, 2.3267002029884436`}, { 0.3877833671647406, 1.5511334686589624`}, {0., 0.7755667343294812}, { 0.7755667343294812, 0.7755667343294812}, {2.3267002029884436`, 1.5511334686589624`}, {1.5511334686589624`, 0.7755667343294812}, { 1.1633501014942218`, 0.}, {1.938916835823703, 0.}, { 3.102266937317925, 0.7755667343294812}, {2.714483570153184, 0.}, { 3.4900503044826654`, 0.}}]& ], AspectRatio->NCache[Rational[2, 3]^Rational[1, 2], 0.816496580927726], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{2.1328085194060735`, 2.3267002029884436`}, { 1.1633501014942218`, 1.5511334686589624`}, {0.3877833671647406, 0.7755667343294812}, {0., 0.}, {0.7755667343294812, 0.}, { 1.938916835823703, 0.7755667343294812}, {1.5511334686589624`, 0.}, { 2.3267002029884436`, 0.}, {3.102266937317925, 1.5511334686589624`}, {2.714483570153184, 0.7755667343294812}, { 3.4900503044826654`, 0.7755667343294812}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 6}, {3, 4}, {3, 5}, {6, 7}, { 6, 8}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{2.1328085194060735`, 2.3267002029884436`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.1633501014942218`, 1.5511334686589624`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.3877833671647406, 0.7755667343294812}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.7755667343294812, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.938916835823703, 0.7755667343294812}]}, {RGBColor[0, 0, 0.7], PointBox[{1.5511334686589624`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.3267002029884436`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{3.102266937317925, 1.5511334686589624`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.714483570153184, 0.7755667343294812}]}, {RGBColor[0, 0, 0.7], PointBox[{3.4900503044826654`, 0.7755667343294812}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{2.1328085194060735`, 2.3267002029884436`}, {1.1633501014942218`, 1.5511334686589624`}, { 0.3877833671647406, 0.7755667343294812}, {0., 0.}, { 0.7755667343294812, 0.}, {1.938916835823703, 0.7755667343294812}, { 1.5511334686589624`, 0.}, {2.3267002029884436`, 0.}, { 3.102266937317925, 1.5511334686589624`}, {2.714483570153184, 0.7755667343294812}, {3.4900503044826654`, 0.7755667343294812}}]& ], AspectRatio->NCache[Rational[2, 3]^Rational[1, 2], 0.816496580927726], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {0., 2.683281572999748}, { 0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {0., 0.8944271909999162}, {0.8944271909999159, 0.8944271909999162}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}, { 1.3416407864998738`, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 4}, {4, 5}, {4, 10}, {5, 6}, {5, 7}, {7, 8}, {7, 9}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {0., 2.683281572999748}, { 0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {0., 0.8944271909999162}, {0.8944271909999159, 0.8944271909999162}, {0.4472135954999579, 0.}, {1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}, {1.3416407864998738`, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6903085094570331`, 3.3806170189140663`}, { 1.267731382092775, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, {0.4225771273642583, 0.}, {1.267731382092775, 0.}, {2.1128856368212916`, 1.6903085094570331`}, { 1.6903085094570331`, 0.8451542547285165}, {2.53546276418555, 0.8451542547285165}, {2.1128856368212916`, 2.53546276418555}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 8}, {3, 4}, {3, 5}, {5, 6}, { 5, 7}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6903085094570331`, 3.3806170189140663`}, {1.267731382092775, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, { 0.8451542547285166, 0.8451542547285165}, {0.4225771273642583, 0.}, { 1.267731382092775, 0.}, {2.1128856368212916`, 1.6903085094570331`}, { 1.6903085094570331`, 0.8451542547285165}, {2.53546276418555, 0.8451542547285165}, {2.1128856368212916`, 2.53546276418555}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {1.7888543819998317`, 3.577708763999664}, {1.3416407864998738`, 2.683281572999748}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999162}, {1.7888543819998317`, 1.788854381999832}, {2.23606797749979, 2.683281572999748}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 11}, {4, 5}, {4, 10}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 2.683281572999748}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 4.47213595499958}, { 0.8944271909999159, 3.577708763999664}, {1.7888543819998317`, 3.577708763999664}, {1.3416407864998738`, 2.683281572999748}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.8944271909999162}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.8944271909999162}, {1.7888543819998317`, 1.788854381999832}, {2.23606797749979, 2.683281572999748}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {0., 2.683281572999748}, { 0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {1.3416407864998738`, 1.788854381999832}, { 0.8944271909999159, 0.8944271909999162}, {1.7888543819998317`, 0.8944271909999162}, {1.3416407864998738`, 0.}, {2.23606797749979, 0.}, {1.3416407864998738`, 3.577708763999664}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 11}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, { 6, 8}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 4.47213595499958}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 3.577708763999664}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.683281572999748}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.8944271909999162}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.23606797749979, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 3.577708763999664}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 4.47213595499958}, { 0.4472135954999579, 3.577708763999664}, {0., 2.683281572999748}, { 0.8944271909999159, 2.683281572999748}, {0.4472135954999579, 1.788854381999832}, {1.3416407864998738`, 1.788854381999832}, { 0.8944271909999159, 0.8944271909999162}, {1.7888543819998317`, 0.8944271909999162}, {1.3416407864998738`, 0.}, {2.23606797749979, 0.}, {1.3416407864998738`, 3.577708763999664}}]& ], AspectRatio->NCache[2^Rational[1, 2], 1.4142135623730951`], FrameTicks->Automatic, ImageSize->{Automatic, 50}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 2.53546276418555, 1.6903085094570331`}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.958039891549808, 0.8451542547285165}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}, {7, 8}, { 7, 11}, {8, 9}, {8, 10}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 0.8451542547285165}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.267731382092775, 3.3806170189140663`}, { 0.4225771273642583, 2.53546276418555}, {0., 1.6903085094570331`}, { 0.8451542547285166, 1.6903085094570331`}, {2.1128856368212916`, 2.53546276418555}, {1.6903085094570331`, 1.6903085094570331`}, { 2.53546276418555, 1.6903085094570331`}, {2.1128856368212916`, 0.8451542547285165}, {1.6903085094570331`, 0.}, {2.53546276418555, 0.}, {2.958039891549808, 0.8451542547285165}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.6903085094570331`, 3.3806170189140663`}, { 0.8451542547285166, 2.53546276418555}, {0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, {0.8451542547285166, 0.8451542547285165}, {0.4225771273642583, 0.}, {1.267731382092775, 0.}, {1.267731382092775, 1.6903085094570331`}, {2.53546276418555, 2.53546276418555}, {2.1128856368212916`, 1.6903085094570331`}, { 2.958039891549808, 1.6903085094570331`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 5}, {5, 6}, { 5, 7}, {9, 10}, {9, 11}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.6903085094570331`, 3.3806170189140663`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8451542547285166, 0.8451542547285165}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4225771273642583, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.267731382092775, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.53546276418555, 2.53546276418555}]}, {RGBColor[0, 0, 0.7], PointBox[{2.1128856368212916`, 1.6903085094570331`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.958039891549808, 1.6903085094570331`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.6903085094570331`, 3.3806170189140663`}, {0.8451542547285166, 2.53546276418555}, { 0.4225771273642583, 1.6903085094570331`}, {0., 0.8451542547285165}, { 0.8451542547285166, 0.8451542547285165}, {0.4225771273642583, 0.}, { 1.267731382092775, 0.}, {1.267731382092775, 1.6903085094570331`}, { 2.53546276418555, 2.53546276418555}, {2.1128856368212916`, 1.6903085094570331`}, {2.958039891549808, 1.6903085094570331`}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ Compute the polynomial equation satisfied by the generating function for \ binary trees with respect to number of vertices and number of instances of a \ given tree from class 6.3:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BinaryTreeClassData", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], "[", RowBox[{"f", ",", "x", ",", "y"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"x", "-", SuperscriptBox["x", "3"], "+", RowBox[{ SuperscriptBox["x", "3"], " ", "y"}], "+", RowBox[{"f", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"2", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "4"], " ", "y"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "-", SuperscriptBox["x", "5"], "+", RowBox[{"x", " ", "y"}], "-", RowBox[{"2", " ", SuperscriptBox["x", "3"], " ", "y"}], "+", RowBox[{ SuperscriptBox["x", "5"], " ", "y"}]}], ")"}]}]}], "\[Equal]", "0"}]], "Output"] }, Open ]], Cell[TextData[{ "Compute the number of equivalence classes of ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "-leaf binary trees for ", Cell[BoxData[ FormBox[ RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "8"}], TraditionalForm]]], ":" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "/@", RowBox[{"BinaryTreeClassData", "/@", RowBox[{"Range", "[", "8", "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "7", ",", "15", ",", "44"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["BinaryTreePatternQ", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BinaryTreePatternQ"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BinaryTreePatternQ[expr] gives True if expr is a binary tree \ pattern, and False otherwise.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633199-4958319"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTreePatternQ", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData["True"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinaryTreePatternQ", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData["False"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["BottomUpReplaceAll", "Input"], StyleBox[" and ", FontWeight->"Plain"], StyleBox["TopDownReplaceAll", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "BottomUpReplaceAll"}]], "Input"], Cell[BoxData[ StyleBox["\<\"BottomUpReplaceAll[expr, rules] applies a rule or list of \ rules in an attempt to transform each subpart of an expression expr up from \ the bottom.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633203-6327527"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", "=", RowBox[{ RowBox[{"{", RowBox[{"$1_", ",", RowBox[{"{", RowBox[{"$2_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3_", ",", "$4_"}], "}"}], ",", "$5_"}], "}"}]}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{"$1", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3", ",", "$4"}], "}"}], ",", RowBox[{"{", RowBox[{"$2", ",", "$5"}], "}"}]}], "}"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tree", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"BareTreeForm", "[", "tree", "]"}]}], "Input"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvdon4kXVttv2EFragQEKxJx9u1fbSzhAxF/bo/Jv 2zdYOundOSHiAKG/wPkw9a/1zS/yBAlC+b/R+K+h9nGjmceCZh4LXP0aqDkw 9Sug4jD1K1DMfW0P8wfMfnQ+zDxUe7gdIO5kdICJQ/zNAecDAHkCh0Y= "], {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}, {7, 8}, {7, 17}, {8, 9}, {8, 10}, {10, 11}, {10, 16}, {11, 12}, {11, 13}, {13, 14}, {13, 15}, {17, 18}, {17, 19}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 6.92820323027551}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 6.062177826491071}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 6.062177826491071}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 5.196152422706632}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 5.196152422706632}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 4.330127018922194}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7320508075688774`, 4.330127018922194}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 3.464101615137755}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 2.598076211353316}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 2.598076211353316}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 1.7320508075688776`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 0.8660254037844384}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 0.8660254037844384}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7320508075688774`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7320508075688774`, 1.7320508075688776`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.598076211353316, 3.464101615137755}]}, {RGBColor[0, 0, 0.7], PointBox[{2.165063509461097, 2.598076211353316}]}, {RGBColor[0, 0, 0.7], PointBox[{3.0310889132455356`, 2.598076211353316}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvdon4kXVttv2EFragQEKxJx9u1fbSzhAxF/bo/Jv 2zdYOundOSHiAKG/wPkw9a/1zS/yBAlC+b/R+K+h9nGjmceCZh4LXP0aqDkw 9Sug4jD1K1DMfW0P8wfMfnQ+zDxUe7gdIO5kdICJQ/zNAecDAHkCh0Y= "]]& ], AspectRatio->NCache[3 5^Rational[-1, 2], 1.3416407864998738`], FrameTicks->Automatic, ImageSize->{Automatic, 80}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "[", RowBox[{"BottomUpReplaceAll", "[", RowBox[{"tree", ",", "rule"}], "]"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvdon4kXVttf2DZZOendOiDhA+LftX+ubX+QJEnSA iH+B82Hyq8A0twMDFEDUsTigmseCpv63PUz9Cqg6mHpU/m17VHO/YPBh5kHc xegAc89qqDjMfnQaVf1ve1Fn3+7V9hxwPkwdqnu44XwAfMeE8g== "], {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 13}, {4, 5}, {4, 6}, {6, 7}, {6, 12}, {7, 8}, {7, 9}, {9, 10}, {9, 11}, {13, 14}, {13, 15}, {15, 16}, { 15, 17}, {17, 18}, {17, 19}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 5.196152422706632}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 4.330127018922194}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 4.330127018922194}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 3.4641016151377544`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.598076211353316}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 2.598076211353316}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 1.7320508075688772`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8660254037844384}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 0.8660254037844384}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 1.7320508075688772`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.165063509461097, 3.4641016151377544`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7320508075688774`, 2.598076211353316}]}, {RGBColor[0, 0, 0.7], PointBox[{2.598076211353316, 2.598076211353316}]}, {RGBColor[0, 0, 0.7], PointBox[{2.165063509461097, 1.7320508075688772`}]}, {RGBColor[0, 0, 0.7], PointBox[{3.031088913245535, 1.7320508075688772`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.598076211353316, 0.8660254037844384}]}, {RGBColor[0, 0, 0.7], PointBox[{3.464101615137755, 0.8660254037844384}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvdon4kXVttf2DZZOendOiDhA+LftX+ubX+QJEnSA iH+B82Hyq8A0twMDFEDUsTigmseCpv63PUz9Cqg6mHpU/m17VHO/YPBh5kHc xegAc89qqDjMfnQaVf1ve1Fn3+7V9hxwPkwdqnu44XwAfMeE8g== "]]& ], AspectRatio->NCache[Rational[7, 6]^Rational[1, 2], 1.0801234497346435`], FrameTicks->Automatic, ImageSize->{Automatic, 60}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "TopDownReplaceAll"}]], "Input"], Cell[BoxData[ StyleBox["\<\"TopDownReplaceAll[expr, rules] applies a rule or list of rules \ in an attempt to transform each subpart of an expression expr down from the \ top.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633207-2485606"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BareTreeForm", "[", RowBox[{"TopDownReplaceAll", "[", RowBox[{"tree", ",", "rule"}], "]"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvdon4kXVttv2Ys6+3avtJRwYoKDR0knvzgkRB4j8 a3tU/m371/rmF3mCBB0awOJf4HyY/BowzY1mHguaeSxo6n/bw9RvgKqDqUfl 34arg9mPzoeZB3EXowPMPauh4jD7G6A0jI+q/jc0XDjgfACh939L "], {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 15}, {6, 7}, {6, 8}, {8, 9}, {8, 14}, {9, 10}, {9, 11}, {11, 12}, {11, 13}, {15, 16}, { 15, 17}, {17, 18}, {17, 19}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 6.062177826491071}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 5.196152422706633}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 5.196152422706633}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 4.330127018922194}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 4.330127018922194}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 3.4641016151377553`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 2.5980762113533165`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 2.5980762113533165`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 1.7320508075688776`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.8660254037844393}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8660254037844387, 0.8660254037844393}]}, {RGBColor[0, 0, 0.7], PointBox[{0.43301270189221935`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.299038105676658, 1.7320508075688776`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.165063509461097, 3.4641016151377553`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7320508075688774`, 2.5980762113533165`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.598076211353316, 2.5980762113533165`}]}, {RGBColor[0, 0, 0.7], PointBox[{2.165063509461097, 1.7320508075688776`}]}, {RGBColor[0, 0, 0.7], PointBox[{3.0310889132455356`, 1.7320508075688776`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvdon4kXVttv2Ys6+3avtJRwYoKDR0knvzgkRB4j8 a3tU/m371/rmF3mCBB0awOJf4HyY/BowzY1mHguaeSxo6n/bw9RvgKqDqUfl 34arg9mPzoeZB3EXowPMPauh4jD7G6A0jI+q/jc0XDjgfACh939L "]]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 70}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"rule", ",", "tree"}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["FindOverlaps", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "FindOverlaps"}]], "Input"], Cell[BoxData[ StyleBox["\<\"FindOverlaps[p1, p2] gives the positions of all sub(tree \ patterns) in p1 that have a nonempty intersection with tree pattern p2.\\nIn \ other words, it finds the places in p1 where p2 can be hung.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633255-5356088"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tree1", "=", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ";"}], "\n", RowBox[{ RowBox[{"tree2", "=", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ";"}], "\n", RowBox[{"BareTreeForm", "/@", RowBox[{"{", RowBox[{"tree1", ",", "tree2"}], "}"}]}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, { 0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, { 1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2247448713915892`, 1.6329931618554523`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4082482904638631, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8164965809277261, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.041241452319315, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6329931618554523`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.4494897427831783`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, {0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, {1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}]& ], AspectRatio->NCache[Rational[1, 2] 3^Rational[1, 2], 0.8660254037844386], FrameTicks->Automatic, ImageSize->{Automatic, 20}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindOverlaps", "[", RowBox[{ RowBox[{"TreePattern", "[", "tree1", "]"}], ",", RowBox[{"TreePattern", "[", "tree2", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Leaves"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Leaves is an option for FindOverlaps that determines whether \ to allow matches at the leaves.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633258-9010679"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindOverlaps", "[", RowBox[{ RowBox[{"TreePattern", "[", "tree1", "]"}], ",", RowBox[{"TreePattern", "[", "tree2", "]"}], ",", RowBox[{"Leaves", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"tree1", ",", "tree2"}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["MatchingTrees", "Input"], StyleBox[" and ", "Text", FontWeight->"Plain"], StyleBox["NonMatchingTrees", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "MatchingTrees"}]], "Input"], Cell[BoxData[ StyleBox["\<\"MatchingTrees[treepattern] gives a list of tree patterns such \ that every tree matching treepattern matches precisely one tree pattern in \ the list.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633262-7306313"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatchingTrees", "[", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "NonMatchingTrees"}]], "Input"], Cell[BoxData[ StyleBox["\<\"NonMatchingTrees[treepattern] gives a list of tree patterns \ such that every tree not matching treepattern matches precisely one tree \ pattern in the list.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633265-8469786"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"NonMatchingTrees", "[", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"BareTreeForm", "/@", "%"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[GraphicsGroupBox[{GraphicsComplexBox[{{0., 0.}}, {RGBColor[0.55, 0.45, 0.45]}], {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0., 0.}}]& ], AspectRatio->1, FrameTicks->Automatic, ImageSize->{Automatic, 10}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 0.8944271909999159}, {0., 0.}, {0.8944271909999159, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999159}]}, {GrayLevel[0.6], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 0.8944271909999159}, {0., 0.}, {0.8944271909999159, 0.}}]& ], AspectRatio->NCache[2 5^Rational[-1, 2], 0.8944271909999159], FrameTicks->Automatic, ImageSize->{Automatic, 20}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 1.7888543819998317`}, {0., 0.8944271909999159}, {0.8944271909999159, 0.8944271909999159}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.7888543819998317`}]}, {GrayLevel[0.6], PointBox[{0., 0.8944271909999159}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.8944271909999159}]}, {GrayLevel[0.6], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 1.7888543819998317`}, { 0., 0.8944271909999159}, {0.8944271909999159, 0.8944271909999159}, { 0.4472135954999579, 0.}, {1.3416407864998738`, 0.}}]& ], AspectRatio->NCache[Rational[6, 7]^Rational[1, 2], 0.9258200997725514], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["PatternIntersection", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "PatternIntersection"}]], "Input"], Cell[BoxData[ StyleBox["\<\"PatternIntersection[p1, p2, ...] gives a pattern which is \ matched by any expression matching p1, p2, \[Ellipsis].\"\>", "MSG"]], "Print",\ "PrintUsage", CellTags->"Info3464633268-4844891"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tree1", "=", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ";"}], "\n", RowBox[{ RowBox[{"tree2", "=", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ";"}], "\n", RowBox[{"BareTreeForm", "/@", RowBox[{"{", RowBox[{"tree1", ",", "tree2"}], "}"}]}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], ",", GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, { 0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, { 1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2247448713915892`, 1.6329931618554523`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4082482904638631, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8164965809277261, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.041241452319315, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6329931618554523`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.4494897427831783`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, {0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, {1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}]& ], AspectRatio->NCache[Rational[1, 2] 3^Rational[1, 2], 0.8660254037844386], FrameTicks->Automatic, ImageSize->{Automatic, 20}, PlotRange->All, PlotRangePadding->Scaled[0.1]]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"PatternIntersection", "[", RowBox[{ RowBox[{"TreePattern", "[", "tree1", "]"}], ",", RowBox[{"TreePattern", "[", "tree2", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"BareTreeForm", "[", "%", "]"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]], "Output"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 9}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2510864843424487`, 2.5021729686848975`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.41702882811414954`, 1.6681153124565984`}]}, {GrayLevel[0.6], PointBox[{0., 0.8340576562282993}]}, {GrayLevel[0.6], PointBox[{0.8340576562282991, 0.8340576562282993}]}, {RGBColor[0, 0, 0.7], PointBox[{2.0851441405707476`, 1.6681153124565984`}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6681153124565982`, 0.8340576562282993}]}, {GrayLevel[0.6], PointBox[{1.2510864843424487`, 0.}]}, {GrayLevel[0.6], PointBox[{2.0851441405707476`, 0.}]}, {GrayLevel[0.6], PointBox[{2.5021729686848975`, 0.8340576562282993}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2510864843424487`, 2.5021729686848975`}, { 0.41702882811414954`, 1.6681153124565984`}, {0., 0.8340576562282993}, { 0.8340576562282991, 0.8340576562282993}, {2.0851441405707476`, 1.6681153124565984`}, {1.6681153124565982`, 0.8340576562282993}, { 1.2510864843424487`, 0.}, {2.0851441405707476`, 0.}, { 2.5021729686848975`, 0.8340576562282993}}]& ], AspectRatio->NCache[2 Rational[2, 13]^Rational[1, 2], 0.7844645405527362], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"tree1", ",", "tree2"}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ProbableAvoidingBijectionQ", "Input"]], \ "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "ProbableAvoidingBijectionQ"}]], "Input"], Cell[BoxData[ StyleBox["\<\"ProbableAvoidingBijectionQ[p1, p2, rules] determines whether \ the bijection given by rules induces a top-down replacement bijection from \ trees avoiding p1 to trees avoiding p2, assuming that the patterns are \ sufficiently shallow that three overlapping patterns in a tree does not cause \ problems.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633274-7079644"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ProbableAvoidingBijectionQ", "[", RowBox[{ RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$2_", ",", "$3_"}], "}"}], ",", RowBox[{"{", RowBox[{"$1_", ",", "$4_"}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{"$1", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$2", ",", "$3"}], "}"}], ",", "$4"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData["True"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ProbableAvoidingBijectionQ", "[", RowBox[{ RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"$1_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$2_", ",", "$3_"}], "}"}], ",", "$4_"}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$2", ",", "$3"}], "}"}], ",", RowBox[{"{", RowBox[{"$1", ",", "$4"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData["False"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ProbableAvoidingBijections", "Input"]], \ "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "ProbableAvoidingBijections"}]], "Input"], Cell[BoxData[ StyleBox["\<\"ProbableAvoidingBijections[t1, t2] gives a list of the \ permutations that provide top-down replacement bijections on the set of \ binary trees and induce bijections from trees avoiding t1 to trees avoiding \ t2, assuming that the patterns are sufficiently shallow that three \ overlapping patterns in a tree does not cause problems.\"\>", "MSG"]], "Print",\ "PrintUsage", CellTags->"Info3464633276-9781741"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ProbableAvoidingBijections", "[", RowBox[{ RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "4"}], "}"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["TreePattern", "Input"], StyleBox[" and ", FontWeight->"Plain"], StyleBox["FromTreePattern", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "TreePattern"}]], "Input"], Cell[BoxData[ StyleBox["\<\"TreePattern[tree] forms a tree pattern by turning each leaf {} \ of tree into {___}.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633279-1172284"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreePattern", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "FromTreePattern"}]], "Input"], Cell[BoxData[ StyleBox["\<\"FromTreePattern[treepattern] forms a tree by turning each leaf \ {__} or {___} of treepattern into {}.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633282-8297605"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromTreePattern", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "___", "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}], ",", RowBox[{"{", "___", "}"}]}], "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["TreeReplacementRules", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "TreeReplacementRules"}]], "Input"], Cell[BoxData[ StyleBox["\<\"TreeReplacementRules[tree1, tree2, perm] gives a list \ containing the rule for replacing tree1 with tree2 according to the given \ permutation of leaves, and its inverse.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633284-6614619"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TreeReplacementRules", "[", RowBox[{ RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"BinaryTrees", "[", "4", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"$1_", ",", RowBox[{"{", RowBox[{"$2_", ",", RowBox[{"{", RowBox[{"$3_", ",", "$4_"}], "}"}]}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{"$1", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3", ",", "$2"}], "}"}], ",", "$4"}], "}"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"$1_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"$3_", ",", "$2_"}], "}"}], ",", "$4_"}], "}"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{"$1", ",", RowBox[{"{", RowBox[{"$2", ",", RowBox[{"{", RowBox[{"$3", ",", "$4"}], "}"}]}], "}"}]}], "}"}]}]}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Weight", "Input"]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Weight"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Weight[tree, t, x] computes the weight of a binary tree with \ respect to t.\\nWeight[tree, {t1, t2, ..., tk}, {x1, x2, ..., xk}] computes \ the weight of a binary tree with respect to several trees.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633286-2727105"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"BareTreeForm", "[", RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "10", "\[RightDoubleBracket]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Weight", "[", RowBox[{ RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "10", "\[RightDoubleBracket]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "x"}], "]"}]}], "Input"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, { 1.3416407864998738`, 2.6832815729997477`}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 4}, {4, 5}, {4, 6}, {6, 7}, {6, 8}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 3.5777087639996634`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.7888543819998317`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.8944271909999157}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 3.5777087639996634`}, { 0.4472135954999579, 2.6832815729997477`}, {0., 1.7888543819998317`}, { 0.8944271909999159, 1.7888543819998317`}, {0.4472135954999579, 0.8944271909999157}, {1.3416407864998738`, 0.8944271909999157}, { 0.8944271909999159, 0.}, {1.7888543819998317`, 0.}, {1.3416407864998738`, 2.6832815729997477`}}]& ], AspectRatio->NCache[Rational[5, 3]^Rational[1, 2], 1.2909944487358056`], FrameTicks->Automatic, ImageSize->{Automatic, 40}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output"], Cell[BoxData[ SuperscriptBox["x", "4"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Weight", "[", RowBox[{ RowBox[{ RowBox[{"BinaryTrees", "[", "5", "]"}], "\[LeftDoubleBracket]", "10", "\[RightDoubleBracket]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ SuperscriptBox["x", "9"], " ", SuperscriptBox["y", "4"], " ", SuperscriptBox["z", "2"]}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["WeightEquation", "Input"], StyleBox[" and ", "Text", FontWeight->"Plain"], StyleBox["AvoidingWeightEquation", "Input"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "AvoidingWeightEquation"}]], "Input"], Cell[BoxData[ StyleBox["\<\"AvoidingWeightEquation[t, f, x] gives an equation satisfied by \ the weight f of the set of binary trees that avoid the tree t, where the \ weight of a tree is x^(number of vertices).\"\>", "MSG"]], "Print", \ "PrintUsage", CellTags->"Info3464633291-7230103"] }, Open ]], Cell[TextData[{ "The five binary trees with ", Cell[BoxData[ FormBox["4", TraditionalForm]]], " leaves and polynomial equations satisfied by the generating function \ counting binary trees that avoid each:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"BareTreeForm", "[", "#1", "]"}], ",", RowBox[{"AvoidingWeightEquation", "[", RowBox[{"#1", ",", "f", ",", "x"}], "]"}]}], "}"}], "&"}], ")"}], "/@", RowBox[{"BinaryTrees", "[", "4", "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{ RowBox[{"-", "f"}], "+", "x", "+", RowBox[{"f", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"]}]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{"f", "-", "x", "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, { 0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, { 1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2247448713915892`, 1.6329931618554523`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4082482904638631, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8164965809277261, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.041241452319315, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6329931618554523`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.4494897427831783`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2247448713915892`, 1.6329931618554523`}, {0.4082482904638631, 0.8164965809277261}, {0., 0.}, {0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, {1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}]& ], AspectRatio->NCache[Rational[1, 2] 3^Rational[1, 2], 0.8660254037844386], FrameTicks->Automatic, ImageSize->{Automatic, 20}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{"f", "-", "x", "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.788854381999832}, {0., 0.894427190999916}, { 0.8944271909999159, 0.894427190999916}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.788854381999832}, {0., 0.894427190999916}, { 0.8944271909999159, 0.894427190999916}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{"f", "-", "x", "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 2.6832815729997477`}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.894427190999916}, {1.7888543819998317`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}, { 1.7888543819998317`, 1.788854381999832}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{ RowBox[{"-", "f"}], "+", "x", "+", RowBox[{"f", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"]}]}], "\[Equal]", "0"}]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "WeightEquation"}]], "Input"], Cell[BoxData[ StyleBox["\<\"WeightEquation[t, f, x] gives an equation satisfied by the \ weight f of the set of binary trees, where the weight of a tree is \ x[{}]^(number of vertices)*x[t]^(number of occurrences of \ t).\\nWeightEquation[t1, t2, ..., tk, f, x] uses the weight function \ x[{}]^(number of vertices)*Product[x[ti]^(number of occurrences of ti), {i, \ k}].\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info3464633296-1841370"] }, Open ]], Cell[TextData[{ "More generally, we can count all binary trees with respect to number of \ vertices and number of occurrences of a given ", Cell[BoxData[ FormBox["4", TraditionalForm]], FormatType->"TraditionalForm"], "-leaf pattern:\nSetting ", Cell[BoxData[ FormBox[ RowBox[{"y", "=", "0"}], TraditionalForm]], FormatType->"TraditionalForm"], " gives the equations satisfied by the avoiding generating function." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"BareTreeForm", "[", "#1", "]"}], ",", RowBox[{ RowBox[{"WeightEquation", "[", RowBox[{"#1", ",", "f", ",", "x"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"{", "}"}], "]"}], "\[Rule]", "x"}], ",", RowBox[{ RowBox[{"x", "[", "#1", "]"}], "\[Rule]", "y"}]}], "}"}]}]}], "}"}], "&"}], ")"}], "/@", RowBox[{"BinaryTrees", "[", "4", "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {1.3416407864998738`, 0.894427190999916}, {0.8944271909999159, 0.}, {1.7888543819998317`, 0.}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{"f", "-", "x", "-", RowBox[{"f", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"]}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", "x", " ", "y"}], "+", RowBox[{"f", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"], " ", "y"}]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.4472135954999579, 2.6832815729997477`}, {0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 7}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4472135954999579, 2.6832815729997477`}, { 0., 1.788854381999832}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{ RowBox[{"-", "f"}], "+", "x", "+", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["x", "3"], "+", RowBox[{ SuperscriptBox["f", "2"], " ", "x", " ", "y"}], "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{ SuperscriptBox["x", "3"], " ", "y"}]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.2247448713915892`, 1.6329931618554523`}, { 0.4082482904638631, 0.8164965809277261}, {0., 0.}, { 0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, { 1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 5}, {2, 3}, {2, 4}, {5, 6}, {5, 7}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.2247448713915892`, 1.6329931618554523`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4082482904638631, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8164965809277261, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.041241452319315, 0.8164965809277261}]}, {RGBColor[0, 0, 0.7], PointBox[{1.6329931618554523`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{2.4494897427831783`, 0.}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.2247448713915892`, 1.6329931618554523`}, {0.4082482904638631, 0.8164965809277261}, {0., 0.}, {0.8164965809277261, 0.}, {2.041241452319315, 0.8164965809277261}, {1.6329931618554523`, 0.}, {2.4494897427831783`, 0.}}]& ], AspectRatio->NCache[Rational[1, 2] 3^Rational[1, 2], 0.8660254037844386], FrameTicks->Automatic, ImageSize->{Automatic, 20}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{ RowBox[{"-", "f"}], "+", "x", "+", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["x", "3"], "+", RowBox[{ SuperscriptBox["f", "2"], " ", "x", " ", "y"}], "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{ SuperscriptBox["x", "3"], " ", "y"}]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.788854381999832}, {0., 0.894427190999916}, { 0.8944271909999159, 0.894427190999916}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 4}, {4, 5}, {4, 6}}]}], { {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.8944271909999159, 2.6832815729997477`}, { 0.4472135954999579, 1.788854381999832}, {0., 0.894427190999916}, { 0.8944271909999159, 0.894427190999916}, {0.4472135954999579, 0.}, { 1.3416407864998738`, 0.}, {1.3416407864998738`, 1.788854381999832}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{ RowBox[{"-", "f"}], "+", "x", "+", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["x", "3"], "+", RowBox[{ SuperscriptBox["f", "2"], " ", "x", " ", "y"}], "-", RowBox[{"2", " ", "f", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{ SuperscriptBox["x", "3"], " ", "y"}]}], "\[Equal]", "0"}]}, { GraphicsBox[ TagBox[ GraphicsGroupBox[{ GraphicsComplexBox[{{1.3416407864998738`, 2.6832815729997477`}, { 0.8944271909999159, 1.788854381999832}, {0.4472135954999579, 0.894427190999916}, {0., 0.}, {0.8944271909999159, 0.}, { 1.3416407864998738`, 0.894427190999916}, {1.7888543819998317`, 1.788854381999832}}, {RGBColor[0.55, 0.45, 0.45], LineBox[{{1, 2}, {1, 7}, {2, 3}, {2, 6}, {3, 4}, {3, 5}}]}], { {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 2.6832815729997477`}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 1.788854381999832}]}, {RGBColor[0, 0, 0.7], PointBox[{0.4472135954999579, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{0., 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{0.8944271909999159, 0.}]}, {RGBColor[0, 0, 0.7], PointBox[{1.3416407864998738`, 0.894427190999916}]}, {RGBColor[0, 0, 0.7], PointBox[{1.7888543819998317`, 1.788854381999832}]}}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1.3416407864998738`, 2.6832815729997477`}, {0.8944271909999159, 1.788854381999832}, { 0.4472135954999579, 0.894427190999916}, {0., 0.}, { 0.8944271909999159, 0.}, {1.3416407864998738`, 0.894427190999916}, { 1.7888543819998317`, 1.788854381999832}}]& ], AspectRatio->NCache[2 3^Rational[-1, 2], 1.1547005383792517`], FrameTicks->Automatic, ImageSize->{Automatic, 30}, PlotRange->All, PlotRangePadding->Scaled[0.1]], RowBox[{ RowBox[{"f", "-", "x", "-", RowBox[{"f", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"]}], "-", RowBox[{ SuperscriptBox["f", "2"], " ", "x", " ", "y"}], "+", RowBox[{"f", " ", SuperscriptBox["x", "2"], " ", "y"}], "+", RowBox[{ SuperscriptBox["f", "2"], " ", SuperscriptBox["x", "3"], " ", "y"}]}], "\[Equal]", "0"}]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, WindowSize->{1272, 717}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, ShowSelection->True, TrackCellChangeTimes->False, FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3464633160-5864923"->{ Cell[171243, 3946, 275, 4, 40, "Print", CellTags->"Info3464633160-5864923"]}, "Info3464633166-1428021"->{ Cell[178100, 4168, 232, 4, 40, "Print", CellTags->"Info3464633166-1428021"]}, "Info3464633169-6223284"->{ Cell[179579, 4218, 239, 4, 40, "Print", CellTags->"Info3464633169-6223284"]}, "Info3464633173-1147427"->{ Cell[196517, 4571, 232, 4, 40, "Print", CellTags->"Info3464633173-1147427"]}, "Info3464633175-3661226"->{ Cell[197996, 4621, 239, 4, 40, "Print", CellTags->"Info3464633175-3661226"]}, "Info3464633179-5988959"->{ Cell[214994, 4974, 232, 4, 40, "Print", CellTags->"Info3464633179-5988959"]}, "Info3464633180-5932291"->{ Cell[216842, 5036, 260, 4, 40, "Print", CellTags->"Info3464633180-5932291"]}, "Info3464633247-7140424"->{ Cell[235611, 5421, 325, 5, 58, "Print", CellTags->"Info3464633247-7140424"]}, "Info3464633199-4958319"->{ Cell[341132, 7476, 196, 3, 40, "Print", CellTags->"Info3464633199-4958319"]}, "Info3464633203-6327527"->{ Cell[342151, 7522, 253, 4, 40, "Print", CellTags->"Info3464633203-6327527"]}, "Info3464633207-2485606"->{ Cell[349485, 7709, 251, 4, 40, "Print", CellTags->"Info3464633207-2485606"]}, "Info3464633255-5356088"->{ Cell[352773, 7793, 305, 5, 58, "Print", CellTags->"Info3464633255-5356088"]}, "Info3464633258-9010679"->{ Cell[357147, 7906, 198, 3, 40, "Print", CellTags->"Info3464633258-9010679"]}, "Info3464633262-7306313"->{ Cell[358401, 7956, 254, 4, 40, "Print", CellTags->"Info3464633262-7306313"]}, "Info3464633265-8469786"->{ Cell[366459, 8239, 261, 4, 40, "Print", CellTags->"Info3464633265-8469786"]}, "Info3464633268-4844891"->{ Cell[370112, 8342, 221, 4, 40, "Print", CellTags->"Info3464633268-4844891"]}, "Info3464633274-7079644"->{ Cell[376851, 8511, 406, 6, 58, "Print", CellTags->"Info3464633274-7079644"]}, "Info3464633276-9781741"->{ Cell[379230, 8593, 439, 7, 58, "Print", CellTags->"Info3464633276-9781741"]}, "Info3464633279-1172284"->{ Cell[380437, 8636, 188, 3, 40, "Print", CellTags->"Info3464633279-1172284"]}, "Info3464633282-8297605"->{ Cell[381317, 8671, 206, 3, 40, "Print", CellTags->"Info3464633282-8297605"]}, "Info3464633284-6614619"->{ Cell[382555, 8721, 275, 4, 40, "Print", CellTags->"Info3464633284-6614619"]}, "Info3464633286-2727105"->{ Cell[384301, 8786, 306, 5, 58, "Print", CellTags->"Info3464633286-2727105"]}, "Info3464633291-7230103"->{ Cell[388265, 8903, 289, 5, 40, "Print", CellTags->"Info3464633291-7230103"]}, "Info3464633296-1841370"->{ Cell[398694, 9144, 447, 7, 58, "Print", CellTags->"Info3464633296-1841370"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3464633160-5864923", 411381, 9446}, {"Info3464633166-1428021", 411493, 9449}, {"Info3464633169-6223284", 411605, 9452}, {"Info3464633173-1147427", 411717, 9455}, {"Info3464633175-3661226", 411829, 9458}, {"Info3464633179-5988959", 411941, 9461}, {"Info3464633180-5932291", 412053, 9464}, {"Info3464633247-7140424", 412165, 9467}, {"Info3464633199-4958319", 412277, 9470}, {"Info3464633203-6327527", 412389, 9473}, {"Info3464633207-2485606", 412501, 9476}, {"Info3464633255-5356088", 412613, 9479}, {"Info3464633258-9010679", 412725, 9482}, {"Info3464633262-7306313", 412837, 9485}, {"Info3464633265-8469786", 412949, 9488}, {"Info3464633268-4844891", 413061, 9491}, {"Info3464633274-7079644", 413173, 9494}, {"Info3464633276-9781741", 413285, 9497}, {"Info3464633279-1172284", 413397, 9500}, {"Info3464633282-8297605", 413509, 9503}, {"Info3464633284-6614619", 413621, 9506}, {"Info3464633286-2727105", 413733, 9509}, {"Info3464633291-7230103", 413845, 9512}, {"Info3464633296-1841370", 413957, 9515} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 34, 0, 83, "Title"], Cell[604, 24, 42, 0, 49, "Subtitle"], Cell[649, 26, 222, 6, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[896, 36, 31, 0, 71, "Section"], Cell[930, 38, 404, 7, 47, "Text"], Cell[1337, 47, 138, 3, 29, "Text"], Cell[1478, 52, 405, 11, 29, "Text"], Cell[1886, 65, 56, 1, 47, "Code"], Cell[CellGroupData[{ Cell[1967, 70, 40, 0, 36, "Subsection"], Cell[2010, 72, 185, 4, 29, "Text"], Cell[2198, 78, 332, 13, 31, "Input"], Cell[2533, 93, 291, 11, 30, "Text"], Cell[CellGroupData[{ Cell[2849, 108, 383, 14, 31, "Input"], Cell[3235, 124, 1975, 39, 59, "Output"] }, Open ]], Cell[5225, 166, 130, 3, 30, "Text"], Cell[CellGroupData[{ Cell[5380, 173, 128, 2, 52, "Input"], Cell[5511, 177, 1362, 52, 30, "Output"], Cell[6876, 231, 7911, 161, 47, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[14836, 398, 59, 0, 28, "Subsection"], Cell[14898, 400, 253, 6, 29, "Text"], Cell[15154, 408, 60, 0, 29, "Text"], Cell[CellGroupData[{ Cell[15239, 412, 149, 3, 31, "Input"], Cell[15391, 417, 261, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15689, 432, 307, 11, 31, "Input"], Cell[15999, 445, 289, 10, 30, "Output"] }, Open ]], Cell[16303, 458, 177, 4, 48, "Text"], Cell[CellGroupData[{ Cell[16505, 466, 777, 23, 31, "Input"], Cell[17285, 491, 168, 4, 30, "Output"] }, Open ]], Cell[17468, 498, 577, 17, 48, "Text"], Cell[CellGroupData[{ Cell[18070, 519, 647, 19, 31, "Input"], Cell[18720, 540, 974, 30, 30, "Output"] }, Open ]], Cell[19709, 573, 104, 4, 30, "Text"], Cell[CellGroupData[{ Cell[19838, 581, 112, 2, 31, "Input"], Cell[19953, 585, 18144, 359, 57, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[38146, 950, 91, 2, 28, "Subsection"], Cell[38240, 954, 667, 17, 48, "Text"], Cell[CellGroupData[{ Cell[38932, 975, 361, 12, 31, "Input"], Cell[39296, 989, 245, 8, 30, "Output"] }, Open ]], Cell[39556, 1000, 187, 6, 30, "Text"], Cell[CellGroupData[{ Cell[39768, 1010, 575, 16, 54, "Input"], Cell[40346, 1028, 1018, 30, 33, "Output"] }, Open ]], Cell[41379, 1061, 226, 5, 30, "Text"], Cell[CellGroupData[{ Cell[41630, 1070, 532, 19, 31, "Input"], Cell[42165, 1091, 9367, 331, 107, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51569, 1427, 813, 28, 31, "Input"], Cell[52385, 1457, 1688, 48, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[54122, 1511, 73, 0, 28, "Subsection"], Cell[54198, 1513, 1000, 35, 47, "Text"], Cell[55201, 1550, 350, 11, 30, "Text"], Cell[CellGroupData[{ Cell[55576, 1565, 89, 1, 31, "Input"], Cell[55668, 1568, 264, 5, 30, "Output"] }, Open ]], Cell[55947, 1576, 144, 5, 29, "Text"], Cell[CellGroupData[{ Cell[56116, 1585, 72, 1, 31, "Input"], Cell[56191, 1588, 230, 8, 30, "Output"] }, Open ]], Cell[56436, 1599, 66, 0, 29, "Text"], Cell[CellGroupData[{ Cell[56527, 1603, 200, 6, 31, "Input"], Cell[56730, 1611, 4140, 83, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60907, 1699, 200, 6, 31, "Input"], Cell[61110, 1707, 20032, 398, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81179, 2110, 200, 6, 31, "Input"], Cell[81382, 2118, 4149, 83, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85568, 2206, 99, 2, 31, "Input"], Cell[85670, 2210, 28215, 560, 57, "Output"] }, Open ]], Cell[113900, 2773, 365, 8, 47, "Text"], Cell[114268, 2783, 276, 5, 30, "Text"], Cell[CellGroupData[{ Cell[114569, 2792, 328, 8, 31, "Input"], Cell[114900, 2802, 130, 4, 30, "Output"] }, Open ]], Cell[115045, 2809, 180, 4, 30, "Text"], Cell[CellGroupData[{ Cell[115250, 2817, 451, 12, 31, "Input"], Cell[115704, 2831, 1098, 39, 30, "Output"] }, Open ]], Cell[116817, 2873, 144, 3, 29, "Text"], Cell[CellGroupData[{ Cell[116986, 2880, 802, 23, 31, "Input"], Cell[117791, 2905, 31, 0, 30, "Output"] }, Open ]], Cell[117837, 2908, 62, 1, 31, "Input"], Cell[117902, 2911, 350, 7, 47, "Text"], Cell[CellGroupData[{ Cell[118277, 2922, 175, 5, 31, "Input"], Cell[118455, 2929, 52523, 999, 276, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[171039, 3935, 34, 0, 71, "Section"], Cell[CellGroupData[{ Cell[171098, 3939, 64, 0, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[171187, 3943, 53, 1, 31, "Input"], Cell[171243, 3946, 275, 4, 40, "Print", CellTags->"Info3464633160-5864923"] }, Open ]], Cell[171533, 3953, 194, 6, 29, "Text"], Cell[CellGroupData[{ Cell[171752, 3963, 415, 11, 31, "Input"], Cell[172170, 3976, 5614, 174, 92, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[177833, 4156, 175, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[178033, 4165, 64, 1, 31, "Input"], Cell[178100, 4168, 232, 4, 40, "Print", CellTags->"Info3464633166-1428021"] }, Open ]], Cell[CellGroupData[{ Cell[178369, 4177, 491, 13, 31, "Input"], Cell[178863, 4192, 605, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[179505, 4215, 71, 1, 31, "Input"], Cell[179579, 4218, 239, 4, 40, "Print", CellTags->"Info3464633169-6223284"] }, Open ]], Cell[CellGroupData[{ Cell[179855, 4227, 113, 2, 31, "Input"], Cell[179971, 4231, 16230, 322, 57, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[196250, 4559, 175, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[196450, 4568, 64, 1, 31, "Input"], Cell[196517, 4571, 232, 4, 40, "Print", CellTags->"Info3464633173-1147427"] }, Open ]], Cell[CellGroupData[{ Cell[196786, 4580, 491, 13, 31, "Input"], Cell[197280, 4595, 605, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197922, 4618, 71, 1, 31, "Input"], Cell[197996, 4621, 239, 4, 40, "Print", CellTags->"Info3464633175-3661226"] }, Open ]], Cell[CellGroupData[{ Cell[198272, 4630, 113, 2, 31, "Input"], Cell[198388, 4634, 16290, 322, 57, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[214727, 4962, 175, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[214927, 4971, 64, 1, 31, "Input"], Cell[214994, 4974, 232, 4, 40, "Print", CellTags->"Info3464633179-5988959"] }, Open ]], Cell[CellGroupData[{ Cell[215263, 4983, 491, 13, 31, "Input"], Cell[215757, 4998, 974, 30, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[216768, 5033, 71, 1, 31, "Input"], Cell[216842, 5036, 260, 4, 40, "Print", CellTags->"Info3464633180-5932291"] }, Open ]], Cell[CellGroupData[{ Cell[217139, 5045, 113, 2, 31, "Input"], Cell[217255, 5049, 18144, 359, 57, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[235448, 5414, 73, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[235546, 5418, 62, 1, 31, "Input"], Cell[235611, 5421, 325, 5, 58, "Print", CellTags->"Info3464633247-7140424"] }, Open ]], Cell[235951, 5429, 173, 6, 29, "Text"], Cell[CellGroupData[{ Cell[236149, 5439, 266, 7, 31, "Input"], Cell[236418, 5448, 102521, 1940, 193, "Output"] }, Open ]], Cell[338954, 7391, 204, 4, 29, "Text"], Cell[CellGroupData[{ Cell[339183, 7399, 232, 7, 31, "Input"], Cell[339418, 7408, 923, 30, 33, "Output"] }, Open ]], Cell[340356, 7441, 266, 9, 29, "Text"], Cell[CellGroupData[{ Cell[340647, 7454, 130, 3, 31, "Input"], Cell[340780, 7459, 142, 4, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[340971, 7469, 72, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[341068, 7473, 61, 1, 31, "Input"], Cell[341132, 7476, 196, 3, 40, "Print", CellTags->"Info3464633199-4958319"] }, Open ]], Cell[CellGroupData[{ Cell[341365, 7484, 172, 5, 31, "Input"], Cell[341540, 7491, 31, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[341608, 7496, 209, 6, 31, "Input"], Cell[341820, 7504, 32, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[341901, 7510, 161, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[342087, 7519, 61, 1, 31, "Input"], Cell[342151, 7522, 253, 4, 40, "Print", CellTags->"Info3464633203-6327527"] }, Open ]], Cell[CellGroupData[{ Cell[342441, 7531, 1589, 53, 72, "Input"], Cell[344033, 7586, 2588, 52, 109, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[346658, 7643, 140, 3, 31, "Input"], Cell[346801, 7648, 2584, 53, 89, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[349422, 7706, 60, 1, 31, "Input"], Cell[349485, 7709, 251, 4, 40, "Print", CellTags->"Info3464633207-2485606"] }, Open ]], Cell[CellGroupData[{ Cell[349773, 7718, 139, 3, 31, "Input"], Cell[349915, 7723, 2570, 53, 99, "Output"] }, Open ]], Cell[352500, 7779, 87, 2, 31, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[352624, 7786, 66, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[352715, 7790, 55, 1, 31, "Input"], Cell[352773, 7793, 305, 5, 58, "Print", CellTags->"Info3464633255-5356088"] }, Open ]], Cell[CellGroupData[{ Cell[353115, 7803, 454, 13, 72, "Input"], Cell[353572, 7818, 3097, 63, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[356706, 7886, 174, 4, 31, "Input"], Cell[356883, 7892, 175, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[357095, 7903, 49, 1, 31, "Input"], Cell[357147, 7906, 198, 3, 40, "Print", CellTags->"Info3464633258-9010679"] }, Open ]], Cell[CellGroupData[{ Cell[357382, 7914, 222, 5, 31, "Input"], Cell[357607, 7921, 406, 13, 30, "Output"] }, Open ]], Cell[358028, 7937, 89, 2, 31, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[358154, 7944, 163, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[358342, 7953, 56, 1, 31, "Input"], Cell[358401, 7956, 254, 4, 40, "Print", CellTags->"Info3464633262-7306313"] }, Open ]], Cell[CellGroupData[{ Cell[358692, 7965, 217, 5, 31, "Input"], Cell[358912, 7972, 7448, 259, 107, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[366397, 8236, 59, 1, 31, "Input"], Cell[366459, 8239, 261, 4, 40, "Print", CellTags->"Info3464633265-8469786"] }, Open ]], Cell[CellGroupData[{ Cell[366757, 8248, 284, 6, 52, "Input"], Cell[367044, 8256, 383, 14, 30, "Output"], Cell[367430, 8272, 2470, 57, 47, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[369949, 8335, 73, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[370047, 8339, 62, 1, 31, "Input"], Cell[370112, 8342, 221, 4, 40, "Print", CellTags->"Info3464633268-4844891"] }, Open ]], Cell[CellGroupData[{ Cell[370370, 8351, 454, 13, 72, "Input"], Cell[370827, 8366, 3097, 63, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373961, 8434, 249, 5, 52, "Input"], Cell[374213, 8441, 368, 13, 30, "Output"], Cell[374584, 8456, 1947, 37, 69, "Output"] }, Open ]], Cell[376546, 8496, 89, 2, 31, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[376672, 8503, 82, 1, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[376779, 8508, 69, 1, 31, "Input"], Cell[376851, 8511, 406, 6, 58, "Print", CellTags->"Info3464633274-7079644"] }, Open ]], Cell[CellGroupData[{ Cell[377294, 8522, 800, 24, 31, "Input"], Cell[378097, 8548, 31, 0, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[378165, 8553, 802, 24, 31, "Input"], Cell[378970, 8579, 32, 0, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[379051, 8585, 82, 1, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[379158, 8590, 69, 1, 31, "Input"], Cell[379230, 8593, 439, 7, 58, "Print", CellTags->"Info3464633276-9781741"] }, Open ]], Cell[CellGroupData[{ Cell[379706, 8605, 328, 8, 31, "Input"], Cell[380037, 8615, 117, 3, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[380203, 8624, 152, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[380380, 8633, 54, 1, 31, "Input"], Cell[380437, 8636, 188, 3, 40, "Print", CellTags->"Info3464633279-1172284"] }, Open ]], Cell[CellGroupData[{ Cell[380662, 8644, 174, 4, 31, "Input"], Cell[380839, 8650, 380, 13, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[381256, 8668, 58, 1, 31, "Input"], Cell[381317, 8671, 206, 3, 40, "Print", CellTags->"Info3464633282-8297605"] }, Open ]], Cell[CellGroupData[{ Cell[381560, 8679, 433, 14, 31, "Input"], Cell[381996, 8695, 345, 13, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[382390, 8714, 74, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[382489, 8718, 63, 1, 31, "Input"], Cell[382555, 8721, 275, 4, 40, "Print", CellTags->"Info3464633284-6614619"] }, Open ]], Cell[CellGroupData[{ Cell[382867, 8730, 401, 10, 31, "Input"], Cell[383271, 8742, 844, 31, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[384164, 8779, 60, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[384249, 8783, 49, 1, 31, "Input"], Cell[384301, 8786, 306, 5, 58, "Print", CellTags->"Info3464633286-2727105"] }, Open ]], Cell[CellGroupData[{ Cell[384644, 8796, 476, 13, 52, "Input"], Cell[385123, 8811, 1977, 39, 69, "Output"], Cell[387103, 8852, 51, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[387191, 8858, 627, 21, 31, "Input"], Cell[387821, 8881, 132, 4, 30, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[388002, 8891, 170, 5, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[388197, 8900, 65, 1, 31, "Input"], Cell[388265, 8903, 289, 5, 40, "Print", CellTags->"Info3464633291-7230103"] }, Open ]], Cell[388569, 8911, 223, 6, 29, "Text"], Cell[CellGroupData[{ Cell[388817, 8921, 356, 10, 31, "Input"], Cell[389176, 8933, 9421, 203, 177, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[398634, 9141, 57, 1, 31, "Input"], Cell[398694, 9144, 447, 7, 58, "Print", CellTags->"Info3464633296-1841370"] }, Open ]], Cell[399156, 9154, 442, 12, 47, "Text"], Cell[CellGroupData[{ Cell[399623, 9170, 643, 19, 31, "Input"], Cell[400269, 9191, 10674, 236, 177, "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)