(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 188756, 3895] NotebookOptionsPosition[ 185151, 3829] NotebookOutlinePosition[ 185593, 3846] CellTagsIndexPosition[ 185550, 3843] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Intertwined rings", "Section", CellChangeTimes->{{3.76087042138652*^9, 3.76087045018568*^9}},ExpressionUUID->"9e25fdab-cc5a-40db-965a-\ 9631a191e371"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hexpts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "j"}], "6"], "]"}], ",", "0", ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "j"}], "6"], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "6"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.760870457130621*^9, 3.7608705391879063`*^9}, { 3.760870613786598*^9, 3.7608706239024477`*^9}, {3.7608721039604*^9, 3.7608721102432613`*^9}}, CellLabel-> "In[182]:=",ExpressionUUID->"6f30f064-8bd8-4dee-85e8-f361a436d2a7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", "0", ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", "0", ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.760870551423718*^9, 3.760870626573236*^9, 3.7608721114334927`*^9, 3.760872933295559*^9, 3.7608971017632017`*^9, 3.792919088504539*^9}, CellLabel-> "Out[182]=",ExpressionUUID->"1aee9de8-141f-4056-b3c1-312e9925dc15"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]_", ",", "j_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"hexpts", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], ")"}], RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"hexpts", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], ")"}], RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"hexpts", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", "3"}], "\[RightDoubleBracket]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.760871258426881*^9, 3.7608713625215063`*^9}, { 3.760871448768838*^9, 3.760871523555889*^9}, 3.7608721831899776`*^9, { 3.760872329795014*^9, 3.7608723729523163`*^9}, {3.760872818714045*^9, 3.760872829002934*^9}}, CellLabel-> "In[183]:=",ExpressionUUID->"6de15165-8080-4ea3-871d-9bc11de6e589"], Cell[BoxData[ RowBox[{ RowBox[{"bluering", "[", "\[Rho]_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", RowBox[{"Lighter", "[", "Blue", "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "j", ",", "\[Phi]"}], "]"}], ",", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "j", ",", RowBox[{"\[Phi]", "+", FractionBox["\[Pi]", "3"]}]}], "]"}], ",", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", RowBox[{"j", "+", "1"}], ",", RowBox[{"\[Phi]", "+", FractionBox["\[Pi]", "3"]}]}], "]"}], ",", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", RowBox[{"j", "+", "1"}], ",", "\[Phi]"}], "]"}], ",", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "j", ",", "\[Phi]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", FractionBox[ RowBox[{"5", "\[Pi]"}], "3"], ",", FractionBox["\[Pi]", "3"]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Boxed", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.760871581942687*^9, 3.76087159322994*^9}, { 3.7608716461964207`*^9, 3.760871837022613*^9}, {3.760872385908662*^9, 3.7608723920129538`*^9}, {3.76087284059328*^9, 3.760872885812942*^9}, { 3.76087300066193*^9, 3.760873009886202*^9}, {3.760873571765003*^9, 3.760873600145431*^9}}, CellLabel-> "In[184]:=",ExpressionUUID->"9998d7a6-057d-47c2-af60-4795013790a6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bluering", "[", "1.5", "]"}]], "Input", CellChangeTimes->{{3.760872972781262*^9, 3.760872981374448*^9}}, CellLabel-> "In[185]:=",ExpressionUUID->"a6900626-87b3-47ea-bbe8-22197bbcd3e7"], Cell[BoxData[ Graphics3DBox[ {Opacity[0.7], EdgeForm[{GrayLevel[0], Thickness[Large]}], FaceForm[RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[ NCache[{{2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}}, {{ 2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {2.5, 0., 0}}]], Polygon3DBox[ NCache[{{1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}}, {{ 1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, {1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}}, {{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}}, {{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-2.5, 0., 0}}]], Polygon3DBox[ NCache[{{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}}, {{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, {1., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{1.25, -2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}}, {{1.25, -2.1650635094610964`, 0}, { 2.5, 0., 0}, {2., 0., 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, {1.25, -2.1650635094610964`, 0}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{2., 0., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-2., 0., 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., -1.7320508075688772`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {1., 0., 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 1., -1.7320508075688772`, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, {1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, -0.8660254037844386, 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {0.5, 0., 0}, {0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}}, {{ 0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 0}}]], Polygon3DBox[ NCache[{{0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}}, {{ 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}}, {{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}}, {{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 0}}]], Polygon3DBox[ NCache[{{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}}, {{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.25, -0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}}, {{0.25, -0.4330127018922193, 0}, { 0.5, 0., 0}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {-1., -1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {2., 0., -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, {2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}, { 1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-1., -1.7320508075688772`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, -0.8660254037844386}}]]}}, Boxed->False, ImageSize->500, Lighting->"Neutral"]], "Output", CellChangeTimes->{3.760872982546492*^9, 3.760873017557304*^9, 3.7608971021023417`*^9, 3.792919552483613*^9}, CellLabel-> "Out[185]=",ExpressionUUID->"820ddcce-0501-454b-a924-a88c3ae5bb9f"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"3", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "3", ",", FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "3"]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"2", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "2", ",", FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "3"]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"4", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "4", ",", FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "3"]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"redhex", "[", RowBox[{"0", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", "1"}], ")"}], SqrtBox["3"], RowBox[{"{", RowBox[{ FractionBox[ SqrtBox["3"], "2"], ",", FractionBox["1", "2"], ",", "0"}], "}"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", "1"}], ")"}], RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "2"}], ")"}], "\[Pi]", " "}], "3"], "]"}], ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "2"}], ")"}], "\[Pi]", " "}], "3"], "]"}], ",", "0"}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.76087372706878*^9, 3.760873802454576*^9}, { 3.760873856760799*^9, 3.7608739057118473`*^9}, {3.7608739376269608`*^9, 3.760873970671529*^9}, {3.760874023275591*^9, 3.7608740313029613`*^9}, { 3.7608740727212667`*^9, 3.760874121814953*^9}, {3.760875220087184*^9, 3.76087528444495*^9}, {3.760875342281735*^9, 3.760875517007875*^9}, { 3.760875599216117*^9, 3.7608756359187717`*^9}, {3.760875811449278*^9, 3.760875814222238*^9}, {3.760875966910514*^9, 3.760875971706903*^9}, { 3.760876062886447*^9, 3.760876082023951*^9}, {3.760876545119111*^9, 3.760876547118082*^9}, {3.760876630811001*^9, 3.76087667473779*^9}, 3.760893414498239*^9, {3.760893448257461*^9, 3.760893500578876*^9}, { 3.760898975596065*^9, 3.760899113530581*^9}, {3.760899395807804*^9, 3.760899422138441*^9}, {3.7609005152082777`*^9, 3.760900540639201*^9}, 3.7609005736354218`*^9, {3.792920196920999*^9, 3.7929202201830482`*^9}, { 3.792920296028262*^9, 3.792920305034583*^9}, {3.7929228185810423`*^9, 3.792922882906541*^9}}, CellLabel-> "In[186]:=",ExpressionUUID->"ada6f4ce-5950-4b93-9854-1fe9098f23cd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"bluering", "[", "1.5", "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"redhex", "[", RowBox[{"j", ",", "1.5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.760874153010942*^9, 3.760874318622582*^9}, { 3.760874358457779*^9, 3.7608743603290663`*^9}, {3.7608755302245617`*^9, 3.760875545421502*^9}, {3.760893520017332*^9, 3.7608935625722446`*^9}, { 3.7929229379939423`*^9, 3.792923105179023*^9}, {3.7929232710108013`*^9, 3.792923285228791*^9}}, CellLabel-> "In[193]:=",ExpressionUUID->"c3c06bc5-c18e-4743-819f-5c3738edc84b"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{GrayLevel[0], Thickness[Large]}], FaceForm[ RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[ NCache[{{2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}}, {{ 2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {2.5, 0., 0}}]], Polygon3DBox[ NCache[{{1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}}, {{ 1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, {1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}}, {{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}}, {{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-2.5, 0., 0}}]], Polygon3DBox[ NCache[{{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}}, {{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, {1., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{1.25, -2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}}, {{1.25, -2.1650635094610964`, 0}, { 2.5, 0., 0}, {2., 0., 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, {1.25, -2.1650635094610964`, 0}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{2., 0., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-2., 0., 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., -1.7320508075688772`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {1., 0., 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 1., -1.7320508075688772`, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, {1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, -0.8660254037844386, 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {0.5, 0., 0}, {0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}}, {{ 0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 0}}]], Polygon3DBox[ NCache[{{0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}}, {{ 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}}, {{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}}, {{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 0}}]], Polygon3DBox[ NCache[{{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}}, {{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.25, -0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}}, {{0.25, -0.4330127018922193, 0}, { 0.5, 0., 0}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {-1., -1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {2., 0., -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, {2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}, { 1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-1., -1.7320508075688772`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, -0.8660254037844386}}]]}}, {Opacity[0.6], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[ NCache[{{{2.4999999999999996`, 4.330127018922193, 0.}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {2.4999999999999996`, 4.330127018922193, 0.}}, {{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0., 0}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, {0.5, 0., 0}}, {{ 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}}, {{{2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}}, {{0.5, 0., 0}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, {0.5, 0., 0}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}}]]}}, Boxed->False, ImageSize->500, Lighting->"Neutral", ViewPoint->{0.9971207490052587, -2.1177589430830723`, 2.443531720869377}, ViewVertical->{-0.017898714155083623`, 0.04052969626396873, 0.9990180077217552}]], "Output", CellChangeTimes->{ 3.7608806779530973`*^9, 3.760893565142535*^9, 3.760897113425741*^9, 3.760899123627905*^9, 3.760899429908679*^9, 3.760900583656538*^9, 3.792923076136904*^9, 3.792923108034237*^9, {3.7929232724460287`*^9, 3.792923286828464*^9}}, CellLabel-> "Out[193]=",ExpressionUUID->"bdfa3abe-11de-4386-a955-be4e75232aa2"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tempplus", "[", "\[Rho]_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", SqrtBox["3"], RowBox[{"{", RowBox[{ FractionBox[ SqrtBox["3"], "2"], ",", FractionBox["1", "2"], ",", "0"}], "}"}]}], "+", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], "+", " ", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "2"}], ")"}], "\[Pi]", " "}], "3"], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "2"}], ")"}], "\[Pi]", " "}], "3"], "]"}]}], ",", "0"}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tempminus", "[", "\[Rho]_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", SqrtBox["3"], RowBox[{"{", RowBox[{ FractionBox[ SqrtBox["3"], "2"], ",", FractionBox["1", "2"], ",", "0"}], "}"}]}], "-", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "2"}], ")"}], "\[Pi]", " "}], "3"], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "2"}], ")"}], "\[Pi]", " "}], "3"], "]"}]}], ",", "0"}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.760881601611147*^9, 3.7608816251629467`*^9}, { 3.760881656857956*^9, 3.760881800407756*^9}, {3.760881847668331*^9, 3.760881873285645*^9}, {3.760881944486906*^9, 3.760881965660571*^9}, { 3.7608820413765383`*^9, 3.7608820791621017`*^9}, 3.760882117634656*^9, { 3.760882564446938*^9, 3.7608825870783033`*^9}, {3.760882649919052*^9, 3.760882660292461*^9}, {3.760882927948489*^9, 3.7608830153944473`*^9}, { 3.760883194190824*^9, 3.760883212000979*^9}, {3.760893147293281*^9, 3.760893176672442*^9}, {3.760893607548348*^9, 3.760893611185523*^9}, { 3.760899165400255*^9, 3.760899179883315*^9}, {3.792926503532967*^9, 3.792926610616055*^9}, {3.792926650087541*^9, 3.792926688997642*^9}, { 3.792926756139037*^9, 3.7929268627097054`*^9}, {3.792927648838956*^9, 3.792927757927184*^9}}, CellLabel-> "In[204]:=",ExpressionUUID->"2c2658f5-eba9-41ca-bdc0-282993fdb3be"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"bluering", "[", "1.5", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"redhex", "[", RowBox[{"j", ",", "1.5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"tempplus", "[", "1.5", "]"}], "]"}], ",", RowBox[{"RotationTransform", "[", RowBox[{ FractionBox[ RowBox[{"-", "\[Pi]"}], "3"], ",", RowBox[{ RowBox[{"pt", "[", RowBox[{"1.5", ",", "1", ",", RowBox[{"\[Pi]", "/", "3"}]}], "]"}], "-", RowBox[{"pt", "[", RowBox[{"1.5", ",", "1", ",", "0"}], "]"}]}], ",", RowBox[{"pt", "[", RowBox[{"1.5", ",", "1", ",", "0"}], "]"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"tempminus", "[", "1.5", "]"}], "]"}], ",", RowBox[{"RotationTransform", "[", RowBox[{ FractionBox["\[Pi]", "3"], ",", RowBox[{ RowBox[{"pt", "[", RowBox[{"1.5", ",", "5", ",", RowBox[{"\[Pi]", "/", "3"}]}], "]"}], "-", RowBox[{"pt", "[", RowBox[{"1.5", ",", "5", ",", "0"}], "]"}]}], ",", RowBox[{"pt", "[", RowBox[{"1.5", ",", "5", ",", "0"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", "600"}]}], "]"}]], "Input", CellChangeTimes->{{3.760874153010942*^9, 3.760874318622582*^9}, { 3.760874358457779*^9, 3.7608743603290663`*^9}, {3.7608755302245617`*^9, 3.760875545421502*^9}, {3.7608828742441797`*^9, 3.7608828857530518`*^9}, { 3.760883028796318*^9, 3.760883065340601*^9}, 3.760883549654605*^9, 3.7608837044046087`*^9, {3.760883786680901*^9, 3.760883795831596*^9}, { 3.7608838351322737`*^9, 3.7608838717884703`*^9}, {3.76089318294213*^9, 3.760893184436204*^9}, {3.760893290307774*^9, 3.760893367221121*^9}, { 3.760893879416347*^9, 3.760893890522901*^9}, {3.760897196094448*^9, 3.760897203853838*^9}, {3.792926937577483*^9, 3.792926965592154*^9}, { 3.792927012333426*^9, 3.79292706220824*^9}, {3.7929271012055693`*^9, 3.7929271342848682`*^9}, {3.792927449881598*^9, 3.792927452191497*^9}, 3.792927778277055*^9}, CellLabel-> "In[207]:=",ExpressionUUID->"1d188766-f62e-47b0-80ca-67147ecd4ebb"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{GrayLevel[0], Thickness[Large]}], FaceForm[ RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[ NCache[{{2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}}, {{ 2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {2.5, 0., 0}}]], Polygon3DBox[ NCache[{{1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}}, {{ 1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, {1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}}, {{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}}, {{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-2.5, 0., 0}}]], Polygon3DBox[ NCache[{{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}}, {{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, {1., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{1.25, -2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}}, {{1.25, -2.1650635094610964`, 0}, { 2.5, 0., 0}, {2., 0., 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, {1.25, -2.1650635094610964`, 0}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{2., 0., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-2., 0., 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., -1.7320508075688772`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {1., 0., 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 1., -1.7320508075688772`, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, {1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, -0.8660254037844386, 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {0.5, 0., 0}, {0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}}, {{ 0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 0}}]], Polygon3DBox[ NCache[{{0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}}, {{ 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}}, {{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}}, {{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 0}}]], Polygon3DBox[ NCache[{{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}}, {{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.25, -0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}}, {{0.25, -0.4330127018922193, 0}, { 0.5, 0., 0}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {-1., -1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {2., 0., -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, {2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}, { 1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-1., -1.7320508075688772`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, -0.8660254037844386}}]]}}, {Opacity[0.7], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[ NCache[{{{2.4999999999999996`, 4.330127018922193, 0.}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {2.4999999999999996`, 4.330127018922193, 0.}}, {{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0., 0}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, {0.5, 0., 0}}, {{ 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}}, {{{2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}}, {{0.5, 0., 0}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, {0.5, 0., 0}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}}]], GeometricTransformation3DBox[ Polygon3DBox[{{1.9999999999999996`, 0., 0.8660254037844386}, { 0.9999999999999996, 1.7320508075688772`, 0.8660254037844386}, { 1.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, { 3.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, {5., 1.7320508075688772`, 0.8660254037844386}, {3.9999999999999996`, 0., 0.8660254037844386}, {1.9999999999999996`, 0., 0.8660254037844386}}], {{{ 0.625, -0.21650635094610965`, -0.7499999999999999}, \ {-0.21650635094610968`, 0.8749999999999999, -0.43301270189221924`}, { 0.7499999999999998, 0.43301270189221924`, 0.49999999999999994`}}, { 1.399519052838329, 0.8080127018922192, -1.0669872981077801`}}], GeometricTransformation3DBox[ Polygon3DBox[{{1.9999999999999996`, 0., -0.8660254037844386}, { 0.9999999999999996, 1.7320508075688772`, -0.8660254037844386}, { 1.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, { 3.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, {5., 1.7320508075688772`, -0.8660254037844386}, {3.9999999999999996`, 0., -0.8660254037844386}, {1.9999999999999996`, 0., -0.8660254037844386}}], {{{0.625, -0.21650635094610965`, 0.7499999999999998}, {-0.21650635094610965`, 0.8749999999999999, 0.43301270189221924`}, {-0.7499999999999998, -0.43301270189221924`, 0.49999999999999994`}}, {1.3995190528383288`, 0.8080127018922192, 1.0669872981077801`}}]}}, Boxed->False, ImageSize->600, Lighting->"Neutral", ViewPoint->{1.371314481189361, -2.8822407293872394`, 1.123470058142035}, ViewVertical->{0.06954073952879936, -0.3168522883149658, 0.945922149510919}]], "Output", CellChangeTimes->{ 3.7608828889636917`*^9, {3.7608830382955*^9, 3.760883067914588*^9}, 3.760883219823881*^9, 3.76088355275554*^9, 3.76088370671417*^9, 3.760883812366363*^9, {3.7608838606674747`*^9, 3.76088387457193*^9}, 3.760893156544216*^9, 3.760893193489068*^9, {3.760893360180189*^9, 3.7608933696746607`*^9}, 3.760893620441099*^9, 3.760893892824909*^9, 3.7608971285167427`*^9, 3.760897205254609*^9, 3.760899191792912*^9, 3.760899438609438*^9, 3.7609005937551527`*^9, 3.79292715873393*^9, 3.792927455172587*^9, 3.792927679529007*^9, {3.792927743243133*^9, 3.792927779634995*^9}}, CellLabel-> "Out[207]=",ExpressionUUID->"161fe8c8-388d-449a-9d11-9172fb5c7e0c"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rotplus", "[", "\[Rho]_", "]"}], ":=", RowBox[{"RotationTransform", "[", RowBox[{ FractionBox[ RowBox[{"-", "\[Pi]"}], "3"], ",", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "1", ",", RowBox[{"\[Pi]", "/", "3"}]}], "]"}], "-", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "1", ",", "0"}], "]"}]}], ",", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "1", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rotminus", "[", "\[Rho]_", "]"}], ":=", RowBox[{"RotationTransform", "[", RowBox[{ FractionBox["\[Pi]", "3"], ",", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "5", ",", RowBox[{"\[Pi]", "/", "3"}]}], "]"}], "-", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "5", ",", "0"}], "]"}]}], ",", RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "5", ",", "0"}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7608944011445312`*^9, 3.760894423912067*^9}, { 3.760894600573577*^9, 3.760894648776821*^9}, {3.7608950741312523`*^9, 3.760895122350112*^9}, {3.760895460834343*^9, 3.760895466298176*^9}}, CellLabel-> "In[211]:=",ExpressionUUID->"a96bcf77-e552-4ccf-92d2-75467886bc48"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"rotplus", "[", "\[Rho]", "]"}], "/@", RowBox[{"tempplus", "[", "\[Rho]", "]"}]}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Rho]", ">", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.760894492214579*^9, 3.760894526182721*^9}, { 3.760894699507813*^9, 3.760894721305367*^9}, {3.7608947533269873`*^9, 3.7608948001511793`*^9}}, CellLabel-> "In[213]:=",ExpressionUUID->"e619f0c8-c425-47fd-a39a-1b6d652199fb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["7", "16"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["3", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["7", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["13", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "16"]}], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.760894427586451*^9, {3.760894510219493*^9, 3.760894527571179*^9}, { 3.7608947120746613`*^9, 3.760894723921584*^9}, 3.760894801942634*^9, 3.760895475249423*^9, 3.76089722354558*^9, 3.760899212422449*^9, 3.760899449055718*^9, 3.760900605517909*^9, 3.792928288802143*^9}, CellLabel-> "Out[213]=",ExpressionUUID->"1fbb8b90-8003-4935-ba16-e65034ed839f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"rotminus", "[", "\[Rho]", "]"}], "/@", RowBox[{"tempminus", "[", "\[Rho]", "]"}]}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Rho]", ">", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.760894492214579*^9, 3.760894526182721*^9}, { 3.760894699507813*^9, 3.760894721305367*^9}, {3.7608947533269873`*^9, 3.7608948001511793`*^9}, {3.760895152592719*^9, 3.7608951625011587`*^9}, { 3.760895251301849*^9, 3.760895267214113*^9}}, CellLabel-> "In[221]:=",ExpressionUUID->"35db1347-a671-488d-801f-9dced8ff5b8a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["7", "16"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"4", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["3", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["7", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["13", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "16"]}], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"4", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.760895166260257*^9, 3.760895257917583*^9, 3.760895332729776*^9, 3.760895480410647*^9, 3.760897223815909*^9, 3.7608992187551603`*^9, 3.760899449177256*^9, 3.7609006056587143`*^9, 3.792929078166829*^9}, CellLabel-> "Out[221]=",ExpressionUUID->"26300120-c6ac-4bd5-99cc-998e4d31ff66"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"1", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"rotplus", "[", "\[Rho]", "]"}], "/@", RowBox[{"tempplus", "[", "\[Rho]", "]"}]}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Rho]", ">", "1"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"redhex", "[", RowBox[{"5", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"rotminus", "[", "\[Rho]", "]"}], "/@", RowBox[{"tempminus", "[", "\[Rho]", "]"}]}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Rho]", ">", "1"}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{ 3.792928863148131*^9, 3.7929289075195723`*^9, {3.792928941220152*^9, 3.792928998530939*^9}, 3.7929290688856583`*^9}, CellLabel-> "In[235]:=",ExpressionUUID->"e82fb66e-d534-4d4b-aebc-bae30f2c30a2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"redhex", "[", RowBox[{"1", ",", "\[Rho]"}], "]"}]], "Input", CellChangeTimes->{{3.7929293015249567`*^9, 3.792929312260353*^9}}, CellLabel-> "In[237]:=",ExpressionUUID->"7222fba1-d106-415e-8d11-85ac81b1f636"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["7", "16"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["3", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["7", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["13", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "16"]}], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.792929622479487*^9}, CellLabel-> "Out[237]=",ExpressionUUID->"663e07ad-fe18-40e2-82c4-902ca49ae3b9"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"1", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["7", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["3", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["7", "16"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["13", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "16"]}], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["7", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}], "+", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"redhex", "[", RowBox[{"5", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["7", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["3", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["7", "16"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"4", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "\[Rho]"}], ",", "0", ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["13", "16"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "16"]}], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"4", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["7", "8"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Rho]"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", SqrtBox["3"]}], "-", RowBox[{"6", " ", "\[Rho]"}]}], ")"}]}]}], "}"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.760895788099502*^9, 3.76089587702345*^9}}, CellLabel-> "In[238]:=",ExpressionUUID->"2badc388-de98-4698-9e2e-0a35d272f2db"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", "1.5", "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", RowBox[{"Polygon", "/@", RowBox[{"Table", "[", RowBox[{ RowBox[{"redhex", "[", RowBox[{"k", ",", "1.5"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "5"}], "}"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", "600"}]}], "]"}]], "Input", CellChangeTimes->{{3.760874153010942*^9, 3.760874318622582*^9}, { 3.760874358457779*^9, 3.7608743603290663`*^9}, {3.7608755302245617`*^9, 3.760875545421502*^9}, {3.7608828742441797`*^9, 3.7608828857530518`*^9}, { 3.760883028796318*^9, 3.760883065340601*^9}, 3.760883549654605*^9, 3.7608837044046087`*^9, {3.760883786680901*^9, 3.760883795831596*^9}, { 3.7608838351322737`*^9, 3.7608838717884703`*^9}, {3.76089318294213*^9, 3.760893184436204*^9}, {3.760893290307774*^9, 3.760893367221121*^9}, { 3.760893879416347*^9, 3.760893890522901*^9}, {3.760895972305814*^9, 3.760896081447782*^9}, {3.7608961669168777`*^9, 3.760896170503171*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"dd7f87ef-7770-463e-aaff-d4b87bc48417"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{GrayLevel[0], Thickness[Large]}], FaceForm[ RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[ NCache[{{2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}}, {{ 2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {2.5, 0., 0}}]], Polygon3DBox[ NCache[{{1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}}, {{ 1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, {1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}}, {{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}}, {{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-2.5, 0., 0}}]], Polygon3DBox[ NCache[{{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}}, {{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, {1., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{1.25, -2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}}, {{1.25, -2.1650635094610964`, 0}, { 2.5, 0., 0}, {2., 0., 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, {1.25, -2.1650635094610964`, 0}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{2., 0., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-2., 0., 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., -1.7320508075688772`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {1., 0., 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 1., -1.7320508075688772`, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, {1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, -0.8660254037844386, 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {0.5, 0., 0}, {0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}}, {{ 0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 0}}]], Polygon3DBox[ NCache[{{0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}}, {{ 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}}, {{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}}, {{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 0}}]], Polygon3DBox[ NCache[{{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}}, {{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.25, -0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}}, {{0.25, -0.4330127018922193, 0}, { 0.5, 0., 0}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {-1., -1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {2., 0., -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, {2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}, { 1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-1., -1.7320508075688772`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, -0.8660254037844386}}]]}}, {Opacity[0.7], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2., 0., 0.8660254037844384}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.25, 3.0310889132455348`, 2.3660254037844384`}, { 2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}, {3.5, 0.8660254037844383, 3.8660254037844384`}, { 3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}, {2., 0., 0.8660254037844384}}], Polygon3DBox[ NCache[{{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}}]], Polygon3DBox[{{0.5, 0., 0}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {0.25, -0.4330127018922193, 0}, { 0.5, 0., 0}}], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[{{1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}, {0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}, {1.25, 3.0310889132455348`, -2.3660254037844384`}, {2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}, {3.5, 0.8660254037844385, -3.8660254037844384`}, { 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}, { 1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}}]}}, Boxed->False, ImageSize->600, Lighting->"Neutral", ViewPoint->{1.3, -2.4, 2.}, ViewVertical->{0., 0., 1.}]], "Output", CellChangeTimes->{3.760896083722514*^9, 3.7608961716605673`*^9, 3.760897239525783*^9, 3.760899301475457*^9, 3.760899470136629*^9, 3.760900623190089*^9, 3.7929290132235727`*^9, 3.792929087859004*^9}, CellLabel-> "Out[224]=",ExpressionUUID->"1ad6cf52-3f1f-4cff-ba15-933f88146652"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"redhexpts", "[", "\[Rho]_", "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"redhex", "[", RowBox[{"k", ",", "\[Rho]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"0", ",", "\[Rho]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.760896178083066*^9, 3.760896233370308*^9}, { 3.760896821713538*^9, 3.760896892940283*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"71ed937c-b8ca-402a-b132-6ba959518621"], Cell[BoxData[ RowBox[{ RowBox[{"redring", "[", "\[Rho]_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Pink", "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"redhexpts", "[", "\[Rho]", "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"redhexpts", "[", "\[Rho]", "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "2"}], ",", RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"redhexpts", "[", "\[Rho]", "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "2"}], ",", RowBox[{"k", "+", "2"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"redhexpts", "[", "\[Rho]", "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"k", "+", "2"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"redhexpts", "[", "\[Rho]", "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Boxed", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.760896286462637*^9, 3.760896465921302*^9}, { 3.760896518158939*^9, 3.760896529986637*^9}, 3.760896770444302*^9, { 3.7608973008893547`*^9, 3.760897337617834*^9}, {3.760900884498304*^9, 3.760900886833837*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"d843ef86-ba49-46e1-ab18-62ccbd8c69fc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"redring", "[", "1.5", "]"}]], "Input", CellChangeTimes->{{3.7608966734764013`*^9, 3.760896679808908*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"71829684-3e2b-4c3b-b4e0-de1028e75e50"], Cell[BoxData[ Graphics3DBox[ {Opacity[0.7], EdgeForm[{GrayLevel[0], Thickness[Large]}], FaceForm[ RGBColor[1, 0.5, 0.5]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0}, {3.5, 0.8660254037844386, 3.8660254037844384`}, {2.5, 2.598076211353316, 3.8660254037844384`}, { 5., 4.330127018922193, 0}, {6.25, 2.1650635094610964`, 0}}], Polygon3DBox[{{5., 4.330127018922193, 0}, {2.5, 2.598076211353316, 3.8660254037844384`}, {1.25, 3.031088913245535, 2.3660254037844384`}, { 2.5, 4.330127018922193, 0}, {5., 4.330127018922193, 0}}], Polygon3DBox[ NCache[{{2.5, 4.330127018922193, 0}, {1.25, 3.031088913245535, 2.3660254037844384`}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 4.330127018922193, 0}}, {{ 2.5, 4.330127018922193, 0}, {1.25, 3.031088913245535, 2.3660254037844384`}, {1., 1.7320508075688772`, 0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 4.330127018922193, 0}}]], Polygon3DBox[ NCache[{{1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[1, 2] 3^Rational[1, 2]}, {2.5, 0, 0}, { 1.25, 2.1650635094610964`, 0}}, {{1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, { 2., 0, 0.8660254037844386}, {2.5, 0, 0}, { 1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{2.5, 0, 0}, {2., 0, Rational[1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, {5., 0, 0}, { 2.5, 0, 0}}, {{2.5, 0, 0}, {2., 0, 0.8660254037844386}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, {5., 0, 0}, { 2.5, 0, 0}}]], Polygon3DBox[{{5., 0, 0}, {3.25, -0.4330127018922193, 2.3660254037844384`}, {3.5, 0.8660254037844386, 3.8660254037844384`}, { 6.25, 2.1650635094610964`, 0}, {5., 0, 0}}]}, { Polygon3DBox[ NCache[{{3.5, 0.8660254037844386, 3.8660254037844384`}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {2.5, 2.598076211353316, 3.8660254037844384`}, {3.5, 0.8660254037844386, 3.8660254037844384`}}, {{3.5, 0.8660254037844386, 3.8660254037844384`}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0, 0.8660254037844386}, {2.5, 2.598076211353316, 3.8660254037844384`}, {3.5, 0.8660254037844386, 3.8660254037844384`}}]], Polygon3DBox[ NCache[{{2.5, 2.598076211353316, 3.8660254037844384`}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {1.25, 3.031088913245535, 2.3660254037844384`}, {2.5, 2.598076211353316, 3.8660254037844384`}}, {{2.5, 2.598076211353316, 3.8660254037844384`}, {-1., 0, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {1.25, 3.031088913245535, 2.3660254037844384`}, {2.5, 2.598076211353316, 3.8660254037844384`}}]], Polygon3DBox[ NCache[{{1.25, 3.031088913245535, 2.3660254037844384`}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {1.25, 3.031088913245535, 2.3660254037844384`}}, {{1.25, 3.031088913245535, 2.3660254037844384`}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, {1.25, 3.031088913245535, 2.3660254037844384`}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0, 0.8660254037844386}, { 2., 0, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{2., 0, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, { 2., 0, Rational[1, 2] 3^Rational[1, 2]}}, {{ 2., 0, 0.8660254037844386}, {1., 0, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, { 2., 0, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{3.25, -0.4330127018922193, 2.3660254037844384`}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {3.5, 0.8660254037844386, 3.8660254037844384`}, { 3.25, -0.4330127018922193, 2.3660254037844384`}}, {{ 3.25, -0.4330127018922193, 2.3660254037844384`}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 3.5, 0.8660254037844386, 3.8660254037844384`}, { 3.25, -0.4330127018922193, 2.3660254037844384`}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0, 0}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0, 0}, {-1., 0, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 0, 0.8660254037844386}, {-0.5, 0, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, 0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0, 0}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, 0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {0.5, 0, 0}, { 1., 0, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0, Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}}, {{ 1., 0, 0.8660254037844386}, {0.5, 0, 0}, { 0.25, -0.4330127018922193, 0}, {0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, 0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0, 0}, {-0.25, -0.4330127018922193, 0}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0, -0.8660254037844386}, {-0.5, 0, 0}, {-0.25, -0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.5, 0, 0}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0, 0}}, {{-0.5, 0, 0}, {-1., 0, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0, 0}}]], Polygon3DBox[ NCache[{{-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}}, {{-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {0.5, 0, 0}, { 0.25, 0.4330127018922193, 0}}, {{0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 1., 0, -0.8660254037844386}, {0.5, 0, 0}, { 0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.5, 0, 0}, {1., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {0.5, 0, 0}}, {{0.5, 0, 0}, { 1., 0, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {0.5, 0, 0}}]], Polygon3DBox[ NCache[{{0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}}, {{0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 3.5, 0.8660254037844386, -3.8660254037844384`}, {2.5, 2.598076211353316, -3.8660254037844384`}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {3.5, 0.8660254037844386, -3.8660254037844384`}, {2.5, 2.598076211353316, -3.8660254037844384`}, {-1., 0, -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 2.598076211353316, -3.8660254037844384`}, {1.25, 3.031088913245535, -2.3660254037844384`}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0, -0.8660254037844386}, {2.5, 2.598076211353316, -3.8660254037844384`}, {1.25, 3.031088913245535, -2.3660254037844384`}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 3.031088913245535, -2.3660254037844384`}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {1.25, 3.031088913245535, -2.3660254037844384`}, {1., 1.7320508075688772`, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 2., 0, -0.8660254037844386}, {1., 0, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1., 0, -0.8660254037844386}, {2., 0, -0.8660254037844386}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., 0, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, {3.5, 0.8660254037844386, -3.8660254037844384`}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, {3.5, 0.8660254037844386, -3.8660254037844384`}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {0.5, -0.8660254037844386, -0.8660254037844386}}]]}, { Polygon3DBox[{{3.5, 0.8660254037844386, -3.8660254037844384`}, { 6.25, 2.1650635094610964`, 0}, {5., 4.330127018922193, 0}, {2.5, 2.598076211353316, -3.8660254037844384`}, {3.5, 0.8660254037844386, -3.8660254037844384`}}], Polygon3DBox[{{2.5, 2.598076211353316, -3.8660254037844384`}, { 5., 4.330127018922193, 0}, {2.5, 4.330127018922193, 0}, {1.25, 3.031088913245535, -2.3660254037844384`}, {2.5, 2.598076211353316, -3.8660254037844384`}}], Polygon3DBox[ NCache[{{1.25, 3.031088913245535, -2.3660254037844384`}, { 2.5, 4.330127018922193, 0}, {1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {1.25, 3.031088913245535, -2.3660254037844384`}}, {{1.25, 3.031088913245535, -2.3660254037844384`}, { 2.5, 4.330127018922193, 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, -0.8660254037844386}, {1.25, 3.031088913245535, -2.3660254037844384`}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0, 0}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0, 0}, { 2., 0, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{2., 0, Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 0, 0}, { 5., 0, 0}, {3.25, -0.4330127018922193, -2.3660254037844384`}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 2., 0, -0.8660254037844386}, {2.5, 0, 0}, {5., 0, 0}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, { 2., 0, -0.8660254037844386}}]], Polygon3DBox[{{3.25, -0.4330127018922193, -2.3660254037844384`}, { 5., 0, 0}, {6.25, 2.1650635094610964`, 0}, {3.5, 0.8660254037844386, -3.8660254037844384`}, { 3.25, -0.4330127018922193, -2.3660254037844384`}}]}}, Boxed->False, ImageSize->500, Lighting->"Neutral", ViewPoint->{2.046173754664829, -2.6090159673029194`, 0.6754321935466574}, ViewVertical->{0.510059521215731, -0.25050613137787037`, 0.8619318571584528}]], "Output", CellChangeTimes->{3.7608966815190277`*^9, 3.760896780311822*^9, 3.7608972681982603`*^9, 3.7608973491838903`*^9, 3.760899334671501*^9, 3.760899505570404*^9, 3.760900634808509*^9, 3.760900895986158*^9}, CellLabel->"Out[93]=",ExpressionUUID->"eb935551-6a86-4340-97f6-bc25c0f738df"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", "1.5", "]"}], ",", RowBox[{"redring", "[", "1.5", "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}]], "Input", CellChangeTimes->{{3.760900710155808*^9, 3.760900794001739*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"9ecce986-903d-456e-a7dd-eaed6ce53b18"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{GrayLevel[0], Thickness[Large]}], FaceForm[ RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[ NCache[{{2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}}, {{ 2.5, 0., 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {2.5, 0., 0}}]], Polygon3DBox[ NCache[{{1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}}, {{ 1.25, 2.1650635094610964`, 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, {1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}}, {{-1.25, 2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}}, {{-2.5, 0., 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-2.5, 0., 0}}]], Polygon3DBox[ NCache[{{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}}, {{-1.25, -2.1650635094610964`, 0}, { 1.25, -2.1650635094610964`, 0}, {1., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{1.25, -2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}}, {{1.25, -2.1650635094610964`, 0}, { 2.5, 0., 0}, {2., 0., 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, {1.25, -2.1650635094610964`, 0}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{2., 0., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-2., 0., 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., -1.7320508075688772`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}, {1., 0., 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 1., -1.7320508075688772`, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{1., 0., 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, {1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 0., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, -0.8660254037844386, 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {0.5, 0., 0}, {0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {0.5, 0., 0}}, {{ 0.5, 0., 0}, {0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 0}}]], Polygon3DBox[ NCache[{{0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}}, {{ 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}}, {{-0.25, 0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0., 0}}, {{-0.5, 0., 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 0}}]], Polygon3DBox[ NCache[{{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}}, {{-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.25, -0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}}, {{0.25, -0.4330127018922193, 0}, { 0.5, 0., 0}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {-1., -1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {2., 0., -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{2., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}, {2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, 2.1650635094610964`, 0}, { 1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 1.7320508075688772`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-1.25, 2.1650635094610964`, 0}, {-1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}, {-2., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-1., -1.7320508075688772`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1., -1.7320508075688772`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}, { 1., -1.7320508075688772`, -0.8660254037844386}}]]}}, {Opacity[0.7], EdgeForm[{GrayLevel[0], Thickness[Large]}], FaceForm[ RGBColor[1, 0.5, 0.5]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0}, {3.5, 0.8660254037844386, 3.8660254037844384`}, {2.5, 2.598076211353316, 3.8660254037844384`}, { 5., 4.330127018922193, 0}, {6.25, 2.1650635094610964`, 0}}], Polygon3DBox[{{5., 4.330127018922193, 0}, {2.5, 2.598076211353316, 3.8660254037844384`}, {1.25, 3.031088913245535, 2.3660254037844384`}, { 2.5, 4.330127018922193, 0}, {5., 4.330127018922193, 0}}], Polygon3DBox[ NCache[{{2.5, 4.330127018922193, 0}, {1.25, 3.031088913245535, 2.3660254037844384`}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 4.330127018922193, 0}}, {{ 2.5, 4.330127018922193, 0}, {1.25, 3.031088913245535, 2.3660254037844384`}, {1., 1.7320508075688772`, 0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 4.330127018922193, 0}}]], Polygon3DBox[ NCache[{{1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[1, 2] 3^Rational[1, 2]}, {2.5, 0, 0}, { 1.25, 2.1650635094610964`, 0}}, {{1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, { 2., 0, 0.8660254037844386}, {2.5, 0, 0}, { 1.25, 2.1650635094610964`, 0}}]], Polygon3DBox[ NCache[{{2.5, 0, 0}, {2., 0, Rational[1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, {5., 0, 0}, { 2.5, 0, 0}}, {{2.5, 0, 0}, {2., 0, 0.8660254037844386}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, {5., 0, 0}, { 2.5, 0, 0}}]], Polygon3DBox[{{5., 0, 0}, {3.25, -0.4330127018922193, 2.3660254037844384`}, {3.5, 0.8660254037844386, 3.8660254037844384`}, { 6.25, 2.1650635094610964`, 0}, {5., 0, 0}}]}, { Polygon3DBox[ NCache[{{3.5, 0.8660254037844386, 3.8660254037844384`}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {2.5, 2.598076211353316, 3.8660254037844384`}, {3.5, 0.8660254037844386, 3.8660254037844384`}}, {{3.5, 0.8660254037844386, 3.8660254037844384`}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0, 0.8660254037844386}, {2.5, 2.598076211353316, 3.8660254037844384`}, {3.5, 0.8660254037844386, 3.8660254037844384`}}]], Polygon3DBox[ NCache[{{2.5, 2.598076211353316, 3.8660254037844384`}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {1.25, 3.031088913245535, 2.3660254037844384`}, { 2.5, 2.598076211353316, 3.8660254037844384`}}, {{2.5, 2.598076211353316, 3.8660254037844384`}, {-1., 0, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {1.25, 3.031088913245535, 2.3660254037844384`}, {2.5, 2.598076211353316, 3.8660254037844384`}}]], Polygon3DBox[ NCache[{{1.25, 3.031088913245535, 2.3660254037844384`}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, {1.25, 3.031088913245535, 2.3660254037844384`}}, {{1.25, 3.031088913245535, 2.3660254037844384`}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, {1.25, 3.031088913245535, 2.3660254037844384`}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0, 0.8660254037844386}, { 2., 0, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{2., 0, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, { 2., 0, Rational[1, 2] 3^Rational[1, 2]}}, {{ 2., 0, 0.8660254037844386}, {1., 0, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 3.25, -0.4330127018922193, 2.3660254037844384`}, { 2., 0, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{3.25, -0.4330127018922193, 2.3660254037844384`}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {3.5, 0.8660254037844386, 3.8660254037844384`}, { 3.25, -0.4330127018922193, 2.3660254037844384`}}, {{ 3.25, -0.4330127018922193, 2.3660254037844384`}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 3.5, 0.8660254037844386, 3.8660254037844384`}, { 3.25, -0.4330127018922193, 2.3660254037844384`}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0, 0}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0, 0}, {-1., 0, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[1, 2] 3^Rational[1, 2]}}, {{-1., 0, 0.8660254037844386}, {-0.5, 0, 0}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {-1., 0, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, 0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, { 0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0, 0}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, 0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {0.5, 0, 0}, { 1., 0, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0, Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0, 0}, { 0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[1, 2] 3^Rational[1, 2]}}, {{ 1., 0, 0.8660254037844386}, {0.5, 0, 0}, { 0.25, -0.4330127018922193, 0}, {0.5, -0.8660254037844386, 0.8660254037844386}, {1., 0, 0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, 0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}}]]}, { Polygon3DBox[ NCache[{{-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0, 0}, {-0.25, -0.4330127018922193, 0}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0, -0.8660254037844386}, {-0.5, 0, 0}, {-0.25, -0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{-0.5, 0, 0}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0, 0}}, {{-0.5, 0, 0}, {-1., 0, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 0}, {-0.5, 0, 0}}]], Polygon3DBox[ NCache[{{-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}}, {{-0.25, 0.4330127018922193, 0}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 0.25, 0.4330127018922193, 0}, {-0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.25, 0.4330127018922193, 0}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {0.5, 0, 0}, { 0.25, 0.4330127018922193, 0}}, {{0.25, 0.4330127018922193, 0}, {0.5, 0.8660254037844386, -0.8660254037844386}, { 1., 0, -0.8660254037844386}, {0.5, 0, 0}, { 0.25, 0.4330127018922193, 0}}]], Polygon3DBox[ NCache[{{0.5, 0, 0}, {1., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.25, -0.4330127018922193, 0}, {0.5, 0, 0}}, {{0.5, 0, 0}, { 1., 0, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 0}, {0.5, 0, 0}}]], Polygon3DBox[ NCache[{{0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}}, {{0.25, -0.4330127018922193, 0}, { 0.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, { 0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 3.5, 0.8660254037844386, -3.8660254037844384`}, {2.5, 2.598076211353316, -3.8660254037844384`}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {3.5, 0.8660254037844386, -3.8660254037844384`}, {2.5, 2.598076211353316, -3.8660254037844384`}, {-1., 0, -0.8660254037844386}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0, Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 2.598076211353316, -3.8660254037844384`}, {1.25, 3.031088913245535, -2.3660254037844384`}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-1., 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0, -0.8660254037844386}, {2.5, 2.598076211353316, -3.8660254037844384`}, {1.25, 3.031088913245535, -2.3660254037844384`}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 0, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 3.031088913245535, -2.3660254037844384`}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {1.25, 3.031088913245535, -2.3660254037844384`}, {1., 1.7320508075688772`, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 2., 0, -0.8660254037844386}, {1., 0, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1., 0, -0.8660254037844386}, {2., 0, -0.8660254037844386}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., 0, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, {3.5, 0.8660254037844386, -3.8660254037844384`}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, {3.5, 0.8660254037844386, -3.8660254037844384`}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}, {0.5, -0.8660254037844386, -0.8660254037844386}}]]}, { Polygon3DBox[{{3.5, 0.8660254037844386, -3.8660254037844384`}, { 6.25, 2.1650635094610964`, 0}, {5., 4.330127018922193, 0}, {2.5, 2.598076211353316, -3.8660254037844384`}, {3.5, 0.8660254037844386, -3.8660254037844384`}}], Polygon3DBox[{{2.5, 2.598076211353316, -3.8660254037844384`}, { 5., 4.330127018922193, 0}, {2.5, 4.330127018922193, 0}, {1.25, 3.031088913245535, -2.3660254037844384`}, {2.5, 2.598076211353316, -3.8660254037844384`}}], Polygon3DBox[ NCache[{{1.25, 3.031088913245535, -2.3660254037844384`}, { 2.5, 4.330127018922193, 0}, {1.25, 2.1650635094610964`, 0}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {1.25, 3.031088913245535, -2.3660254037844384`}}, {{1.25, 3.031088913245535, -2.3660254037844384`}, { 2.5, 4.330127018922193, 0}, {1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, -0.8660254037844386}, {1.25, 3.031088913245535, -2.3660254037844384`}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0, 0}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0, 0}, { 2., 0, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{2., 0, Rational[-1, 2] 3^Rational[1, 2]}, {2.5, 0, 0}, { 5., 0, 0}, {3.25, -0.4330127018922193, -2.3660254037844384`}, { 2., 0, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 2., 0, -0.8660254037844386}, {2.5, 0, 0}, {5., 0, 0}, { 3.25, -0.4330127018922193, -2.3660254037844384`}, { 2., 0, -0.8660254037844386}}]], Polygon3DBox[{{3.25, -0.4330127018922193, -2.3660254037844384`}, { 5., 0, 0}, {6.25, 2.1650635094610964`, 0}, {3.5, 0.8660254037844386, -3.8660254037844384`}, { 3.25, -0.4330127018922193, -2.3660254037844384`}}]}}}, Boxed->False, ImageSize->800, Lighting->"Neutral", ViewPoint->{0.4350405511392534, -2.865213244559419, 1.7467950028740467`}, ViewVertical->{0.16017710754030157`, -0.0991481187176878, 1.1139322735876436`}]], "Output", CellChangeTimes->{3.760900752413851*^9, 3.760900798097293*^9, 3.760900904925757*^9}, CellLabel->"Out[94]=",ExpressionUUID->"bb2cc4d8-7f81-4199-9bfa-036b4486dd81"] }, Open ]] }, Open ]] }, WindowSize->{2607, 2115}, WindowMargins->{{-197, Automatic}, {995, Automatic}}, Magnification:>2. Inherited, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 160, 3, 138, "Section",ExpressionUUID->"9e25fdab-cc5a-40db-965a-9631a191e371"], Cell[CellGroupData[{ Cell[765, 29, 679, 18, 135, "Input",ExpressionUUID->"6f30f064-8bd8-4dee-85e8-f361a436d2a7"], Cell[1447, 49, 1148, 38, 131, "Output",ExpressionUUID->"1aee9de8-141f-4056-b3c1-312e9925dc15"] }, Open ]], Cell[2610, 90, 1159, 31, 103, "Input",ExpressionUUID->"6de15165-8080-4ea3-871d-9bc11de6e589"], Cell[3772, 123, 2225, 53, 372, "Input",ExpressionUUID->"9998d7a6-057d-47c2-af60-4795013790a6"], Cell[CellGroupData[{ Cell[6022, 180, 212, 4, 103, "Input",ExpressionUUID->"a6900626-87b3-47ea-bbe8-22197bbcd3e7"], Cell[6237, 186, 18809, 333, 839, "Output",ExpressionUUID->"820ddcce-0501-454b-a924-a88c3ae5bb9f"] }, Open ]], Cell[25061, 522, 3359, 90, 503, "Input",ExpressionUUID->"ada6f4ce-5950-4b93-9854-1fe9098f23cd"], Cell[CellGroupData[{ Cell[28445, 616, 1031, 25, 103, "Input",ExpressionUUID->"c3c06bc5-c18e-4743-819f-5c3738edc84b"], Cell[29479, 643, 22084, 386, 829, "Output",ExpressionUUID->"bdfa3abe-11de-4386-a955-be4e75232aa2"] }, Open ]], Cell[51578, 1032, 3346, 95, 276, "Input",ExpressionUUID->"2c2658f5-eba9-41ca-bdc0-282993fdb3be"], Cell[CellGroupData[{ Cell[54949, 1131, 2990, 66, 407, "Input",ExpressionUUID->"1d188766-f62e-47b0-80ca-67147ecd4ebb"], Cell[57942, 1199, 23958, 415, 1236, "Output",ExpressionUUID->"161fe8c8-388d-449a-9d11-9172fb5c7e0c"] }, Open ]], Cell[81915, 1617, 1318, 34, 239, "Input",ExpressionUUID->"a96bcf77-e552-4ccf-92d2-75467886bc48"], Cell[CellGroupData[{ Cell[83258, 1655, 544, 13, 103, "Input",ExpressionUUID->"e619f0c8-c425-47fd-a39a-1b6d652199fb"], Cell[83805, 1670, 3505, 117, 206, "Output",ExpressionUUID->"1fbb8b90-8003-4935-ba16-e65034ed839f"] }, Open ]], Cell[CellGroupData[{ Cell[87347, 1792, 643, 14, 103, "Input",ExpressionUUID->"35db1347-a671-488d-801f-9dced8ff5b8a"], Cell[87993, 1808, 3597, 123, 206, "Output",ExpressionUUID->"26300120-c6ac-4bd5-99cc-998e4d31ff66"] }, Open ]], Cell[91605, 1934, 1054, 29, 186, "Input",ExpressionUUID->"e82fb66e-d534-4d4b-aebc-bae30f2c30a2"], Cell[CellGroupData[{ Cell[92684, 1967, 238, 5, 103, "Input",ExpressionUUID->"7222fba1-d106-415e-8d11-85ac81b1f636"], Cell[92925, 1974, 3243, 113, 206, "Output",ExpressionUUID->"663e07ad-fe18-40e2-82c4-902ca49ae3b9"] }, Open ]], Cell[96183, 2090, 7963, 267, 580, "Input",ExpressionUUID->"2badc388-de98-4698-9e2e-0a35d272f2db"], Cell[CellGroupData[{ Cell[104171, 2361, 1438, 30, 145, "Input",ExpressionUUID->"dd7f87ef-7770-463e-aaff-d4b87bc48417"], Cell[105612, 2393, 22344, 392, 1313, "Output",ExpressionUUID->"1ad6cf52-3f1f-4cff-ba15-933f88146652"] }, Open ]], Cell[127971, 2788, 632, 16, 81, "Input",ExpressionUUID->"71ed937c-b8ca-402a-b132-6ba959518621"], Cell[128606, 2806, 2479, 56, 328, "Input",ExpressionUUID->"d843ef86-ba49-46e1-ab18-62ccbd8c69fc"], Cell[CellGroupData[{ Cell[131110, 2866, 209, 3, 81, "Input",ExpressionUUID->"71829684-3e2b-4c3b-b4e0-de1028e75e50"], Cell[131322, 2871, 17119, 302, 988, "Output",ExpressionUUID->"eb935551-6a86-4340-97f6-bc25c0f738df"] }, Open ]], Cell[CellGroupData[{ Cell[148478, 3178, 435, 10, 123, "Input",ExpressionUUID->"9ecce986-903d-456e-a7dd-eaed6ce53b18"], Cell[148916, 3190, 36207, 635, 1665, "Output",ExpressionUUID->"bb2cc4d8-7f81-4199-9bfa-036b4486dd81"] }, Open ]] }, Open ]] } ] *)