(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 466115, 8832] NotebookOptionsPosition[ 459008, 8708] NotebookOutlinePosition[ 459677, 8732] CellTagsIndexPosition[ 459634, 8729] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Scientific Programming 8", "Title", CellChangeTimes->{{3.724943992364118*^9, 3.724944007146431*^9}, 3.725524593957123*^9, 3.726336972840088*^9, {3.821347032422962*^9, 3.8213470388273163`*^9}, 3.821955106714554*^9, 3.8225584238953733`*^9, { 3.822913868369982*^9, 3.822913869025544*^9}, 3.8233401052764874`*^9, 3.824140544084044*^9},ExpressionUUID->"8df8a7c4-bf6b-4c9f-883f-\ 882cc5d43aed"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", " ", RowBox[{"Background", " ", "\[Rule]", " ", "LightBlue"}], ",", RowBox[{"CellBracketOptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "Blue"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"20", ",", "20"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "3.5"}]}], "}"}]}], ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.8203427063672333`*^9, 3.820342710366617*^9}, { 3.820342935130333*^9, 3.820342954631484*^9}, {3.8203429969742928`*^9, 3.820343001387989*^9}, {3.820343450595797*^9, 3.8203434962099524`*^9}, { 3.82133799284402*^9, 3.821337995589003*^9}, 3.821338037042634*^9, { 3.821338104274653*^9, 3.821338118749104*^9}, 3.8213382124094257`*^9, { 3.821338261882592*^9, 3.821338269905648*^9}, 3.821338306335579*^9, { 3.821339170488145*^9, 3.821339195906999*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"0a70b776-ffe3-4fd9-a3a3-60ad8c41dd23"] }, Open ]], Cell["Intertwined rings", "Title", CellChangeTimes->{{3.76087042138652*^9, 3.76087045018568*^9}},ExpressionUUID->"0ac544ff-126c-49c7-91c8-\ a88636f4dbd4"], 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}, CellLabel->"Out[4]=",ExpressionUUID->"9b5119f4-06ce-47ba-85b3-e1a4c2f2092f"], 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->"7699e6c9-884e-4aed-bdf1-615e13dc8b95"], 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->{799.7960211187576, 795.2154808502405}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{0.42108574912445923`, -2.925634060663331, 1.6472255871527988`}, ViewVertical->{0.1367065908924036, -0.1291303462568607, 0.9821591834739215}]], "Output", CellChangeTimes->{3.760900752413851*^9, 3.760900798097293*^9, 3.760900904925757*^9}, CellLabel->"Out[94]=",ExpressionUUID->"b2b9ae9d-f5a8-47bc-ba05-2d9aa18d7bea"], 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[2]:=",ExpressionUUID->"626d0efc-74df-4dbb-9844-87fa96364395"], 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.824372731823813*^9}, CellLabel->"Out[2]=",ExpressionUUID->"ba593b26-b3c0-41ad-98a7-b06ec743e8ac"] }, 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[3]:=",ExpressionUUID->"5f19a68c-2fca-4a65-9881-251849f127bd"], Cell[BoxData[ RowBox[{ RowBox[{"bluering", "[", RowBox[{"\[Rho]_", ",", "color_", ",", "opac_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Opacity", "[", "opac", "]"}], ",", RowBox[{"FaceForm", "[", "color", "]"}], ",", "\[IndentingNewLine]", 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[{"{", 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}, {3.824289659588913*^9, 3.8242897573713827`*^9}, 3.824289897090344*^9, {3.824290012645094*^9, 3.8242900721351967`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"d8bb42f2-16fb-4148-919c-4535a4c1f5d5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.7"}], "]"}]], "Input", CellChangeTimes->{{3.760872972781262*^9, 3.760872981374448*^9}, { 3.8242897781843233`*^9, 3.824289801731627*^9}, {3.824290083458481*^9, 3.824290100423299*^9}, 3.824290145027931*^9}, CellLabel->"In[5]:=",ExpressionUUID->"a649eec0-119e-4954-b2d6-ac943add1500"], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, Boxed->False, ImageSize->500, Lighting->"Neutral"]], "Output", CellChangeTimes->{3.8243733635419693`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"5678a6ac-2192-4d14-af7b-f3366aabdb7c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"bluering", "[", RowBox[{"\[Rho]_", ",", "color_", ",", "opac_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Darker", "[", RowBox[{"color", ",", "0.5"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Opacity", "[", "opac", "]"}], ",", RowBox[{"FaceForm", "[", "color", "]"}], ",", "\[IndentingNewLine]", 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[{"{", 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}, {3.824289659588913*^9, 3.8242897573713827`*^9}, 3.824289897090344*^9, {3.824290012645094*^9, 3.8242900721351967`*^9}, { 3.824373406846977*^9, 3.824373414477663*^9}, {3.824373491480225*^9, 3.824373518241869*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"80120bd0-5f3d-47d6-b9f7-e9b5505925c2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.7"}], "]"}]], "Input", CellChangeTimes->{{3.760872972781262*^9, 3.760872981374448*^9}, { 3.8242897781843233`*^9, 3.824289801731627*^9}, {3.824290083458481*^9, 3.824290100423299*^9}, 3.824290145027931*^9}, CellLabel->"In[11]:=",ExpressionUUID->"53b224ae-1b7e-4a83-96b8-3f01c072d076"], Cell[BoxData[ Graphics3DBox[ {Opacity[0.7], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, Boxed->False, ImageSize->500, Lighting->"Neutral"]], "Output", CellChangeTimes->{ 3.8243734511709757`*^9, {3.824373506436139*^9, 3.824373527828621*^9}}, CellLabel->"Out[11]=",ExpressionUUID->"1ac19c42-5d53-492d-a166-003f26ddd6a6"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"3", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "3", ",", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"j", " ", "+", "2"}], ")"}]}], "\[Pi]"}], "3"]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"2", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "2", ",", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"j", " ", "+", "2"}], ")"}]}], " ", "\[Pi]"}], "3"]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"4", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{"\[Rho]", ",", "4", ",", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"j", " ", "+", "2"}], ")"}]}], "\[Pi]"}], "3"]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "\[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[{"(", RowBox[{"\[Rho]", "+", "1"}], ")"}], RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "j"}], "6"], "]"}], ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "j"}], "6"], "]"}], ",", "0"}], "}"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "5"}], "}"}]}], "]"}]}]}], "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.824373781703092*^9, 3.8243737930365887`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"2ff281dd-5075-444f-93cc-242b132f2758"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.7"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"redhex", "[", RowBox[{"0", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"2", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"3", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"4", ",", "1.5"}], "]"}]}], "}"}], "]"}]}], " ", "}"}], "]"}]}], "}"}], "]"}]], "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.824290701395134*^9, 3.82429073274063*^9}, {3.824373899857973*^9, 3.824373912061639*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"04122df6-3e6e-4220-87df-47f2a438ab5d"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.7], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[ NCache[{{{6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 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.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]}}}, {{{ 6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, 0.8660254037844386}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}}, {{-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.8660254037844386, -0.8660254037844386}}}]]}}, Boxed->False, ImageSize->500, Lighting->"Neutral"]], "Output", CellChangeTimes->{3.824373987066145*^9}, CellLabel->"Out[16]=",ExpressionUUID->"c4723baf-3246-4df5-997b-aea9ce433ddc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.3"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"redhex", "[", RowBox[{"0", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"2", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"3", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"4", ",", "1.5"}], "]"}]}], "}"}], "]"}]}], " ", "}"}], "]"}]}], " ", "}"}], "]"}]], "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.824290701395134*^9, 3.82429073274063*^9}, 3.824290903522031*^9, 3.82429096622473*^9, {3.824373926725284*^9, 3.82437398038523*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"a5d6b314-6aeb-47ed-bdc4-872d64883741"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.3], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.7], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[ NCache[{{{6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 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.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]}}}, {{{ 6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, 0.8660254037844386}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}}, {{-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.8660254037844386, -0.8660254037844386}}}]]}}, Boxed->False, ImageSize->500, Lighting->"Neutral"]], "Output", CellChangeTimes->{3.824374041230823*^9}, CellLabel->"Out[17]=",ExpressionUUID->"7f9a8fa0-03e5-4403-ba0f-0a9602bf9fb6"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tempplus", "[", "\[Rho]_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", SqrtBox["3"], RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " "}], "6"], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", SqrtBox["3"], RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " "}], "6"], "]"}]}], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], "+", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], "6"], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], "6"], "]"}]}], ",", "0"}], "}"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"tempminus", "[", "\[Rho]_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", SqrtBox["3"], RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " "}], "6"], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", SqrtBox["3"], RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " "}], "6"], "]"}]}], ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], "+", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], "6"], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"\[Rho]", "+", RowBox[{"1", "/", "2"}]}], ")"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], "6"], "]"}]}], ",", "0"}], "}"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "]"}]}]}], "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}}, CellLabel->"In[18]:=",ExpressionUUID->"4eb49a2c-e4db-43c9-9ba2-3f90a9cea9d5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.7"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "/@", RowBox[{"{", RowBox[{ RowBox[{"redhex", "[", RowBox[{"0", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"2", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"3", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"4", ",", "1.5"}], "]"}]}], "}"}]}], ",", RowBox[{"FaceForm", "[", "Yellow", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"tempplus", "[", "1.5", "]"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"tempminus", "[", "1.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.760897196094448*^9, 3.760897203853838*^9}, {3.824291330576495*^9, 3.824291375162796*^9}, { 3.824291406160447*^9, 3.82429149397691*^9}, 3.8242915416806726`*^9, { 3.824291627021611*^9, 3.8242916432748537`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"fffc4dd5-d9b6-4299-b0af-ad7b9acbfbda"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.7], FaceForm[RGBColor[ 1, 0, 0]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}], 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.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, 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.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[{{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}}], 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.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, -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.8660254037844386, -0.8660254037844386}}]]}, {FaceForm[RGBColor[1, 1, 0]], Polygon3DBox[ NCache[{{1.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}, { 5., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 3.4641016151377544`, Rational[1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 3.4641016151377544`, Rational[1, 2] 3^Rational[1, 2]}, { 0.9999999999999996, 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}}, {{ 1.9999999999999996`, 0., 0.8660254037844386}, {3.9999999999999996`, 0., 0.8660254037844386}, {5., 1.7320508075688772`, 0.8660254037844386}, { 3.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, { 1.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, { 0.9999999999999996, 1.7320508075688772`, 0.8660254037844386}, { 1.9999999999999996`, 0., 0.8660254037844386}}]], Polygon3DBox[ NCache[{{1.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}, { 5., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 3.4641016151377544`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 3.4641016151377544`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.9999999999999996, 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1.9999999999999996`, 0., -0.8660254037844386}, {3.9999999999999996`, 0., -0.8660254037844386}, {5., 1.7320508075688772`, -0.8660254037844386}, {3.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, {1.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, {0.9999999999999996, 1.7320508075688772`, -0.8660254037844386}, {1.9999999999999996`, 0., -0.8660254037844386}}]]}}}, Boxed->False, ImageSize->{589.0319658835663, 354.5134025893021}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{-0.3368514423798155, -2.7346250194276522`, 1.9642701211612805`}, ViewVertical->{-0.006733202139442393, -0.0024880637160668655`, 0.9999742364320664}]], "Output", CellChangeTimes->{3.824374212763777*^9}, CellLabel->"Out[20]=",ExpressionUUID->"359ff4fd-3a62-4aa5-b09f-a9c45e698de0"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ribs", "[", "\[Theta]_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.7"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"redhex", "[", RowBox[{"0", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"2", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"3", ",", "1.5"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"4", ",", "1.5"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GeometricTransformation", "[", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"tempplus", "[", "1.5", "]"}], "]"}], ",", RowBox[{"RotationTransform", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FractionBox["\[Pi]", "3"], "+", "\[Theta]"}], ")"}]}], ",", 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[{ RowBox[{"(", RowBox[{ FractionBox["\[Pi]", "3"], "+", "\[Theta]"}], ")"}], ",", 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.824291733641943*^9, 3.824291754568157*^9}, { 3.8242918443601713`*^9, 3.824291925584594*^9}, {3.824374337483097*^9, 3.824374388276639*^9}, {3.824374458327325*^9, 3.82437446679773*^9}, { 3.8243747138109283`*^9, 3.824374723435177*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"7e4fc48b-a194-4086-b93b-2e9009e73b05"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ribs", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.824291956723789*^9, 3.824291964116809*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"0dc6eac3-a964-41e2-a16e-d53c705ae1f3"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.7], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[ NCache[{{{6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 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.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]}}}, {{{ 6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, 0.8660254037844386}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}}, {{-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.8660254037844386, -0.8660254037844386}}}]], GeometricTransformation3DBox[ Polygon3DBox[ NCache[{{1.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}, { 5., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 3.4641016151377544`, Rational[1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 3.4641016151377544`, Rational[1, 2] 3^Rational[1, 2]}, { 0.9999999999999996, 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}}, {{ 1.9999999999999996`, 0., 0.8660254037844386}, {3.9999999999999996`, 0., 0.8660254037844386}, {5., 1.7320508075688772`, 0.8660254037844386}, { 3.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, { 1.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, { 0.9999999999999996, 1.7320508075688772`, 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[ NCache[{{1.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}, { 5., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 3.4641016151377544`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 3.4641016151377544`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.9999999999999996, 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1.9999999999999996`, 0., -0.8660254037844386}, {3.9999999999999996`, 0., -0.8660254037844386}, {5., 1.7320508075688772`, -0.8660254037844386}, {3.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, {1.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, {0.9999999999999996, 1.7320508075688772`, -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->{568.1343067356119, 583.0784607901727}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{1.3659357105903924`, -2.9497734993915246`, 0.9397105601308318}, ViewVertical->{0.10119921694705973`, -0.37910787687007413`, 0.9198021179494894}]], "Output", CellChangeTimes->{3.824374686283333*^9, 3.824374732452428*^9}, CellLabel->"Out[24]=",ExpressionUUID->"cfc90c1e-1594-4c80-8c8c-c5cbfc51eb4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ribs", "[", FractionBox["\[Pi]", "6"], "]"}]], "Input", CellChangeTimes->{{3.82429200029382*^9, 3.824292019578209*^9}, { 3.824368394842369*^9, 3.824368500280985*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"a569554d-41bd-4643-a7a8-c7cd9deecb7a"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.7], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[ NCache[{{{6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 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.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]}}}, {{{ 6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}, {{-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.8660254037844386, 0.8660254037844386}}, {{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, { 0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}}, {{-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.8660254037844386, -0.8660254037844386}}}]], GeometricTransformation3DBox[ Polygon3DBox[ NCache[{{1.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}, { 5., 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 3.4641016151377544`, Rational[1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 3.4641016151377544`, Rational[1, 2] 3^Rational[1, 2]}, { 0.9999999999999996, 1.7320508075688772`, Rational[1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 0., Rational[1, 2] 3^Rational[1, 2]}}, {{ 1.9999999999999996`, 0., 0.8660254037844386}, {3.9999999999999996`, 0., 0.8660254037844386}, {5., 1.7320508075688772`, 0.8660254037844386}, { 3.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, { 1.9999999999999996`, 3.4641016151377544`, 0.8660254037844386}, { 0.9999999999999996, 1.7320508075688772`, 0.8660254037844386}, { 1.9999999999999996`, 0., 0.8660254037844386}}]], {{{ 0.25, -0.4330127018922193, -0.8660254037844386}, {-0.4330127018922193, 0.7499999999999999, -0.49999999999999994`}, {0.8660254037844386, 0.49999999999999994`, 0.}}, {2.25, 1.2990381056766578`, -0.8660254037844386}}], GeometricTransformation3DBox[ Polygon3DBox[ NCache[{{1.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}, { 5., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 3.9999999999999996`, 3.4641016151377544`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 3.4641016151377544`, Rational[-1, 2] 3^Rational[1, 2]}, { 0.9999999999999996, 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.9999999999999996`, 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{ 1.9999999999999996`, 0., -0.8660254037844386}, {3.9999999999999996`, 0., -0.8660254037844386}, {5., 1.7320508075688772`, -0.8660254037844386}, {3.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, {1.9999999999999996`, 3.4641016151377544`, -0.8660254037844386}, {0.9999999999999996, 1.7320508075688772`, -0.8660254037844386}, {1.9999999999999996`, 0., -0.8660254037844386}}]], {{{0.25, -0.4330127018922193, 0.8660254037844386}, {-0.4330127018922193, 0.7499999999999999, 0.49999999999999994`}, {-0.8660254037844386, -0.49999999999999994`, 0.}}, {2.25, 1.2990381056766578`, 0.8660254037844386}}]}}, Boxed->False, ImageSize->{592.0845740965455, 594.1428363274019}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{2.0165157678803007`, -2.415338763492892, 1.2449107660626717`}, ViewVertical->{0.16126489132506874`, -0.2517772356407341, 0.9542546088120424}]], "Output", CellChangeTimes->{3.824374824025178*^9}, CellLabel->"Out[25]=",ExpressionUUID->"6f991004-78bd-458b-b476-4942dae6e5b6"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rotplus", "[", RowBox[{"\[Rho]_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{"RotationTransform", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FractionBox["\[Pi]", "3"], "+", "\[Theta]"}], ")"}]}], ",", 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", "[", RowBox[{"\[Rho]_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{"RotationTransform", "[", RowBox[{ RowBox[{ FractionBox["\[Pi]", "3"], "+", "\[Theta]"}], ",", 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}, { 3.824300457495984*^9, 3.824300529535556*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"fd0e14eb-da1a-4302-9c5d-2f8bc23c1f30"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", " ", RowBox[{ RowBox[{ RowBox[{"rotplus", "[", RowBox[{"\[Rho]", ",", "0"}], "]"}], "[", 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}, {3.760895152592719*^9, 3.7608951625011587`*^9}, { 3.760895251301849*^9, 3.760895267214113*^9}, {3.824292335146462*^9, 3.8242923424755497`*^9}, {3.8243010992470512`*^9, 3.824301109500321*^9}, { 3.8243749615329113`*^9, 3.8243749886529913`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"47dddc86-1940-4576-b6b5-ed8794463670"], Cell[BoxData[ RowBox[{"{", RowBox[{ 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]"}]}], ")"}]}]}], "}"}], ",", 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"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.8243750177383327`*^9, 3.824375061456092*^9}, CellLabel->"Out[29]=",ExpressionUUID->"e741182c-bc8d-45a8-9b09-40b27fe44846"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"redhex", "[", RowBox[{"1", ",", "\[Rho]_", ",", "\[Theta]_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"RotateLeft", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Most", "[", "\[IndentingNewLine]", RowBox[{"Simplify", "[", " ", RowBox[{ RowBox[{ RowBox[{"rotplus", "[", RowBox[{"\[Rho]", ",", "\[Theta]"}], "]"}], "[", RowBox[{"tempplus", "[", "\[Rho]", "]"}], "]"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Rho]", ">", "1"}], "}"}]}]}], "]"}], "]"}], ",", "2"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"redhex", "[", RowBox[{"5", ",", "\[Rho]_", ",", "\[Theta]_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"RotateLeft", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Most", "[", "\[IndentingNewLine]", RowBox[{"Simplify", "[", " ", RowBox[{ RowBox[{ RowBox[{"rotminus", "[", RowBox[{"\[Rho]", ",", "\[Theta]"}], "]"}], "[", RowBox[{"tempminus", "[", "\[Rho]", "]"}], "]"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Rho]", ">", "1"}], "}"}]}]}], "]"}], "]"}], ",", "2"}], "]"}]}]}], "Input", CellChangeTimes->{{3.760894492214579*^9, 3.760894526182721*^9}, { 3.760894699507813*^9, 3.760894721305367*^9}, {3.7608947533269873`*^9, 3.7608948001511793`*^9}, {3.824292246336543*^9, 3.82429225305901*^9}, 3.824292286625907*^9, {3.8243003382917337`*^9, 3.8243003471521072`*^9}, { 3.824300404511911*^9, 3.8243004251626377`*^9}, {3.8243005914020844`*^9, 3.8243006467770844`*^9}, {3.824300680266955*^9, 3.824300704838641*^9}, { 3.824301021770405*^9, 3.8243010533398523`*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"a7072d2c-d373-45a2-9d70-31f5c84c0904"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"redhex", "[", RowBox[{"1", ",", "\[Rho]", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.824301229942843*^9, 3.824301243282138*^9}, { 3.8243013479204483`*^9, 3.824301378950688*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"f1396343-0c90-4b73-8dcc-645871b67029"], Cell[BoxData[ 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]"}]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.824375345364531*^9}, CellLabel->"Out[32]=",ExpressionUUID->"031b6f04-3d1c-4527-af9f-bfe6078e1fd8"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"redhexpts", "[", RowBox[{"\[Rho]_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"redhex", "[", RowBox[{"0", ",", "\[Rho]"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"1", ",", "\[Rho]", ",", "\[Theta]"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"2", ",", "\[Rho]"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"3", ",", "\[Rho]"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"4", ",", "\[Rho]"}], "]"}], ",", RowBox[{"redhex", "[", RowBox[{"5", ",", "\[Rho]", ",", "\[Theta]"}], "]"}]}], "}"}]}]], "Input",\ CellChangeTimes->{{3.824297161950984*^9, 3.824297181508128*^9}, { 3.824297211982114*^9, 3.82429731393521*^9}, 3.824297462666306*^9, 3.824297623891268*^9}, CellLabel->"In[34]:=",ExpressionUUID->"29f733ca-14aa-4a03-9868-71b28baa84de"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"FaceForm", "[", "Red", "]"}], ",", RowBox[{"Polygon", "/@", RowBox[{"redhexpts", "[", RowBox[{"1.5", ",", "0"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{ 3.824297477947069*^9, 3.8242975345316133`*^9, {3.824297564618059*^9, 3.824297591014577*^9}, {3.824297653691822*^9, 3.824297665933813*^9}, { 3.824368190411249*^9, 3.82436821215383*^9}, {3.824368280782688*^9, 3.8243683350777197`*^9}, {3.82437547180477*^9, 3.824375474521432*^9}, 3.824375524882345*^9},ExpressionUUID->"0fa520ef-c9e9-4df2-a524-\ 46ca9b19484e"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.2], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.7], FaceForm[RGBColor[1, 0, 0]], Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}}], Polygon3DBox[{{3.5, 0.8660254037844383, 3.8660254037844384`}, { 2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}, {1.25, 3.0310889132455348`, 2.3660254037844384`}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 0., 0.8660254037844384}, { 3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}}], 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.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, 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.8660254037844386, 0.8660254037844386}}]], Polygon3DBox[{{-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-0.25, 0.4330127018922193, 0}, {0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 0.25, -0.4330127018922193, 0}}], 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.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, -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.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[{{3.5, 0.8660254037844385, -3.8660254037844384`}, { 2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}, {1.25, 3.0310889132455348`, -2.3660254037844384`}, {0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}, {1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}, { 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}}]}}, Boxed->False, ImageSize->600, Lighting->"Neutral"]], "Output", CellChangeTimes->{3.8243754778191557`*^9, 3.824375513607842*^9}, CellLabel->"Out[35]=",ExpressionUUID->"21277c59-7d80-44bf-a947-1aed37dce703"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"redring", "[", RowBox[{"\[Rho]_", ",", "\[Theta]_", ",", "color_", ",", "opac_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Darker", "[", RowBox[{"color", ",", "0.5"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Opacity", "[", "opac", "]"}], ",", RowBox[{"FaceForm", "[", "color", "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"redhexpts", "[", RowBox[{"\[Rho]", ",", "\[Theta]"}], "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"redhexpts", "[", RowBox[{"\[Rho]", ",", "\[Theta]"}], "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"j", "+", "2"}], ",", "6", ",", "1"}], "]"}], ",", RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"redhexpts", "[", RowBox[{"\[Rho]", ",", "\[Theta]"}], "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"j", "+", "2"}], ",", "6", ",", "1"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"k", "+", "2"}], ",", "6", ",", "1"}], "]"}]}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"redhexpts", "[", RowBox[{"\[Rho]", ",", "\[Theta]"}], "]"}], "\[LeftDoubleBracket]", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{"k", "+", "2"}], ",", "6", ",", "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}, 3.8242973156489487`*^9, {3.824302410315206*^9, 3.8243024921545677`*^9}, {3.824302629064365*^9, 3.82430264278583*^9}, { 3.824302716766953*^9, 3.824302734738805*^9}, {3.824303235719685*^9, 3.824303328571361*^9}, {3.8243036890078373`*^9, 3.82430369002704*^9}, { 3.824303803553568*^9, 3.824303836804516*^9}, {3.824303871858233*^9, 3.8243039314685297`*^9}, {3.824303973393639*^9, 3.824303979314371*^9}, { 3.824375615279463*^9, 3.824375626406497*^9}, {3.824375659978932*^9, 3.824375665174077*^9}, 3.824376050606533*^9}, CellLabel->"In[36]:=",ExpressionUUID->"c1453bd1-fc90-440b-aa4a-0e17a640f4cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"redring", "[", RowBox[{"1.5", ",", "0", ",", "Pink", ",", "0.7"}], "]"}]], "Input", CellChangeTimes->{{3.7608966734764013`*^9, 3.760896679808908*^9}, { 3.8243026727094603`*^9, 3.8243026904667788`*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"3ced6eeb-a3ff-470e-85e6-e7cebaf89ba4"], Cell[BoxData[ Graphics3DBox[ {Opacity[0.7], EdgeForm[{RGBColor[0.5, 0.25, 0.25], Thickness[Large]}], FaceForm[RGBColor[ 1, 0.5, 0.5]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {3.5, 0.8660254037844383, 3.8660254037844384`}, {2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}, {5., 4.330127018922193, 0.}}], Polygon3DBox[{{5., 4.330127018922193, 0.}, {2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}, {1.25, 3.0310889132455348`, 2.3660254037844384`}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, {1.25, 3.0310889132455348`, 2.3660254037844384`}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}}], Polygon3DBox[{{1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 0., 0.8660254037844384}, { 2.4999999999999996`, 0., 0.}}], Polygon3DBox[{{2.4999999999999996`, 0., 0.}, {2., 0., 0.8660254037844384}, {3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}, {5., 0., 0.}}], Polygon3DBox[{{5., 0., 0.}, {3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}, {3.5, 0.8660254037844383, 3.8660254037844384`}, { 6.25, 2.1650635094610964`, 0.}}]}, { Polygon3DBox[ NCache[{{3.5, 0.8660254037844383, 3.8660254037844384`}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}}, {{3.5, 0.8660254037844383, 3.8660254037844384`}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, { 2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}}]], Polygon3DBox[ NCache[{{2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {1.25, 3.0310889132455348`, 2.3660254037844384`}}, {{2.4999999999999996`, 2.5980762113533156`, 3.8660254037844375`}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {1.25, 3.0310889132455348`, 2.3660254037844384`}}]], Polygon3DBox[ NCache[{{1.25, 3.0310889132455348`, 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`, 0.8660254037844382}}, {{1.25, 3.0310889132455348`, 2.3660254037844384`}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {2., 0., 0.8660254037844384}}, {{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 0., 0.8660254037844386}, {2., 0., 0.8660254037844384}}]], Polygon3DBox[ NCache[{{2., 0., 0.8660254037844384}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}}, {{2., 0., 0.8660254037844384}, {1., 0., 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, { 3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}}]], Polygon3DBox[ NCache[{{3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}, { 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.8660254037844383, 3.8660254037844384`}}, {{ 3.2499999999999996`, -0.4330127018922192, 2.3660254037844375`}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 3.5, 0.8660254037844383, 3.8660254037844384`}}]]}, { 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, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 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., 0.8660254037844386}, {-0.5, 0., 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]}, {-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.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]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., 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}}]], 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., 0.8660254037844386}, {0.5, 0., 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]}, { 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.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-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.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 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}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 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.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.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, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 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}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 3.5, 0.8660254037844385, -3.8660254037844384`}, {2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}, {-1., 0., Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {3.5, 0.8660254037844385, -3.8660254037844384`}, {2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}, {1.25, 3.0310889132455348`, -2.3660254037844384`}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}, {1.25, 3.0310889132455348`, -2.3660254037844384`}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 3.0310889132455348`, -2.3660254037844384`}, {0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {1.25, 3.0310889132455348`, -2.3660254037844384`}, {0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}, { 1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}, {1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}, { 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}, { 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}, {3.5, 0.8660254037844385, -3.8660254037844384`}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}, {3.5, 0.8660254037844385, -3.8660254037844384`}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]]}, { Polygon3DBox[{{3.5, 0.8660254037844385, -3.8660254037844384`}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}}], Polygon3DBox[{{2.4999999999999996`, 2.5980762113533156`, -3.8660254037844375`}, {5., 4.330127018922193, 0.}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.25, 3.0310889132455348`, -2.3660254037844384`}}], Polygon3DBox[{{1.25, 3.0310889132455348`, -2.3660254037844384`}, { 2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}}], Polygon3DBox[{{0.9999999999999998, 1.7320508075688772`, -0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, { 1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}}], Polygon3DBox[{{1.9999999999999998`, 1.1102230246251565`*^-16, -0.8660254037844384}, {2.4999999999999996`, 0., 0.}, {5., 0., 0.}, { 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}}], Polygon3DBox[{{ 3.2499999999999996`, -0.4330127018922192, -2.3660254037844375`}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {3.5, 0.8660254037844385, -3.8660254037844384`}}]}}, Boxed->False, ImageSize->{488.33923700890955`, 491.48184878380664`}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{1.7963185965084683`, -2.73223577068315, 0.8707049978249233}, ViewVertical->{0.30603099209963835`, -0.3452010364615366, 0.8872323688303938}]], "Output", CellChangeTimes->{3.824376073146865*^9}, CellLabel->"Out[37]=",ExpressionUUID->"36c2895b-d675-453c-9a39-65032a1d4f7d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.7"}], "]"}], ",", RowBox[{"redring", "[", RowBox[{"1.5", ",", FractionBox["\[Pi]", "6"], ",", RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.2"}], "]"}], ",", "0.8"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "800"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.760900710155808*^9, 3.760900794001739*^9}, { 3.824304047833221*^9, 3.82430416472554*^9}, 3.824304206499748*^9, { 3.82430432860258*^9, 3.824304329539402*^9}, {3.824304368230291*^9, 3.8243044138016167`*^9}, {3.824363062162251*^9, 3.824363252960141*^9}, { 3.824365004831558*^9, 3.8243650999045343`*^9}, {3.824376172496574*^9, 3.824376181113635*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"ba301ab4-ae33-4cc0-83fb-7449352b3a60"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.8], EdgeForm[{RGBColor[0.4, 0., 0.], Thickness[Large]}], FaceForm[RGBColor[ 0.8, 0., 0.]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {2., 0., 4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {5., 4.330127018922193, 0.}}], Polygon3DBox[{{5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {0.5000000000000002, 2.598076211353316, 2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}}], Polygon3DBox[{{1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.4999999999999996`, 0., 0.}}], Polygon3DBox[{{2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.5, -0.8660254037844386, 2.598076211353315}, { 5., 0., 0.}}], Polygon3DBox[{{5., 0., 0.}, {2.5, -0.8660254037844386, 2.598076211353315}, {2., 0., 4.330127018922193}, {6.25, 2.1650635094610964`, 0.}}]}, { Polygon3DBox[ NCache[{{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}, {{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}]], Polygon3DBox[ NCache[{{1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}, {{ 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}]], Polygon3DBox[ NCache[{{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-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`, 0.8660254037844382}}, {{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 1.7320508075688772`, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, 0.8660254037844382}}, {{1., 1.7320508075688772`, 0.8660254037844382}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 0., 0.8660254037844386}, {2., 2.220446049250313*^-16, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{2., 2.220446049250313*^-16, 0.8660254037844382}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, 2.598076211353315}}, {{2., 2.220446049250313*^-16, 0.8660254037844382}, {1., 0., 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 2.5, -0.8660254037844386, 2.598076211353315}}]], Polygon3DBox[ NCache[{{2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {2., 0., 4.330127018922193}}, {{ 2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 2., 0., 4.330127018922193}}]]}, { 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, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 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., 0.8660254037844386}, {-0.5, 0., 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]}, {-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.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]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., 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}}]], 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., 0.8660254037844386}, {0.5, 0., 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]}, { 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.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-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.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 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}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 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.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.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, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 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}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]]}, { Polygon3DBox[{{2., 0., -4.330127018922193}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}}], Polygon3DBox[{{1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}}], Polygon3DBox[{{0.5000000000000002, 2.598076211353316, -2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, -0.8660254037844382}}], Polygon3DBox[{{1., 1.7320508075688772`, -0.8660254037844382}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, -0.8660254037844382}}], Polygon3DBox[{{2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.4999999999999996`, 0., 0.}, {5., 0., 0.}, { 2.5, -0.8660254037844386, -2.598076211353315}}], Polygon3DBox[{{2.5, -0.8660254037844386, -2.598076211353315}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {2., 0., -4.330127018922193}}]}}}, Boxed->False, ImageSize->{775.344582905325, 775.4268105832824}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{0.40303310213821625`, -3.2540855068038637`, 0.8357582383619603}, ViewVertical->{0.4503528006507547, -0.44477093659179023`, 0.7741841957243012}]], "Output", CellChangeTimes->{3.824376184741413*^9}, CellLabel->"Out[38]=",ExpressionUUID->"0f96f467-eedc-4b41-af10-83adfc27499c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.7"}], "]"}], ",", RowBox[{"redring", "[", RowBox[{"1.5", ",", FractionBox["\[Pi]", "6"], ",", "Orange", ",", "0.8"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "800"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.760900710155808*^9, 3.760900794001739*^9}, { 3.824304047833221*^9, 3.82430416472554*^9}, 3.824304206499748*^9, { 3.82430432860258*^9, 3.824304329539402*^9}, {3.824304368230291*^9, 3.8243044138016167`*^9}, {3.824363062162251*^9, 3.824363252960141*^9}, { 3.824376272404606*^9, 3.824376278322618*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"ed3ebb29-aa4f-4172-90ce-204fe8d8b35f"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.8], EdgeForm[{RGBColor[0.5, 0.25, 0.], Thickness[Large]}], FaceForm[RGBColor[ 1, 0.5, 0]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {2., 0., 4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {5., 4.330127018922193, 0.}}], Polygon3DBox[{{5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {0.5000000000000002, 2.598076211353316, 2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}}], Polygon3DBox[{{1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.4999999999999996`, 0., 0.}}], Polygon3DBox[{{2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.5, -0.8660254037844386, 2.598076211353315}, { 5., 0., 0.}}], Polygon3DBox[{{5., 0., 0.}, {2.5, -0.8660254037844386, 2.598076211353315}, {2., 0., 4.330127018922193}, {6.25, 2.1650635094610964`, 0.}}]}, { Polygon3DBox[ NCache[{{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}, {{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}]], Polygon3DBox[ NCache[{{1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}, {{ 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}]], Polygon3DBox[ NCache[{{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-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`, 0.8660254037844382}}, {{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 1.7320508075688772`, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, 0.8660254037844382}}, {{1., 1.7320508075688772`, 0.8660254037844382}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 0., 0.8660254037844386}, {2., 2.220446049250313*^-16, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{2., 2.220446049250313*^-16, 0.8660254037844382}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, 2.598076211353315}}, {{2., 2.220446049250313*^-16, 0.8660254037844382}, {1., 0., 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 2.5, -0.8660254037844386, 2.598076211353315}}]], Polygon3DBox[ NCache[{{2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {2., 0., 4.330127018922193}}, {{ 2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 2., 0., 4.330127018922193}}]]}, { 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, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 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., 0.8660254037844386}, {-0.5, 0., 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]}, {-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.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]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., 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}}]], 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., 0.8660254037844386}, {0.5, 0., 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]}, { 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.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-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.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 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}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 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.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.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, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 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}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]]}, { Polygon3DBox[{{2., 0., -4.330127018922193}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}}], Polygon3DBox[{{1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}}], Polygon3DBox[{{0.5000000000000002, 2.598076211353316, -2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, -0.8660254037844382}}], Polygon3DBox[{{1., 1.7320508075688772`, -0.8660254037844382}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, -0.8660254037844382}}], Polygon3DBox[{{2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.4999999999999996`, 0., 0.}, {5., 0., 0.}, { 2.5, -0.8660254037844386, -2.598076211353315}}], Polygon3DBox[{{2.5, -0.8660254037844386, -2.598076211353315}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {2., 0., -4.330127018922193}}]}}}, Boxed->False, ImageSize->{777.3108776379788, 785.4468618317956}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{1.1527587667323758`, -3.1253688543461515`, 0.5943204102205089}, ViewVertical->{0.3054012692906103, -0.4508729442974237, 0.8387154778685417}]], "Output", CellChangeTimes->{3.824376288688141*^9}, CellLabel->"Out[39]=",ExpressionUUID->"1fc36c6c-d831-449d-a46d-0179031d02c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", "Orange", ",", "0.7"}], "]"}], ",", RowBox[{"redring", "[", RowBox[{"1.5", ",", FractionBox["\[Pi]", "6"], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.8"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "800"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.760900710155808*^9, 3.760900794001739*^9}, { 3.824304047833221*^9, 3.82430416472554*^9}, 3.824304206499748*^9, { 3.82430432860258*^9, 3.824304329539402*^9}, {3.824304368230291*^9, 3.8243044138016167`*^9}, {3.824363062162251*^9, 3.824363252960141*^9}, { 3.8243633337910852`*^9, 3.8243633592969093`*^9}, 3.824376326976202*^9}, CellLabel->"In[40]:=",ExpressionUUID->"39f0c332-94ad-4ff6-8c0c-1b15bfb2d315"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[0.5, 0.25, 0.], Thickness[Large]}], FaceForm[RGBColor[ 1, 0.5, 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.8], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], Thickness[Large]}], FaceForm[RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {2., 0., 4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {5., 4.330127018922193, 0.}}], Polygon3DBox[{{5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {0.5000000000000002, 2.598076211353316, 2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}}], Polygon3DBox[{{1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.4999999999999996`, 0., 0.}}], Polygon3DBox[{{2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.5, -0.8660254037844386, 2.598076211353315}, { 5., 0., 0.}}], Polygon3DBox[{{5., 0., 0.}, {2.5, -0.8660254037844386, 2.598076211353315}, {2., 0., 4.330127018922193}, {6.25, 2.1650635094610964`, 0.}}]}, { Polygon3DBox[ NCache[{{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}, {{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}]], Polygon3DBox[ NCache[{{1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}, {{ 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}]], Polygon3DBox[ NCache[{{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-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`, 0.8660254037844382}}, {{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 1.7320508075688772`, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, 0.8660254037844382}}, {{1., 1.7320508075688772`, 0.8660254037844382}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 0., 0.8660254037844386}, {2., 2.220446049250313*^-16, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{2., 2.220446049250313*^-16, 0.8660254037844382}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, 2.598076211353315}}, {{2., 2.220446049250313*^-16, 0.8660254037844382}, {1., 0., 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 2.5, -0.8660254037844386, 2.598076211353315}}]], Polygon3DBox[ NCache[{{2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {2., 0., 4.330127018922193}}, {{ 2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 2., 0., 4.330127018922193}}]]}, { 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, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 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., 0.8660254037844386}, {-0.5, 0., 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]}, {-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.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]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., 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}}]], 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., 0.8660254037844386}, {0.5, 0., 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]}, { 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.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-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.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 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}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 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.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.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, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 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}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]]}, { Polygon3DBox[{{2., 0., -4.330127018922193}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}}], Polygon3DBox[{{1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}}], Polygon3DBox[{{0.5000000000000002, 2.598076211353316, -2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, -0.8660254037844382}}], Polygon3DBox[{{1., 1.7320508075688772`, -0.8660254037844382}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, -0.8660254037844382}}], Polygon3DBox[{{2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.4999999999999996`, 0., 0.}, {5., 0., 0.}, { 2.5, -0.8660254037844386, -2.598076211353315}}], Polygon3DBox[{{2.5, -0.8660254037844386, -2.598076211353315}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {2., 0., -4.330127018922193}}]}}}, Boxed->False, ImageSize->{786.4203946612317, 794.9341669456711}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{1.2109601147441054`, -3.0230724638698314`, 0.9190258313512905}, ViewVertical->{0.3203508897470044, -0.3289836923679834, 0.8883383576060591}]], "Output", CellChangeTimes->{3.824376330667261*^9}, CellLabel->"Out[40]=",ExpressionUUID->"743dcc59-2575-4d5d-9296-70ba7b4aa772"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", "Orange", ",", "0.7"}], "]"}], ",", RowBox[{"redring", "[", RowBox[{"1.5", ",", FractionBox["\[Pi]", "6"], ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "0.8"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "800"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.760900710155808*^9, 3.760900794001739*^9}, { 3.824304047833221*^9, 3.82430416472554*^9}, 3.824304206499748*^9, { 3.82430432860258*^9, 3.824304329539402*^9}, {3.824304368230291*^9, 3.8243044138016167`*^9}, {3.824363062162251*^9, 3.824363252960141*^9}, { 3.8243633337910852`*^9, 3.8243633592969093`*^9}, {3.824363447041448*^9, 3.824363452304557*^9}, 3.8243763588048697`*^9}, CellLabel->"In[41]:=",ExpressionUUID->"9e7769c8-d2eb-42cd-98c1-b78726290167"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[0.5, 0.25, 0.], Thickness[Large]}], FaceForm[RGBColor[ 1, 0.5, 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.8], EdgeForm[{RGBColor[ 0.3333333333333333, 0.16666666666666666`, 0.3333333333333333], Thickness[ Large]}], FaceForm[RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {2., 0., 4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {5., 4.330127018922193, 0.}}], Polygon3DBox[{{5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {0.5000000000000002, 2.598076211353316, 2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}}], Polygon3DBox[{{1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.4999999999999996`, 0., 0.}}], Polygon3DBox[{{2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.5, -0.8660254037844386, 2.598076211353315}, { 5., 0., 0.}}], Polygon3DBox[{{5., 0., 0.}, {2.5, -0.8660254037844386, 2.598076211353315}, {2., 0., 4.330127018922193}, {6.25, 2.1650635094610964`, 0.}}]}, { Polygon3DBox[ NCache[{{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}, {{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}]], Polygon3DBox[ NCache[{{1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}, {{ 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}]], Polygon3DBox[ NCache[{{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-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`, 0.8660254037844382}}, {{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 1.7320508075688772`, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, 0.8660254037844382}}, {{1., 1.7320508075688772`, 0.8660254037844382}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 0., 0.8660254037844386}, {2., 2.220446049250313*^-16, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{2., 2.220446049250313*^-16, 0.8660254037844382}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, 2.598076211353315}}, {{2., 2.220446049250313*^-16, 0.8660254037844382}, {1., 0., 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 2.5, -0.8660254037844386, 2.598076211353315}}]], Polygon3DBox[ NCache[{{2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {2., 0., 4.330127018922193}}, {{ 2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 2., 0., 4.330127018922193}}]]}, { 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, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 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., 0.8660254037844386}, {-0.5, 0., 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]}, {-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.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]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., 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}}]], 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., 0.8660254037844386}, {0.5, 0., 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]}, { 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.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-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.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 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}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 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.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.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, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 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}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]]}, { Polygon3DBox[{{2., 0., -4.330127018922193}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}}], Polygon3DBox[{{1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}}], Polygon3DBox[{{0.5000000000000002, 2.598076211353316, -2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, -0.8660254037844382}}], Polygon3DBox[{{1., 1.7320508075688772`, -0.8660254037844382}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, -0.8660254037844382}}], Polygon3DBox[{{2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.4999999999999996`, 0., 0.}, {5., 0., 0.}, { 2.5, -0.8660254037844386, -2.598076211353315}}], Polygon3DBox[{{2.5, -0.8660254037844386, -2.598076211353315}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {2., 0., -4.330127018922193}}]}}}, Boxed->False, ImageSize->{742.2529204515773, 745.3831818827106}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->{-0.3972926070496716, -3.206856203324789, 1.0041075020041395`}, ViewVertical->{-0.16706458408915456`, -0.3979993498273736, 0.9020454214063202}]], "Output", CellChangeTimes->{3.824376362189432*^9}, CellLabel->"Out[41]=",ExpressionUUID->"1a0f34b4-f67f-4bea-8cec-ed03187ab7a0"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"graphic", "[", RowBox[{"color1_", ",", "opac1_", ",", "color2_", ",", "opac2_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"bluering", "[", RowBox[{"1.5", ",", "color1", ",", "opac1"}], "]"}], ",", RowBox[{"redring", "[", RowBox[{"1.5", ",", FractionBox["\[Pi]", "6"], ",", "color2", ",", "opac2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "800"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.824365254221072*^9, 3.824365486480595*^9}, { 3.824365682021565*^9, 3.824365710917095*^9}, {3.824366779617592*^9, 3.824366798634169*^9}, 3.824376543135561*^9}, CellLabel->"In[42]:=",ExpressionUUID->"819fa7e8-b563-45d8-8016-e97ebc8e965c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", RowBox[{"Graphics3D", ",", "ViewPoint"}], "]"}]], "Input", CellChangeTimes->{{3.82436691452654*^9, 3.824366935108124*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"e2fe060b-022c-4cb7-995a-a1849ecd64af"], Cell[BoxData[ RowBox[{"{", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1.3`", ",", RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.824376572371808*^9}, CellLabel->"Out[43]=",ExpressionUUID->"e3e7dff8-fb06-41b8-9983-189b82a2e57f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"vp", "=", RowBox[{ RowBox[{"Options", "[", RowBox[{"Graphics3D", ",", "ViewPoint"}], "]"}], "\[LeftDoubleBracket]", RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", "vp"}], "Input", CellChangeTimes->{{3.824366983238454*^9, 3.8243669957930193`*^9}, { 3.8243670374018793`*^9, 3.8243670479799347`*^9}, {3.824376654496773*^9, 3.824376656761641*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"1edb82d2-4047-4787-9aae-a3c30e88828f"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.3`", ",", RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]], "Output", CellChangeTimes->{3.8243766588394833`*^9}, CellLabel->"Out[46]=",ExpressionUUID->"0fb73dcb-ba79-4908-98a8-7117d215c5b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"graphic", "[", RowBox[{"Orange", ",", "0.7", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.8"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"Dynamic", "[", "vp", "]"}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.824366852057143*^9, 3.824366876627611*^9}, { 3.824367087055933*^9, 3.824367122451304*^9}, 3.824368025745592*^9}, CellLabel->"In[47]:=",ExpressionUUID->"05d77531-b004-4c9e-858f-54b9e68e03e8"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[0.5, 0.25, 0.], Thickness[Large]}], FaceForm[RGBColor[ 1, 0.5, 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.8], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], Thickness[Large]}], FaceForm[RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {2., 0., 4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {5., 4.330127018922193, 0.}}], Polygon3DBox[{{5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {0.5000000000000002, 2.598076211353316, 2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}}], Polygon3DBox[{{1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.4999999999999996`, 0., 0.}}], Polygon3DBox[{{2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.5, -0.8660254037844386, 2.598076211353315}, { 5., 0., 0.}}], Polygon3DBox[{{5., 0., 0.}, {2.5, -0.8660254037844386, 2.598076211353315}, {2., 0., 4.330127018922193}, {6.25, 2.1650635094610964`, 0.}}]}, { Polygon3DBox[ NCache[{{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}, {{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}]], Polygon3DBox[ NCache[{{1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}, {{ 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}]], Polygon3DBox[ NCache[{{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-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`, 0.8660254037844382}}, {{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 1.7320508075688772`, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, 0.8660254037844382}}, {{1., 1.7320508075688772`, 0.8660254037844382}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 0., 0.8660254037844386}, {2., 2.220446049250313*^-16, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{2., 2.220446049250313*^-16, 0.8660254037844382}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, 2.598076211353315}}, {{2., 2.220446049250313*^-16, 0.8660254037844382}, {1., 0., 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 2.5, -0.8660254037844386, 2.598076211353315}}]], Polygon3DBox[ NCache[{{2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {2., 0., 4.330127018922193}}, {{ 2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 2., 0., 4.330127018922193}}]]}, { 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, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 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., 0.8660254037844386}, {-0.5, 0., 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]}, {-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.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]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., 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}}]], 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., 0.8660254037844386}, {0.5, 0., 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]}, { 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.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-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.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 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}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 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.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.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, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 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}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]]}, { Polygon3DBox[{{2., 0., -4.330127018922193}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}}], Polygon3DBox[{{1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}}], Polygon3DBox[{{0.5000000000000002, 2.598076211353316, -2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, -0.8660254037844382}}], Polygon3DBox[{{1., 1.7320508075688772`, -0.8660254037844382}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, -0.8660254037844382}}], Polygon3DBox[{{2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.4999999999999996`, 0., 0.}, {5., 0., 0.}, { 2.5, -0.8660254037844386, -2.598076211353315}}], Polygon3DBox[{{2.5, -0.8660254037844386, -2.598076211353315}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {2., 0., -4.330127018922193}}]}}}, Boxed->False, ImageSize->{769.6382461599512, 777.1451134688076}, ImageSizeRaw->Automatic, Lighting->"Neutral", ViewPoint->Dynamic[$CellContext`vp], ViewVertical->{-0.08643232411358756, -0.2593148774511898, 0.9619174848607329}]], "Output", CellChangeTimes->{3.824376688286532*^9}, CellLabel->"Out[47]=",ExpressionUUID->"511c234f-0965-48d8-ab38-22fcaa6b57aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dynamic", "[", "vp", "]"}]], "Input", CellChangeTimes->{{3.824367221212845*^9, 3.824367227960251*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"fbe866a6-0024-4817-8568-4c8fe636b80b"], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`vp, StandardForm], ImageSizeCache->{31., {6., 13.}}]], "Output", CellChangeTimes->{3.82437668839433*^9}, CellLabel->"Out[48]=",ExpressionUUID->"84eda627-eece-4630-b166-2fcb37fabbfa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"graphic", "[", RowBox[{"Orange", ",", "0.7", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "0.8"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ViewPoint", "\[Rule]", DynamicBox[ToBoxes[$CellContext`vp, StandardForm], ImageSizeCache->{31., {5., 13.}}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.824366852057143*^9, 3.824366876627611*^9}, { 3.824367087055933*^9, 3.824367122451304*^9}, 3.824368025745592*^9, 3.824376793840685*^9}, CellLabel->"In[49]:=",ExpressionUUID->"624d1c61-1f96-4143-ae1a-388f58504ddb"], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.7], EdgeForm[{RGBColor[0.5, 0.25, 0.], Thickness[Large]}], FaceForm[RGBColor[ 1, 0.5, 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}, { 1.25, 2.1650635094610964`, 0}, {1., 1.7320508075688772`, 0.8660254037844386}, {2., 0., 0.8660254037844386}}]], 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., 1.7320508075688772`, 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-2.5, 0., 0}, {-2., 0., 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}}]], 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}, {-1.25, -2.1650635094610964`, 0}, {-1., -1.7320508075688772`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}}]], 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., -1.7320508075688772`, 0.8660254037844386}, {-1., -1.7320508075688772`, 0.8660254037844386}}]], 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}, {2.5, 0., 0}, {2., 0., 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., 0.8660254037844386}, {1., 1.7320508075688772`, 0.8660254037844386}, { 0.5, 0.8660254037844386, 0.8660254037844386}, {1., 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`, 0.8660254037844386}, {-1., 1.7320508075688772`, 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5, 0.8660254037844386, 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`, 0.8660254037844386}, {-2., 0., 0.8660254037844386}, {-1., 0., 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]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 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}}]], 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`, 0.8660254037844386}, {1., -1.7320508075688772`, 0.8660254037844386}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 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`, 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]}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.25, 0.4330127018922193, 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.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, 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]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0., 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[{{-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., 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}}]], 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, 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]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0., 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}, {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.5, 0.8660254037844386, -0.8660254037844386}, {1., 0., -0.8660254037844386}}]], 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.5, 0.8660254037844386, -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], 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.5, 0., 0}, {-1., 0., -0.8660254037844386}, {-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.25, -0.4330127018922193, 0}, {-0.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}}]], 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}}]], 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.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.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., -0.8660254037844386}, {0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, {2., 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, -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {1., 1.7320508075688772`, -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, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-2., 0., -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]}, {-1., -1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, {-2., 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}}]], 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, -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, {-1., \ -1.7320508075688772`, -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, -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., 1.7320508075688772`, Rational[-1, 2] 3^Rational[1, 2]}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}, {{2., 0., -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844386}, { 1.25, 2.1650635094610964`, 0}, {2.5, 0., 0}}]], 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`, -0.8660254037844386}, {-1., 1.7320508075688772`, -0.8660254037844386}, {-1.25, 2.1650635094610964`, 0}, {1.25, 2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {-2., 0., -0.8660254037844386}, {-2.5, 0., 0}, {-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]}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}, {{-2., 0., -0.8660254037844386}, {-1., -1.7320508075688772`, \ -0.8660254037844386}, {-1.25, -2.1650635094610964`, 0}, {-2.5, 0., 0}}]], 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`, -0.8660254037844386}, { 1., -1.7320508075688772`, -0.8660254037844386}, { 1.25, -2.1650635094610964`, 0}, {-1.25, -2.1650635094610964`, 0}}]], 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`, -0.8660254037844386}, {2., 0., -0.8660254037844386}, {2.5, 0., 0}, { 1.25, -2.1650635094610964`, 0}}]]}}, {Opacity[0.8], EdgeForm[{RGBColor[ 0.16666666666666666`, 0.16666666666666666`, 0.5], Thickness[Large]}], FaceForm[RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1]], { Polygon3DBox[{{6.25, 2.1650635094610964`, 0.}, {2., 0., 4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {5., 4.330127018922193, 0.}}], Polygon3DBox[{{5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {0.5000000000000002, 2.598076211353316, 2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}}], Polygon3DBox[{{2.4999999999999996`, 4.330127018922193, 0.}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}, {1., 1.7320508075688772`, 0.8660254037844382}, {1.2499999999999996`, 2.1650635094610964`, 0.}}], Polygon3DBox[{{1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, 0.8660254037844382}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.4999999999999996`, 0., 0.}}], Polygon3DBox[{{2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, 0.8660254037844382}, {2.5, -0.8660254037844386, 2.598076211353315}, { 5., 0., 0.}}], Polygon3DBox[{{5., 0., 0.}, {2.5, -0.8660254037844386, 2.598076211353315}, {2., 0., 4.330127018922193}, {6.25, 2.1650635094610964`, 0.}}]}, { Polygon3DBox[ NCache[{{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}, {{2., 0., 4.330127018922193}, {-0.5, -0.8660254037844386, 0.8660254037844386}, {-1., 0., 0.8660254037844386}, { 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}}]], Polygon3DBox[ NCache[{{1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}, {{ 1.0000000000000002`, 1.7320508075688772`, 4.330127018922193}, {-1., 0., 0.8660254037844386}, {-0.5, 0.8660254037844386, 0.8660254037844386}, { 0.5000000000000002, 2.598076211353316, 2.598076211353315}}]], Polygon3DBox[ NCache[{{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-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`, 0.8660254037844382}}, {{0.5000000000000002, 2.598076211353316, 2.598076211353315}, {-0.5, 0.8660254037844386, 0.8660254037844386}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 1.7320508075688772`, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{1., 1.7320508075688772`, 0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, 0.8660254037844382}}, {{1., 1.7320508075688772`, 0.8660254037844382}, {0.5, 0.8660254037844386, 0.8660254037844386}, { 1., 0., 0.8660254037844386}, {2., 2.220446049250313*^-16, 0.8660254037844382}}]], Polygon3DBox[ NCache[{{2., 2.220446049250313*^-16, 0.8660254037844382}, { 1., 0., Rational[1, 2] 3^Rational[1, 2]}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, 2.598076211353315}}, {{2., 2.220446049250313*^-16, 0.8660254037844382}, {1., 0., 0.8660254037844386}, {0.5, -0.8660254037844386, 0.8660254037844386}, { 2.5, -0.8660254037844386, 2.598076211353315}}]], Polygon3DBox[ NCache[{{2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {-0.5, -0.8660254037844386, Rational[1, 2] 3^Rational[1, 2]}, {2., 0., 4.330127018922193}}, {{ 2.5, -0.8660254037844386, 2.598076211353315}, { 0.5, -0.8660254037844386, 0.8660254037844386}, {-0.5, -0.8660254037844386, 0.8660254037844386}, { 2., 0., 4.330127018922193}}]]}, { 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, 0.8660254037844386}, {-0.25, -0.4330127018922193, 0}, {-0.5, 0., 0}, {-1., 0., 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., 0.8660254037844386}, {-0.5, 0., 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]}, {-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.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]}, { 0.25, 0.4330127018922193, 0}, {0.5, 0., 0}, { 1., 0., 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}}]], 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., 0.8660254037844386}, {0.5, 0., 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]}, { 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.25, -0.4330127018922193, 0}, {-0.25, -0.4330127018922193, 0}, {-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.5, -0.8660254037844386, -0.8660254037844386}, {-1., 0., -0.8660254037844386}, {-0.5, 0., 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}, {-1., 0., -0.8660254037844386}, {-0.5, 0.8660254037844386, -0.8660254037844386}, {-0.25, 0.4330127018922193, 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.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.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, -0.8660254037844386}, {1., 0., -0.8660254037844386}, {0.5, 0., 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}, {1., 0., -0.8660254037844386}, { 0.5, -0.8660254037844386, -0.8660254037844386}, { 0.25, -0.4330127018922193, 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.5, -0.8660254037844386, -0.8660254037844386}, {-0.5, \ -0.8660254037844386, -0.8660254037844386}, {-0.25, -0.4330127018922193, 0}}]]}, { Polygon3DBox[ NCache[{{-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.5, -0.8660254037844386, -0.8660254037844386}, {2., 0., -4.330127018922193}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {-1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-1., 0., Rational[-1, 2] 3^Rational[1, 2]}, { 1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-1., 0., -0.8660254037844386}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {-0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{-0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, { 0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0.8660254037844386, -0.8660254037844386}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}, {1., 1.7320508075688772`, -0.8660254037844382}, {0.5, 0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, 0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 1., 0., Rational[-1, 2] 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386, -0.8660254037844386}, {1., 1.7320508075688772`, -0.8660254037844382}, {2., 2.220446049250313*^-16, -0.8660254037844382}, {1., 0., -0.8660254037844386}}]], Polygon3DBox[ NCache[{{1., 0., Rational[-1, 2] 3^Rational[1, 2]}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{1., 0., -0.8660254037844386}, {2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.5, -0.8660254037844386, -2.598076211353315}, { 0.5, -0.8660254037844386, -0.8660254037844386}}]], Polygon3DBox[ NCache[{{0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.5, -0.8660254037844386, -0.8660254037844386}, { 2.5, -0.8660254037844386, -2.598076211353315}, {2., 0., -4.330127018922193}, {-0.5, -0.8660254037844386, \ -0.8660254037844386}}]]}, { Polygon3DBox[{{2., 0., -4.330127018922193}, {6.25, 2.1650635094610964`, 0.}, {5., 4.330127018922193, 0.}, {1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}}], Polygon3DBox[{{1.0000000000000002`, 1.7320508075688772`, -4.330127018922193}, {5., 4.330127018922193, 0.}, { 2.4999999999999996`, 4.330127018922193, 0.}, {0.5000000000000002, 2.598076211353316, -2.598076211353315}}], Polygon3DBox[{{0.5000000000000002, 2.598076211353316, -2.598076211353315}, {2.4999999999999996`, 4.330127018922193, 0.}, {1.2499999999999996`, 2.1650635094610964`, 0.}, {1., 1.7320508075688772`, -0.8660254037844382}}], Polygon3DBox[{{1., 1.7320508075688772`, -0.8660254037844382}, { 1.2499999999999996`, 2.1650635094610964`, 0.}, {2.4999999999999996`, 0., 0.}, {2., 2.220446049250313*^-16, -0.8660254037844382}}], Polygon3DBox[{{2., 2.220446049250313*^-16, -0.8660254037844382}, { 2.4999999999999996`, 0., 0.}, {5., 0., 0.}, { 2.5, -0.8660254037844386, -2.598076211353315}}], Polygon3DBox[{{2.5, -0.8660254037844386, -2.598076211353315}, {5., 0., 0.}, {6.25, 2.1650635094610964`, 0.}, {2., 0., -4.330127018922193}}]}}}, Boxed->False, ImageSize->800, Lighting->"Neutral", ViewPoint->Dynamic[$CellContext`vp, ImageSizeCache -> {1007., {6., 19.}}], ViewVertical->{-0.003148400963353689, 0.000011376832008398257`, 0.9999950437086885}]], "Output", CellChangeTimes->{3.8243767979838657`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"61d2c66a-b0d6-482a-9211-5bac461ff0ca"] }, Open ]] }, CellGrouping->Manual, WindowSize->{1920, 960}, WindowMargins->{{0, Automatic}, {-39, Automatic}}, CellBracketOptions->{"Color"->RGBColor[0, 0, 1], "Thickness"->3.5, "Widths"->{20, 20}}, Magnification:>2. Inherited, FontColor->GrayLevel[0], Background->RGBColor[0.87, 0.94, 1], FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"], ExpressionUUID->"1fbbe158-c068-4cca-b939-39ca12ebb065" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 410, 6, 191, "Title",ExpressionUUID->"8df8a7c4-bf6b-4c9f-883f-882cc5d43aed"], Cell[993, 30, 1158, 22, 145, "Input",ExpressionUUID->"0a70b776-ffe3-4fd9-a3a3-60ad8c41dd23"] }, Open ]], Cell[2166, 55, 158, 3, 191, "Title",ExpressionUUID->"0ac544ff-126c-49c7-91c8-a88636f4dbd4"], Cell[2327, 60, 18782, 332, 1032, "Output",ExpressionUUID->"9b5119f4-06ce-47ba-85b3-e1a4c2f2092f"], Cell[21112, 394, 17119, 302, 1085, "Output",ExpressionUUID->"7699e6c9-884e-4aed-bdf1-615e13dc8b95"], Cell[38234, 698, 36268, 636, 1660, "Output",ExpressionUUID->"b2b9ae9d-f5a8-47bc-ba05-2d9aa18d7bea"], Cell[CellGroupData[{ Cell[74527, 1338, 674, 17, 135, "Input",ExpressionUUID->"626d0efc-74df-4dbb-9844-87fa96364395"], Cell[75204, 1357, 1023, 35, 131, "Output",ExpressionUUID->"ba593b26-b3c0-41ad-98a7-b06ec743e8ac"] }, Open ]], Cell[76242, 1395, 1154, 30, 103, "Input",ExpressionUUID->"5f19a68c-2fca-4a65-9881-251849f127bd"], Cell[77399, 1427, 2276, 52, 373, "Input",ExpressionUUID->"d8bb42f2-16fb-4148-919c-4535a4c1f5d5"], Cell[CellGroupData[{ Cell[79700, 1483, 404, 7, 103, "Input",ExpressionUUID->"a649eec0-119e-4954-b2d6-ac943add1500"], Cell[80107, 1492, 15318, 279, 1032, "Output",ExpressionUUID->"5678a6ac-2192-4d14-af7b-f3366aabdb7c"] }, Open ]], Cell[95440, 1774, 2450, 56, 373, "Input",ExpressionUUID->"80120bd0-5f3d-47d6-b9f7-e9b5505925c2"], Cell[CellGroupData[{ Cell[97915, 1834, 405, 7, 103, "Input",ExpressionUUID->"53b224ae-1b7e-4a83-96b8-3f01c072d076"], Cell[98323, 1843, 15421, 282, 1032, "Output",ExpressionUUID->"1ac19c42-5d53-492d-a166-003f26ddd6a6"] }, Open ]], Cell[113759, 2128, 3447, 95, 507, "Input",ExpressionUUID->"2ff281dd-5075-444f-93cc-242b132f2758"], Cell[CellGroupData[{ Cell[117231, 2227, 1228, 29, 186, "Input",ExpressionUUID->"04122df6-3e6e-4220-87df-47f2a438ab5d"], Cell[118462, 2258, 17982, 322, 893, "Output",ExpressionUUID->"c4723baf-3246-4df5-997b-aea9ce433ddc"] }, Open ]], Cell[CellGroupData[{ Cell[136481, 2585, 1279, 29, 186, "Input",ExpressionUUID->"a5d6b314-6aeb-47ed-bdc4-872d64883741"], Cell[137763, 2616, 17982, 322, 893, "Output",ExpressionUUID->"7f9a8fa0-03e5-4403-ba0f-0a9602bf9fb6"] }, Open ]], Cell[155760, 2941, 3544, 103, 476, "Input",ExpressionUUID->"4eb49a2c-e4db-43c9-9ba2-3f90a9cea9d5"], Cell[CellGroupData[{ Cell[159329, 3048, 2100, 43, 268, "Input",ExpressionUUID->"fffc4dd5-d9b6-4299-b0af-ad7b9acbfbda"], Cell[161432, 3093, 19964, 360, 779, "Output",ExpressionUUID->"359ff4fd-3a62-4aa5-b09f-a9c45e698de0"] }, Open ]], Cell[181411, 3456, 3622, 78, 565, "Input",ExpressionUUID->"7e4fc48b-a194-4086-b93b-2e9009e73b05"], Cell[CellGroupData[{ Cell[185058, 3538, 202, 3, 103, "Input",ExpressionUUID->"0dc6eac3-a964-41e2-a16e-d53c705ae1f3"], Cell[185263, 3543, 20923, 371, 1236, "Output",ExpressionUUID->"cfc90c1e-1594-4c80-8c8c-c5cbfc51eb4e"] }, Open ]], Cell[CellGroupData[{ Cell[206223, 3919, 275, 5, 128, "Input",ExpressionUUID->"a569554d-41bd-4643-a7a8-c7cd9deecb7a"], Cell[206501, 3926, 20822, 370, 1258, "Output",ExpressionUUID->"6f991004-78bd-458b-b476-4942dae6e5b6"] }, Open ]], Cell[227338, 4299, 1525, 39, 242, "Input",ExpressionUUID->"fd0e14eb-da1a-4302-9c5d-2f8bc23c1f30"], Cell[CellGroupData[{ Cell[228888, 4342, 825, 16, 103, "Input",ExpressionUUID->"47dddc86-1940-4576-b6b5-ed8794463670"], Cell[229716, 4360, 3263, 112, 272, "Output",ExpressionUUID->"e741182c-bc8d-45a8-9b09-40b27fe44846"] }, Open ]], Cell[232994, 4475, 1921, 43, 432, "Input",ExpressionUUID->"a7072d2c-d373-45a2-9d70-31f5c84c0904"], Cell[CellGroupData[{ Cell[234940, 4522, 293, 5, 103, "Input",ExpressionUUID->"f1396343-0c90-4b73-8dcc-645871b67029"], Cell[235236, 4529, 3074, 106, 273, "Output",ExpressionUUID->"031b6f04-3d1c-4527-af9f-bfe6078e1fd8"] }, Open ]], Cell[238325, 4638, 885, 22, 103, "Input",ExpressionUUID->"29f733ca-14aa-4a03-9868-71b28baa84de"], Cell[CellGroupData[{ Cell[239235, 4664, 1131, 26, 205, "Input",ExpressionUUID->"0fa520ef-c9e9-4df2-a524-46ca9b19484e"], Cell[240369, 4692, 18373, 328, 1279, "Output",ExpressionUUID->"21277c59-7d80-44bf-a947-1aed37dce703"] }, Open ]], Cell[258757, 5023, 3502, 79, 391, "Input",ExpressionUUID->"c1453bd1-fc90-440b-aa4a-0e17a640f4cc"], Cell[CellGroupData[{ Cell[262284, 5106, 310, 5, 103, "Input",ExpressionUUID->"3ced6eeb-a3ff-470e-85e6-e7cebaf89ba4"], Cell[262597, 5113, 13805, 243, 1053, "Output",ExpressionUUID->"36c2895b-d675-453c-9a39-65032a1d4f7d"] }, Open ]], Cell[CellGroupData[{ Cell[276439, 5361, 1089, 23, 227, "Input",ExpressionUUID->"ba301ab4-ae33-4cc0-83fb-7449352b3a60"], Cell[277531, 5386, 29041, 521, 1621, "Output",ExpressionUUID->"0f96f467-eedc-4b41-af10-83adfc27499c"] }, Open ]], Cell[CellGroupData[{ Cell[306609, 5912, 971, 20, 227, "Input",ExpressionUUID->"ed3ebb29-aa4f-4172-90ce-204fe8d8b35f"], Cell[307583, 5934, 29036, 520, 1641, "Output",ExpressionUUID->"1fc36c6c-d831-449d-a46d-0179031d02c2"] }, Open ]], Cell[CellGroupData[{ Cell[336656, 6459, 997, 20, 227, "Input",ExpressionUUID->"39f0c332-94ad-4ff6-8c0c-1b15bfb2d315"], Cell[337656, 6481, 29036, 520, 1660, "Output",ExpressionUUID->"743dcc59-2575-4d5d-9296-70ba7b4aa772"] }, Open ]], Cell[CellGroupData[{ Cell[366729, 7006, 1051, 21, 227, "Input",ExpressionUUID->"9e7769c8-d2eb-42cd-98c1-b78726290167"], Cell[367783, 7029, 29031, 518, 1561, "Output",ExpressionUUID->"1a0f34b4-f67f-4bea-8cec-ed03187ab7a0"] }, Open ]], Cell[396829, 7550, 955, 21, 270, "Input",ExpressionUUID->"819fa7e8-b563-45d8-8016-e97ebc8e965c"], Cell[CellGroupData[{ Cell[397809, 7575, 244, 4, 103, "Input",ExpressionUUID->"e2fe060b-022c-4cb7-995a-a1849ecd64af"], Cell[398056, 7581, 296, 7, 103, "Output",ExpressionUUID->"e3e7dff8-fb06-41b8-9983-189b82a2e57f"] }, Open ]], Cell[CellGroupData[{ Cell[398389, 7593, 564, 12, 186, "Input",ExpressionUUID->"1edb82d2-4047-4787-9aae-a3c30e88828f"], Cell[398956, 7607, 233, 5, 103, "Output",ExpressionUUID->"0fb73dcb-ba79-4908-98a8-7117d215c5b3"] }, Open ]], Cell[CellGroupData[{ Cell[399226, 7617, 591, 12, 227, "Input",ExpressionUUID->"05d77531-b004-4c9e-858f-54b9e68e03e8"], Cell[399820, 7631, 28999, 520, 1624, "Output",ExpressionUUID->"511c234f-0965-48d8-ab38-22fcaa6b57aa"] }, Open ]], Cell[CellGroupData[{ Cell[428856, 8156, 206, 3, 103, "Input",ExpressionUUID->"fbe866a6-0024-4817-8568-4c8fe636b80b"], Cell[429065, 8161, 233, 4, 103, "Output",ExpressionUUID->"84eda627-eece-4630-b166-2fcb37fabbfa"] }, Open ]], Cell[CellGroupData[{ Cell[429335, 8170, 671, 14, 227, "Input",ExpressionUUID->"624d1c61-1f96-4143-ae1a-388f58504ddb"], Cell[430009, 8186, 28983, 519, 1681, "Output",ExpressionUUID->"61d2c66a-b0d6-482a-9211-5bac461ff0ca"] }, Open ]] } ] *)