(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 124453, 2957] NotebookOptionsPosition[ 121605, 2856] NotebookOutlinePosition[ 122081, 2875] CellTagsIndexPosition[ 122038, 2872] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["mPower: FacetNormals example", "Title", CellChangeTimes->{{3.4044994311672792`*^9, 3.4044994367471457`*^9}}], Cell[TextData[{ "19 Nov 2007 Upgraded to ", StyleBox["Mathematica", FontSlant->"Italic"], " Version 6" }], "Text", CellChangeTimes->{{3.404499393169001*^9, 3.404499404054018*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"points", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "2.1", ",", "3."}], "}"}], ",", RowBox[{"{", RowBox[{"9.4", ",", "4.2", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", "10.1", ",", RowBox[{"-", "2.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.3"}], ",", "6.6", ",", RowBox[{"-", "3.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1"}], ",", RowBox[{"-", "6.4"}], ",", "0.9"}], "}"}], ",", RowBox[{"{", RowBox[{"5.7", ",", RowBox[{"-", "7.1"}], ",", "3.3"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "1.5", ",", "12."}], "}"}], ",", RowBox[{"{", RowBox[{"10.4", ",", "6.8", ",", "14.1"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4", ",", "11.", ",", "14."}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8"}], ",", "3.6", ",", "9."}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9"}], ",", "1.", ",", "15."}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7"}], ",", RowBox[{"-", "7.4"}], ",", "11."}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "11.6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4", ",", RowBox[{"-", "9.7"}], ",", RowBox[{"-", "14.6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.3", ",", RowBox[{"-", "3.6"}], ",", RowBox[{"-", "8.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8", ",", "7.3", ",", RowBox[{"-", "13.7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4"}], ",", "8.4", ",", RowBox[{"-", "7.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6"}], ",", "2.7", ",", RowBox[{"-", "12.9"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ch", "=", RowBox[{"convexHull", "[", RowBox[{"points", ",", RowBox[{"convexHullFormat", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"facetNormals", "\[Rule]", " ", "True"}], ",", RowBox[{"facets", "\[Rule]", " ", "True"}]}], "}"}]}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vertexCoordinates", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}]}], "}"}]}], ",", RowBox[{"vertices", "\[Rule]", RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18"}], "}"}]}], ",", RowBox[{"facets", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14", ",", "16", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "16", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "14", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "16", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "12", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "15", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "2", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "17", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "17", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "12", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "15", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "17", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "4", ",", "18"}], "}"}]}], "}"}]}], ",", RowBox[{"facetNormals", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0682802096792786`"}], ",", "0.07035863770784748`", ",", RowBox[{"-", "0.9951821316050895`"}], ",", RowBox[{"-", "13.68330783243792`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0342211181810412`", ",", "0.0644854195723994`", ",", "0.9973317129887183`", ",", RowBox[{"-", "14.85677763531607`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6424524332520092`", ",", "0.7631702968559552`", ",", RowBox[{"-", "0.06946919465033292`"}], ",", RowBox[{"-", "10.8915476798717`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7125344493805771`"}], ",", RowBox[{"-", "0.6551009421257196`"}], ",", RowBox[{"-", "0.2512715942400021`"}], ",", RowBox[{"-", "8.312961736010125`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.7269071107673338`", ",", RowBox[{"-", "0.1526941624593228`"}], ",", RowBox[{"-", "0.669545028408645`"}], ",", RowBox[{"-", "13.00106785646325`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5577217853516001`"}], ",", "0.6286515594468383`", ",", "0.5419812053469033`", ",", RowBox[{"-", "11.49120638787323`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9674607800801585`"}], ",", RowBox[{"-", "0.2367585046334751`"}], ",", "0.08924712595042981`", ",", RowBox[{"-", "7.497087601498594`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8892180707974748`"}], ",", RowBox[{"-", "0.3695750901204901`"}], ",", "0.2696395284999004`", ",", RowBox[{"-", "8.032186384285643`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1456317207425346`", ",", "0.9815686130710054`", ",", RowBox[{"-", "0.1237516050297174`"}], ",", RowBox[{"-", "9.851143565374702`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.537432621404957`"}], ",", "0.8167224461531041`", ",", "0.2100729002024923`", ",", RowBox[{"-", "9.022831354932267`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1908391057899001`", ",", RowBox[{"-", "0.36182498861076`"}], ",", "0.912503760714516`", ",", RowBox[{"-", "12.39061980373647`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8275637677294727`"}], ",", RowBox[{"-", "0.4650155705206583`"}], ",", "0.314481683909804`", ",", RowBox[{"-", "8.30727215000082`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3019494010814595`"}], ",", RowBox[{"-", "0.9525968715256774`"}], ",", "0.03722579140918256`", ",", RowBox[{"-", "7.972014536629501`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9400132381879149`", ",", "0.3208252363038451`", ",", RowBox[{"-", "0.1159580949397328`"}], ",", RowBox[{"-", "10.32274014537023`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9955548680592183`", ",", "0.05723746102731859`", ",", RowBox[{"-", "0.074795572988905`"}], ",", RowBox[{"-", "9.688367783658077`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9753614524025949`", ",", "0.1439537047456756`", ",", RowBox[{"-", "0.1671746633228122`"}], ",", RowBox[{"-", "9.973612808503605`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2426375708175696`"}], ",", "0.760253554108902`", ",", RowBox[{"-", "0.6026122656339908`"}], ",", RowBox[{"-", "12.15570350262119`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.05764975979936637`"}], ",", "0.9585572285678231`", ",", RowBox[{"-", "0.2790063525360121`"}], ",", RowBox[{"-", "10.42783643165278`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.8957874050145704`", ",", RowBox[{"-", "0.4187324536174541`"}], ",", "0.1490907686772343`", ",", RowBox[{"-", "8.570988165901849`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5817146298486547`", ",", RowBox[{"-", "0.6125227684023516`"}], ",", "0.5351859000466676`", ",", RowBox[{"-", "9.430798515948032`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6700235633950529`", ",", RowBox[{"-", "0.7421733203019455`"}], ",", RowBox[{"-", "0.01572218583344226`"}], ",", RowBox[{"-", "9.036681672245255`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1577637993701577`", ",", RowBox[{"-", "0.980944112113698`"}], ",", "0.1133985560655918`", ",", RowBox[{"-", "8.238172087433608`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5877210751117689`"}], ",", "0.7909156700081792`", ",", "0.1704005305302174`", ",", RowBox[{"-", "8.9651255726732`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5825689752313734`"}], ",", "0.8085351231999062`", ",", "0.08297194495719579`", ",", RowBox[{"-", "9.32357510844538`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9173277235185827`"}], ",", "0.3937044259389223`", ",", "0.05921716525061275`", ",", RowBox[{"-", "9.10544666408058`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7673318275206235`"}], ",", "0.6369489076552691`", ",", RowBox[{"-", "0.07414819964516652`"}], ",", RowBox[{"-", "10.04265937028986`"}]}], "}"}]}], "}"}]}]}], "}"}]], "Output", CellChangeTimes->{3.404498836878182*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Display the points and their convex hull", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot1", "=", RowBox[{"ListPointPlot3D", "[", RowBox[{"points", ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"PointSize", "[", ".02", "]"}]}], "]"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "500"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.404498842429171*^9, 3.404498894289394*^9}}], Cell[BoxData[ Graphics3DBox[ {Hue[0], PointSize[0.02], Point3DBox[{{2.1, 2.1, 3.}, {9.4, 4.2, -1.2}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}, {-6.1, -6.4, 0.9}, {5.7, -7.1, 3.3}, {1.5, 1.5, 12.}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}, {0, 0, -11.6}, {2.4, -9.7, -14.6}, { 9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}}]}, Axes->True, BoxRatios->{1, 1, 0.4}, ImageSize->500, PlotRange->{{-9.6, 10.4}, {-9.7, 11.}, Automatic}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}]], "Output", CellChangeTimes->{{3.404498862357216*^9, 3.404498894540835*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot2", "=", RowBox[{"ListPointPlot3D", "[", RowBox[{ RowBox[{"vertexCoordinates", "/.", "ch"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"PointSize", "[", ".05", "]"}]}], "]"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "500"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.40449891036241*^9, 3.4044989197283154`*^9}}], Cell[BoxData[ Graphics3DBox[ {Hue[0.35], PointSize[0.05], Point3DBox[{{9.4, 4.2, -1.2}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}, {-6.1, -6.4, 0.9}, {5.7, -7.1, 3.3}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}, { 2.4, -9.7, -14.6}, {9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}}]}, Axes->True, BoxRatios->{1, 1, 0.4}, ImageSize->500, PlotRange->{{-9.6, 10.4}, {-9.7, 11.}, Automatic}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}]], "Output", CellChangeTimes->{3.4044989215124903`*^9}] }, Open ]], Cell["The points are in red, their convex hull is in green", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"plot2", ",", "plot1", ",", RowBox[{"ImageSize", "\[Rule]", " ", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.4044989298019247`*^9, 3.4044989383280067`*^9}}], Cell[BoxData[ Graphics3DBox[{ {Hue[0.35], PointSize[0.05], Point3DBox[{{9.4, 4.2, -1.2}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}, {-6.1, -6.4, 0.9}, {5.7, -7.1, 3.3}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}, { 2.4, -9.7, -14.6}, {9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}}]}, {Hue[0], PointSize[0.02], Point3DBox[{{2.1, 2.1, 3.}, {9.4, 4.2, -1.2}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}, {-6.1, -6.4, 0.9}, {5.7, -7.1, 3.3}, {1.5, 1.5, 12.}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}, {0, 0, -11.6}, {2.4, -9.7, -14.6}, { 9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}}]}}, Axes->True, BoxRatios->{1, 1, 0.4}, ImageSize->500, PlotRange->{{-9.6, 10.4}, {-9.7, 11.}, Automatic}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}]], "Output", CellChangeTimes->{{3.4044989302657833`*^9, 3.4044989387800303`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plot the convex hull as a convex 3D convex surface", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"facetIndices", "=", RowBox[{"facets", "/.", "ch"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14", ",", "16", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "16", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "14", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "16", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "12", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "15", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "2", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "17", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "17", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "12", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "15", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "17", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "4", ",", "18"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404498945438901*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"loop", "[", "alist_", "]"}], ":=", " ", RowBox[{"Append", "[", RowBox[{"alist", ",", RowBox[{"alist", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"loopedFacetIndices", "=", RowBox[{"loop", "/@", "facetIndices"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14", ",", "16", ",", "18", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "8", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "16", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "14", ",", "18", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "16", ",", "14", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "11", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5", ",", "18", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10", ",", "11", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "16", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "8", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "12", ",", "14", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "2", ",", "8", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "15", ",", "8", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "2", ",", "16", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "17", ",", "18", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "17", ",", "16", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6", ",", "8", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "12", ",", "8", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "15", ",", "14", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "14", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "10", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "17", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "18", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "4", ",", "18", ",", "17"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.4044989499699783`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"index2xyz", "[", "ijklist_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"points", "[", RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", "ijklist"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"loopedFacetCoordinates", "=", RowBox[{"index2xyz", "/@", "loopedFacetIndices"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404498955700395*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"convexObject", "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"Polygon", "/@", "loopedFacetCoordinates"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "500"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.404498961577985*^9, 3.4044990000754223`*^9}}], Cell[BoxData[ Graphics3DBox[{ Polygon3DBox[{{2.4, -9.7, -14.6}, {6.8, 7.3, -13.7}, {-9.6, 2.7, -12.9}, { 2.4, -9.7, -14.6}}], Polygon3DBox[{{-4.9, 1., 15.}, {5.4, 11., 14.}, {10.4, 6.8, 14.1}, {-4.9, 1., 15.}}], Polygon3DBox[{{5.4, 11., 14.}, {6.8, 7.3, -13.7}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {2.4, -9.7, -14.6}, {-9.6, 2.7, -12.9}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {2.4, -9.7, -14.6}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {5.4, 11., 14.}, {-4.9, 1., 15.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-6.1, -6.4, 0.9}, {-9.6, 2.7, -12.9}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{5.4, 11., 14.}, {-2.3, 10.1, -2.2}, {6.8, 7.3, -13.7}, {5.4, 11., 14.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-2.3, 10.1, -2.2}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-4.9, 1., 15.}, {10.4, 6.8, 14.1}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-6.1, -6.4, 0.9}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-1.7, -7.4, 11.}, { 2.4, -9.7, -14.6}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {9.4, 4.2, -1.2}, {10.4, 6.8, 14.1}, {6.8, 7.3, -13.7}}], Polygon3DBox[{{9.4, 4.2, -1.2}, {9.3, -3.6, -8.5}, {10.4, 6.8, 14.1}, {9.4, 4.2, -1.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {9.4, 4.2, -1.2}, {6.8, 7.3, -13.7}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}, { 6.8, 7.3, -13.7}}], Polygon3DBox[{{-2.3, 10.1, -2.2}, {-5.4, 8.4, -7.4}, {6.8, 7.3, -13.7}, {-2.3, 10.1, -2.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {5.7, -7.1, 3.3}, {10.4, 6.8, 14.1}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {-1.7, -7.4, 11.}, {10.4, 6.8, 14.1}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {9.3, -3.6, -8.5}, {2.4, -9.7, -14.6}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {5.7, -7.1, 3.3}, { 2.4, -9.7, -14.6}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-2.3, 10.1, -2.2}, {-7.8, 3.6, 9.}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-5.4, 8.4, -7.4}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-7.8, 3.6, 9.}, {-9.6, 2.7, -12.9}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-5.4, 8.4, -7.4}, {-7.3, 6.6, -3.2}, {-9.6, 2.7, -12.9}, {-5.4, 8.4, -7.4}}]}, ImageSize->500]], "Output", CellChangeTimes->{{3.404498975518203*^9, 3.404499000867559*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"convexHullWithVertices", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"convexObject", ",", "plot2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "12"}], "}"}], ",", "Automatic"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{3.404499013303084*^9}], Cell[BoxData[ Graphics3DBox[{{ Polygon3DBox[{{2.4, -9.7, -14.6}, {6.8, 7.3, -13.7}, {-9.6, 2.7, -12.9}, { 2.4, -9.7, -14.6}}], Polygon3DBox[{{-4.9, 1., 15.}, {5.4, 11., 14.}, {10.4, 6.8, 14.1}, {-4.9, 1., 15.}}], Polygon3DBox[{{5.4, 11., 14.}, {6.8, 7.3, -13.7}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {2.4, -9.7, -14.6}, {-9.6, 2.7, -12.9}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {2.4, -9.7, -14.6}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {5.4, 11., 14.}, {-4.9, 1., 15.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-6.1, -6.4, 0.9}, {-9.6, 2.7, -12.9}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{5.4, 11., 14.}, {-2.3, 10.1, -2.2}, {6.8, 7.3, -13.7}, { 5.4, 11., 14.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-2.3, 10.1, -2.2}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-4.9, 1., 15.}, {10.4, 6.8, 14.1}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-6.1, -6.4, 0.9}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-1.7, -7.4, 11.}, { 2.4, -9.7, -14.6}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {9.4, 4.2, -1.2}, {10.4, 6.8, 14.1}, { 6.8, 7.3, -13.7}}], Polygon3DBox[{{9.4, 4.2, -1.2}, {9.3, -3.6, -8.5}, {10.4, 6.8, 14.1}, { 9.4, 4.2, -1.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {9.4, 4.2, -1.2}, {6.8, 7.3, -13.7}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}, { 6.8, 7.3, -13.7}}], Polygon3DBox[{{-2.3, 10.1, -2.2}, {-5.4, 8.4, -7.4}, {6.8, 7.3, -13.7}, {-2.3, 10.1, -2.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {5.7, -7.1, 3.3}, {10.4, 6.8, 14.1}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {-1.7, -7.4, 11.}, {10.4, 6.8, 14.1}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {9.3, -3.6, -8.5}, {2.4, -9.7, -14.6}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {5.7, -7.1, 3.3}, { 2.4, -9.7, -14.6}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-2.3, 10.1, -2.2}, {-7.8, 3.6, 9.}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-5.4, 8.4, -7.4}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-7.8, 3.6, 9.}, {-9.6, 2.7, -12.9}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-5.4, 8.4, -7.4}, {-7.3, 6.6, -3.2}, {-9.6, 2.7, -12.9}, {-5.4, 8.4, -7.4}}]}, {Hue[0.35], PointSize[0.05], Point3DBox[{{9.4, 4.2, -1.2}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}, {-6.1, -6.4, 0.9}, {5.7, -7.1, 3.3}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}, { 2.4, -9.7, -14.6}, {9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}}]}}, ImageSize->500, PlotRange->{{-12, 12}, {-12, 12}, Automatic}]], "Output", CellChangeTimes->{3.404499015035717*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Find the centroids of the faces of the convex hull", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"facetCornerCoordinates", "=", RowBox[{"index2xyz", "/@", "facetIndices"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "11.`", ",", "14.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9`"}], ",", "1.`", ",", "15.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.1`"}], ",", RowBox[{"-", "6.4`"}], ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "4.2`", ",", RowBox[{"-", "1.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "7.3`", ",", RowBox[{"-", "13.7`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "6.8`", ",", "14.1`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.3`", ",", RowBox[{"-", "3.6`"}], ",", RowBox[{"-", "8.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.7`"}], ",", RowBox[{"-", "7.4`"}], ",", "11.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", RowBox[{"-", "7.1`"}], ",", "3.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "9.7`"}], ",", RowBox[{"-", "14.6`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3`"}], ",", "10.1`", ",", RowBox[{"-", "2.2`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.8`"}], ",", "3.6`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.4`"}], ",", "8.4`", ",", RowBox[{"-", "7.4`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.3`"}], ",", "6.6`", ",", RowBox[{"-", "3.2`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.6`"}], ",", "2.7`", ",", RowBox[{"-", "12.9`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404499026557321*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"centroid", "[", "alist_", "]"}], ":=", " ", RowBox[{ RowBox[{"(", RowBox[{"Plus", "@@", "alist"}], ")"}], "/", RowBox[{"Length", "[", "alist", "]"}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"centroids", "=", RowBox[{"centroid", "/@", "facetCornerCoordinates"}]}]], "Input", CellChangeTimes->{{3.404499034483267*^9, 3.404499040260314*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1333333333333333`"}], ",", "0.10000000000000023`", ",", RowBox[{"-", "13.733333333333334`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "3.6333333333333333`", ",", "6.266666666666667`", ",", "14.366666666666667`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.533333333333333`", ",", "8.366666666666667`", ",", "4.8`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.433333333333333`"}], ",", RowBox[{"-", "4.466666666666666`"}], ",", RowBox[{"-", "8.866666666666667`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.166666666666666`", ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "12.266666666666666`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.433333333333333`"}], ",", "5.199999999999999`", ",", "12.666666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.833333333333333`"}], ",", RowBox[{"-", "0.03333333333333336`"}], ",", RowBox[{"-", "1.`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.266666666666666`"}], ",", RowBox[{"-", "0.6000000000000002`"}], ",", "8.299999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.3`", ",", "9.466666666666665`", ",", RowBox[{"-", "0.6333333333333329`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5666666666666664`"}], ",", "8.233333333333334`", ",", "6.933333333333334`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.2666666666666666`", ",", "0.13333333333333314`", ",", "13.366666666666667`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.2333333333333325`"}], ",", RowBox[{"-", "4.266666666666667`"}], ",", "8.966666666666665`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7999999999999998`"}], ",", RowBox[{"-", "7.833333333333333`"}], ",", RowBox[{"-", "0.8999999999999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.866666666666667`", ",", "6.1`", ",", RowBox[{"-", "0.2666666666666663`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.7`", ",", "2.466666666666667`", ",", "1.4666666666666663`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5`", ",", "2.6333333333333333`", ",", RowBox[{"-", "7.799999999999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.733333333333333`"}], ",", "6.133333333333334`", ",", RowBox[{"-", "11.333333333333332`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3000000000000001`"}], ",", "8.599999999999998`", ",", RowBox[{"-", "7.766666666666667`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.466666666666667`", ",", RowBox[{"-", "1.2999999999999998`"}], ",", "2.966666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.800000000000001`", ",", RowBox[{"-", "2.5666666666666664`"}], ",", "9.466666666666667`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.800000000000001`", ",", RowBox[{"-", "6.799999999999999`"}], ",", RowBox[{"-", "6.6`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.133333333333333`", ",", RowBox[{"-", "8.066666666666665`"}], ",", RowBox[{"-", "0.10000000000000023`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.799999999999999`"}], ",", "6.766666666666666`", ",", "1.1999999999999997`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.`"}], ",", "8.366666666666667`", ",", RowBox[{"-", "4.266666666666667`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.233333333333333`"}], ",", "4.3`", ",", RowBox[{"-", "2.3666666666666667`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.433333333333332`"}], ",", "5.9`", ",", RowBox[{"-", "7.833333333333333`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404499041510861*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"centroidPlot", "=", RowBox[{"ListPointPlot3D", "[", RowBox[{"centroids", ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "500"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".2", ",", "1"}], "]"}], ",", " ", RowBox[{"PointSize", "[", ".03", "]"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4044990495513897`*^9, 3.404499062701034*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"centroidObjectPlot", "=", RowBox[{"Show", "[", RowBox[{"convexObject", ",", "centroidPlot"}], "]"}]}]], "Input", CellChangeTimes->{3.404499068671582*^9}], Cell[BoxData[ Graphics3DBox[{{ Polygon3DBox[{{2.4, -9.7, -14.6}, {6.8, 7.3, -13.7}, {-9.6, 2.7, -12.9}, { 2.4, -9.7, -14.6}}], Polygon3DBox[{{-4.9, 1., 15.}, {5.4, 11., 14.}, {10.4, 6.8, 14.1}, {-4.9, 1., 15.}}], Polygon3DBox[{{5.4, 11., 14.}, {6.8, 7.3, -13.7}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {2.4, -9.7, -14.6}, {-9.6, 2.7, -12.9}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {2.4, -9.7, -14.6}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {5.4, 11., 14.}, {-4.9, 1., 15.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-6.1, -6.4, 0.9}, {-9.6, 2.7, -12.9}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{5.4, 11., 14.}, {-2.3, 10.1, -2.2}, {6.8, 7.3, -13.7}, { 5.4, 11., 14.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-2.3, 10.1, -2.2}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-4.9, 1., 15.}, {10.4, 6.8, 14.1}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-6.1, -6.4, 0.9}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-1.7, -7.4, 11.}, { 2.4, -9.7, -14.6}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {9.4, 4.2, -1.2}, {10.4, 6.8, 14.1}, { 6.8, 7.3, -13.7}}], Polygon3DBox[{{9.4, 4.2, -1.2}, {9.3, -3.6, -8.5}, {10.4, 6.8, 14.1}, { 9.4, 4.2, -1.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {9.4, 4.2, -1.2}, {6.8, 7.3, -13.7}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}, { 6.8, 7.3, -13.7}}], Polygon3DBox[{{-2.3, 10.1, -2.2}, {-5.4, 8.4, -7.4}, {6.8, 7.3, -13.7}, {-2.3, 10.1, -2.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {5.7, -7.1, 3.3}, {10.4, 6.8, 14.1}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {-1.7, -7.4, 11.}, {10.4, 6.8, 14.1}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {9.3, -3.6, -8.5}, {2.4, -9.7, -14.6}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {5.7, -7.1, 3.3}, { 2.4, -9.7, -14.6}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-2.3, 10.1, -2.2}, {-7.8, 3.6, 9.}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-5.4, 8.4, -7.4}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-7.8, 3.6, 9.}, {-9.6, 2.7, -12.9}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-5.4, 8.4, -7.4}, {-7.3, 6.6, -3.2}, {-9.6, 2.7, -12.9}, {-5.4, 8.4, -7.4}}]}, {RGBColor[1, 0.2, 1], PointSize[0.03], Point3DBox[{{-0.1333333333333333, 0.10000000000000023`, -13.733333333333334`}, {3.6333333333333333`, 6.266666666666667, 14.366666666666667`}, {7.533333333333333, 8.366666666666667, 4.8}, {-4.433333333333333, -4.466666666666666, -8.866666666666667}, { 6.166666666666666, -2., -12.266666666666666`}, {-2.433333333333333, 5.199999999999999, 12.666666666666666`}, {-7.833333333333333, -0.03333333333333336, -1.}, \ {-6.266666666666666, -0.6000000000000002, 8.299999999999999}, {3.3, 9.466666666666665, -0.6333333333333329}, {-1.5666666666666664`, 8.233333333333334, 6.933333333333334}, {1.2666666666666666`, 0.13333333333333314`, 13.366666666666667`}, {-4.2333333333333325`, -4.266666666666667, 8.966666666666665}, {-1.7999999999999998`, -7.833333333333333, \ -0.8999999999999999}, {8.866666666666667, 6.1, -0.2666666666666663}, {9.7, 2.466666666666667, 1.4666666666666663`}, {8.5, 2.6333333333333333`, -7.799999999999999}, {-2.733333333333333, 6.133333333333334, -11.333333333333332`}, {-0.3000000000000001, 8.599999999999998, -7.766666666666667}, { 8.466666666666667, -1.2999999999999998`, 2.966666666666666}, { 4.800000000000001, -2.5666666666666664`, 9.466666666666667}, { 5.800000000000001, -6.799999999999999, -6.6}, { 2.133333333333333, -8.066666666666665, -0.10000000000000023`}, \ {-5.799999999999999, 6.766666666666666, 1.1999999999999997`}, {-5., 8.366666666666667, -4.266666666666667}, {-8.233333333333333, 4.3, -2.3666666666666667`}, {-7.433333333333332, 5.9, -7.833333333333333}}]}}, ImageSize->500]], "Output", CellChangeTimes->{3.4044990691031322`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plot the Normal Vectors at the centroids of each facet", "Section"], Cell[BoxData[ RowBox[{"<<", "VectorFieldPlots`"}]], "Input", CellChangeTimes->{{3.404499274654686*^9, 3.404499287298897*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vectors", "=", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", "3"}], "]"}], "&"}], "/@", RowBox[{"(", RowBox[{"facetNormals", "/.", "ch"}], ")"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0682802096792786`"}], ",", "0.07035863770784748`", ",", RowBox[{"-", "0.9951821316050895`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0342211181810412`", ",", "0.0644854195723994`", ",", "0.9973317129887183`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6424524332520092`", ",", "0.7631702968559552`", ",", RowBox[{"-", "0.06946919465033292`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7125344493805771`"}], ",", RowBox[{"-", "0.6551009421257196`"}], ",", RowBox[{"-", "0.2512715942400021`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.7269071107673338`", ",", RowBox[{"-", "0.1526941624593228`"}], ",", RowBox[{"-", "0.669545028408645`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5577217853516001`"}], ",", "0.6286515594468383`", ",", "0.5419812053469033`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9674607800801585`"}], ",", RowBox[{"-", "0.2367585046334751`"}], ",", "0.08924712595042981`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8892180707974748`"}], ",", RowBox[{"-", "0.3695750901204901`"}], ",", "0.2696395284999004`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1456317207425346`", ",", "0.9815686130710054`", ",", RowBox[{"-", "0.1237516050297174`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.537432621404957`"}], ",", "0.8167224461531041`", ",", "0.2100729002024923`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1908391057899001`", ",", RowBox[{"-", "0.36182498861076`"}], ",", "0.912503760714516`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8275637677294727`"}], ",", RowBox[{"-", "0.4650155705206583`"}], ",", "0.314481683909804`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3019494010814595`"}], ",", RowBox[{"-", "0.9525968715256774`"}], ",", "0.03722579140918256`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9400132381879149`", ",", "0.3208252363038451`", ",", RowBox[{"-", "0.1159580949397328`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9955548680592183`", ",", "0.05723746102731859`", ",", RowBox[{"-", "0.074795572988905`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9753614524025949`", ",", "0.1439537047456756`", ",", RowBox[{"-", "0.1671746633228122`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2426375708175696`"}], ",", "0.760253554108902`", ",", RowBox[{"-", "0.6026122656339908`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.05764975979936637`"}], ",", "0.9585572285678231`", ",", RowBox[{"-", "0.2790063525360121`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.8957874050145704`", ",", RowBox[{"-", "0.4187324536174541`"}], ",", "0.1490907686772343`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5817146298486547`", ",", RowBox[{"-", "0.6125227684023516`"}], ",", "0.5351859000466676`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6700235633950529`", ",", RowBox[{"-", "0.7421733203019455`"}], ",", RowBox[{"-", "0.01572218583344226`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1577637993701577`", ",", RowBox[{"-", "0.980944112113698`"}], ",", "0.1133985560655918`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5877210751117689`"}], ",", "0.7909156700081792`", ",", "0.1704005305302174`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5825689752313734`"}], ",", "0.8085351231999062`", ",", "0.08297194495719579`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9173277235185827`"}], ",", "0.3937044259389223`", ",", "0.05921716525061275`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7673318275206235`"}], ",", "0.6369489076552691`", ",", RowBox[{"-", "0.07414819964516652`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404499310825095*^9}] }, Open ]], Cell[BoxData["}"], "Input", CellChangeTimes->{3.4044993107482357`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"arrowPlot", "=", RowBox[{"ListVectorFieldPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"centroids", ",", "vectors"}], "}"}], "//", "Transpose"}], ",", " ", RowBox[{"ScaleFactor", "\[Rule]", " ", "10"}], ",", " ", RowBox[{"VectorHeads", "\[Rule]", " ", "True"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.404499323425137*^9, 3.404499338253624*^9}}], Cell[BoxData[ Graphics3DBox[{ Line3DBox[{{-0.1333333333333333, 0.10000000000000023`, -13.733333333333334`}, {-0.8161354301261192, 0.8035863770784748, -23.685154649384227`}}], Line3DBox[{{0.3456062103150176, 1.6577659759518908`, -21.69479038617405}, {-0.8161354301261192, 0.8035863770784748, -23.685154649384227`}, {-1.7047562318501415`, \ -0.3320277726263309, -21.69479038617405}}], Line3DBox[{{ 0.31052858131471595`, -0.35737293121569014`, -21.834852507478807`}, \ {-0.8161354301261192, 0.8035863770784748, -23.685154649384227`}, {-1.66967860284984, 1.6831111345412497`, -21.55472826486929}}], Line3DBox[{{0.3456062103150176, 1.6577659759518908`, -21.69479038617405}, { 0.31052858131471595`, -0.35737293121569014`, -21.834852507478807`}, \ {-1.7047562318501415`, -0.3320277726263309, -21.69479038617405}, \ {-1.66967860284984, 1.6831111345412497`, -21.55472826486929}, { 0.3456062103150176, 1.6577659759518908`, -21.69479038617405}}], Line3DBox[{{3.6333333333333333`, 6.266666666666667, 14.366666666666667`}, { 3.975544515143745, 6.9115208623906605`, 24.33998379655385}}], Line3DBox[{{5.168994083873432, 6.1128893638273425`, 22.345320370576413`}, { 3.975544515143745, 6.9115208623906605`, 24.33998379655385}, { 2.6452104736898923`, 7.452210682664381, 22.345320370576413`}}], Line3DBox[{{4.574976091360689, 8.041074738824463, 22.24103021150294}, { 3.975544515143745, 6.9115208623906605`, 24.33998379655385}, { 3.2392284662026363`, 5.5240253076672605`, 22.449610529649885`}}], Line3DBox[{{5.168994083873432, 6.1128893638273425`, 22.345320370576413`}, { 4.574976091360689, 8.041074738824463, 22.24103021150294}, { 2.6452104736898923`, 7.452210682664381, 22.345320370576413`}, { 3.2392284662026363`, 5.5240253076672605`, 22.449610529649885`}, { 5.168994083873432, 6.1128893638273425`, 22.345320370576413`}}], Line3DBox[{{7.533333333333333, 8.366666666666667, 4.8}, { 13.957857665853425`, 15.998369635226219`, 4.105308053496671}}], Line3DBox[{{13.765836381072816`, 13.552017191954736`, 4.244246442797337}, { 13.957857665853425`, 15.998369635226219`, 4.105308053496671}, { 11.580069217625997`, 15.39204089107388, 4.244246442797337}}], Line3DBox[{{12.60904031709174, 14.396107299245411`, 2.8191263039342553`}, { 13.957857665853425`, 15.998369635226219`, 4.105308053496671}, { 12.736865281607074`, 14.547950783783204`, 5.6693665816604195`}}], Line3DBox[{{13.765836381072816`, 13.552017191954736`, 4.244246442797337}, { 12.60904031709174, 14.396107299245411`, 2.8191263039342553`}, { 11.580069217625997`, 15.39204089107388, 4.244246442797337}, { 12.736865281607074`, 14.547950783783204`, 5.6693665816604195`}, { 13.765836381072816`, 13.552017191954736`, 4.244246442797337}}], Line3DBox[{{-4.433333333333333, -4.466666666666666, -8.866666666666667}, \ {-11.558677827139103`, -11.01767608792386, -11.379382609066688`}}], Line3DBox[{{-11.100488169923073`, -8.655827466978138, \ -10.876839420586684`}, {-11.558677827139103`, -11.01767608792386, \ -11.379382609066688`}, {-9.166729686832825, -10.759120940366707`, \ -10.876839420586684`}}], Line3DBox[{{-9.86935997627148, -9.464524915211815, -12.259577451118039`}, \ {-11.558677827139103`, -11.01767608792386, -11.379382609066688`}, \ {-10.397857880484418`, -9.95042349213303, -9.494101390055329}}], Line3DBox[{{-11.100488169923073`, -8.655827466978138, \ -10.876839420586684`}, {-9.86935997627148, -9.464524915211815, \ -12.259577451118039`}, {-9.166729686832825, -10.759120940366707`, \ -10.876839420586684`}, {-10.397857880484418`, -9.95042349213303, \ -9.494101390055329}, {-11.100488169923073`, -8.655827466978138, \ -10.876839420586684`}}], Line3DBox[{{6.166666666666666, -2., -12.266666666666666`}, { 13.435737774340003`, -3.5269416245932277`, -18.962116950753114`}}], Line3DBox[{{ 11.688247062864743`, -4.619612828373838, -17.623026893935826`}, { 13.435737774340003`, -3.5269416245932277`, -18.962116950753114`}, { 12.275600042745928`, -1.8234937709753263`, -17.623026893935826`}}], Line3DBox[{{ 11.045859745945416`, -3.024923665874357, -18.684128992288816`}, { 13.435737774340003`, -3.5269416245932277`, -18.962116950753114`}, { 12.917987359665256`, -3.4181829334748075`, -16.561924795582836`}}], Line3DBox[{{ 11.688247062864743`, -4.619612828373838, -17.623026893935826`}, { 11.045859745945416`, -3.024923665874357, -18.684128992288816`}, { 12.275600042745928`, -1.8234937709753263`, -17.623026893935826`}, { 12.917987359665256`, -3.4181829334748075`, -16.561924795582836`}, { 11.688247062864743`, -4.619612828373838, -17.623026893935826`}}], Line3DBox[{{-2.433333333333333, 5.199999999999999, 12.666666666666666`}, {-8.010551186849334, 11.486515594468381`, 18.0864787201357}}], Line3DBox[{{-5.826469237258554, 11.177278054371413`, 17.00251630944189}, {-8.010551186849334, 11.486515594468381`, 18.0864787201357}, {-7.963745995033712, 9.281146896777997, 17.00251630944189}}], Line3DBox[{{-7.408941341290283, 10.808394392244157`, 15.801958298832574`}, {-8.010551186849334, 11.486515594468381`, 18.0864787201357}, {-6.381273891001983, 9.650030558905254, 18.203074320051208`}}], Line3DBox[{{-5.826469237258554, 11.177278054371413`, 17.00251630944189}, {-7.408941341290283, 10.808394392244157`, 15.801958298832574`}, {-7.963745995033712, 9.281146896777997, 17.00251630944189}, {-6.381273891001983, 9.650030558905254, 18.203074320051208`}, {-5.826469237258554, 11.177278054371413`, 17.00251630944189}}], Line3DBox[{{-7.833333333333333, -0.03333333333333336, -1.}, \ {-17.507941134134917`, -2.4009183796680835`, -0.10752874049570205`}}], Line3DBox[{{-15.912601104760146`, -0.5397772460504666, \ -0.2860229923965616}, {-17.507941134134917`, -2.4009183796680835`, \ -0.10752874049570205`}, {-15.233438043189054`, -3.3150254947518007`, \ -0.2860229923965616}}], Line3DBox[{{-15.69686103897238, -1.957708046049591, -1.7088937256288372`}, \ {-17.507941134134917`, -2.4009183796680835`, -0.10752874049570205`}, \ {-15.44917810897682, -1.8970946947526763`, 1.136847740835714}}], Line3DBox[{{-15.912601104760146`, -0.5397772460504666, \ -0.2860229923965616}, {-15.69686103897238, -1.957708046049591, \ -1.7088937256288372`}, {-15.233438043189054`, -3.3150254947518007`, \ -0.2860229923965616}, {-15.44917810897682, -1.8970946947526763`, 1.136847740835714}, {-15.912601104760146`, -0.5397772460504666, \ -0.2860229923965616}}], Line3DBox[{{-6.266666666666666, -0.6000000000000002, 8.299999999999999}, {-15.158847374641413`, -4.295750901204901, 10.996395284999004`}}], Line3DBox[{{-13.928682900407999`, -2.237428819618531, 10.457116227999203`}, {-15.158847374641413`, -4.295750901204901, 10.996395284999004`}, {-12.832139565684926`, -4.875772622309311, 10.457116227999203`}}], Line3DBox[{{-13.73611212253555, -3.70443643484114, 9.081457183958968}, {-15.158847374641413`, -4.295750901204901, 10.996395284999004`}, {-13.024710343557375`, -3.4087650070867013`, 11.832775272039438`}}], Line3DBox[{{-13.928682900407999`, -2.237428819618531, 10.457116227999203`}, {-13.73611212253555, -3.70443643484114, 9.081457183958968}, {-12.832139565684926`, -4.875772622309311, 10.457116227999203`}, {-13.024710343557375`, -3.4087650070867013`, 11.832775272039438`}, {-13.928682900407999`, -2.237428819618531, 10.457116227999203`}}], Line3DBox[{{3.3, 9.466666666666665, -0.6333333333333329}, { 4.7563172074253455`, 19.282352797376717`, -1.8708493836305067`}}], Line3DBox[{{5.878156844507883, 17.109558670863255`, -1.623346173571072}, { 4.7563172074253455`, 19.282352797376717`, -1.8708493836305067`}, { 3.0519506873726705`, 17.52887247160616, -1.623346173571072}}], Line3DBox[{{4.439108388013754, 17.144341797189533`, -3.0409364976936857`}, {4.7563172074253455`, 19.282352797376717`, -1.8708493836305067`}, {4.4909991438668, 17.494089345279882`, -0.20575584944845793`}}], Line3DBox[{{5.878156844507883, 17.109558670863255`, -1.623346173571072}, { 4.439108388013754, 17.144341797189533`, -3.0409364976936857`}, { 3.0519506873726705`, 17.52887247160616, -1.623346173571072}, { 4.4909991438668, 17.494089345279882`, -0.20575584944845793`}, { 5.878156844507883, 17.109558670863255`, -1.623346173571072}}], Line3DBox[{{-1.5666666666666664`, 8.233333333333334, 6.933333333333334}, {-6.940992880716235, 16.400557794864376`, 9.034062335358257}}], Line3DBox[{{-4.672751973337819, 15.55239683194059, 8.613916534953272}, {-6.940992880716235, 16.400557794864376`, 9.034062335358257}, {-7.059503302474824, 13.981828973175746`, 8.613916534953272}}], Line3DBox[{{-6.031094510434095, 15.01780878944515, 7.217222642292119}, {-6.940992880716235, 16.400557794864376`, 9.034062335358257}, {-5.701160765378547, 14.516417015671186`, 10.010610427614425`}}], Line3DBox[{{-4.672751973337819, 15.55239683194059, 8.613916534953272}, {-6.031094510434095, 15.01780878944515, 7.217222642292119}, {-7.059503302474824, 13.981828973175746`, 8.613916534953272}, {-5.701160765378547, 14.516417015671186`, 10.010610427614425`}, {-4.672751973337819, 15.55239683194059, 8.613916534953272}}], Line3DBox[{{1.2666666666666666`, 0.13333333333333314`, 13.366666666666667`}, {3.1750577245656673`, -3.484916552774266, 22.491704273811827`}}], Line3DBox[{{1.5297938932103852`, -3.4277256575879624`, 20.666696752382794`}, {3.1750577245656673`, -3.484916552774266, 22.491704273811827`}, {4.0569651327613485`, -2.0948074935175303`, 20.666696752382794`}}], Line3DBox[{{3.401525931705346, -3.9142932055826556`, 20.082313444637652`}, {3.1750577245656673`, -3.484916552774266, 22.491704273811827`}, {2.185233094266388, -1.6082399455228369`, 21.251080060127936`}}], Line3DBox[{{1.5297938932103852`, -3.4277256575879624`, 20.666696752382794`}, {3.401525931705346, -3.9142932055826556`, 20.082313444637652`}, {4.0569651327613485`, -2.0948074935175303`, 20.666696752382794`}, {2.185233094266388, -1.6082399455228369`, 21.251080060127936`}, {1.5297938932103852`, -3.4277256575879624`, 20.666696752382794`}}], Line3DBox[{{-4.2333333333333325`, -4.266666666666667, 8.966666666666665}, {-12.508971010628057`, -8.916822371873248, 12.111483505764705`}}], Line3DBox[{{-11.553657519547327`, -6.741368961149229, 11.482520137945096`}, {-12.508971010628057`, -8.916822371873248, 12.111483505764705`}, {-10.154029430790898`, -9.232213500514636, 11.482520137945096`}}], Line3DBox[{{-11.2455059677177, -8.206869929931724, 10.12642936492738}, {-12.508971010628057`, -8.916822371873248, 12.111483505764705`}, {-10.462180982620525`, -7.766712531732141, 12.83861091096281}}], Line3DBox[{{-11.553657519547327`, -6.741368961149229, 11.482520137945096`}, {-11.2455059677177, -8.206869929931724, 10.12642936492738}, {-10.154029430790898`, -9.232213500514636, 11.482520137945096`}, {-10.462180982620525`, -7.766712531732141, 12.83861091096281}, {-11.553657519547327`, -6.741368961149229, 11.482520137945096`}}], Line3DBox[{{-1.7999999999999998`, -7.833333333333333, \ -0.8999999999999999}, {-4.819494010814594, -17.359302048590106`, \ -0.5277420859081744}}], Line3DBox[{{-5.577391770666532, -15.022452829244134`, \ -0.6021936687265395}, {-4.819494010814594, -17.359302048590106`, \ -0.5277420859081744}, {-2.85379864663682, -15.885763781833365`, \ -0.6021936687265395}}], Line3DBox[{{-4.2316639253728505`, -15.504802260298057`, \ -2.029774925897005}, {-4.819494010814594, -17.359302048590106`, \ -0.5277420859081744}, {-4.199526491930501, -15.403414350779443`, 0.8253875884439263}}], Line3DBox[{{-5.577391770666532, -15.022452829244134`, \ -0.6021936687265395}, {-4.2316639253728505`, -15.504802260298057`, \ -2.029774925897005}, {-2.85379864663682, -15.885763781833365`, \ -0.6021936687265395}, {-4.199526491930501, -15.403414350779443`, 0.8253875884439263}, {-5.577391770666532, -15.022452829244134`, \ -0.6021936687265395}}], Line3DBox[{{8.866666666666667, 6.1, -0.2666666666666663}, { 18.266799048545813`, 9.30825236303845, -1.426247616063994}}], Line3DBox[{{16.848207126647814`, 7.314605411713282, -1.1943314261845286`}, {18.266799048545813`, 9.30825236303845, -1.426247616063994}, {15.925338017692157`, 10.018598369148238`, -1.1943314261845286`}}], Line3DBox[{{16.22999763613268, 8.613094818554147, -2.6132658641415123`}, { 18.266799048545813`, 9.30825236303845, -1.426247616063994}, { 16.54354750820729, 8.720108962307373, 0.22460301177245512`}}], Line3DBox[{{16.848207126647814`, 7.314605411713282, -1.1943314261845286`}, {16.22999763613268, 8.613094818554147, -2.6132658641415123`}, {15.925338017692157`, 10.018598369148238`, -1.1943314261845286`}, {16.54354750820729, 8.720108962307373, 0.22460301177245512`}, {16.848207126647814`, 7.314605411713282, -1.1943314261845286`}}], Line3DBox[{{9.7, 2.466666666666667, 1.4666666666666663`}, { 19.655548680592183`, 3.0390412769398525`, 0.7187109367776164}}], Line3DBox[{{17.746436430080898`, 1.498350123423549, 0.8683020827554264}, { 19.655548680592183`, 3.0390412769398525`, 0.7187109367776164}, { 17.58244145886659, 4.350782586346882, 0.8683020827554264}}], Line3DBox[{{17.557764284235493`, 2.918433305965579, -0.5562677572680859}, { 19.655548680592183`, 3.0390412769398525`, 0.7187109367776164}, { 17.771113604711996`, 2.930699403804852, 2.2928719227789385`}}], Line3DBox[{{17.746436430080898`, 1.498350123423549, 0.8683020827554264}, { 17.557764284235493`, 2.918433305965579, -0.5562677572680859}, { 17.58244145886659, 4.350782586346882, 0.8683020827554264}, { 17.771113604711996`, 2.930699403804852, 2.2928719227789385`}, { 17.746436430080898`, 1.498350123423549, 0.8683020827554264}}], Line3DBox[{{8.5, 2.6333333333333333`, -7.799999999999999}, { 18.25361452402595, 4.072870380790089, -9.47174663322812}}], Line3DBox[{{16.511475102589774`, 2.3717010504233964`, -9.137397306582496}, {18.25361452402595, 4.072870380790089, -9.47174663322812}, {16.094308135851744`, 5.198224892174078, -9.137397306582496}}], Line3DBox[{{16.066630033411474`, 3.750093097691823, -10.545864871532478`}, {18.25361452402595, 4.072870380790089, -9.47174663322812}, {16.539153205030043`, 3.819832844905652, -7.7289297416325144`}}], Line3DBox[{{16.511475102589774`, 2.3717010504233964`, -9.137397306582496}, {16.066630033411474`, 3.750093097691823, -10.545864871532478`}, {16.094308135851744`, 5.198224892174078, -9.137397306582496}, {16.539153205030043`, 3.819832844905652, -7.7289297416325144`}, {16.511475102589774`, 2.3717010504233964`, -9.137397306582496}}], Line3DBox[{{-2.733333333333333, 6.133333333333334, -11.333333333333332`}, {-5.1597090415090285`, 13.735868874422353`, -17.35945598967324}}], Line3DBox[{{-3.3134939624456656`, 12.649710489287134`, -16.15423145840526}, {-5.1597090415090285`, 13.735868874422353`, -17.35945598967324}, {-6.035373837302114, 11.781013043121963`, -16.15423145840526}}], Line3DBox[{{-4.412690031781861, 11.395242667119145`, -17.294280201820285`}, {-5.1597090415090285`, 13.735868874422353`, -17.35945598967324}, {-4.936177767965918, 13.035480865289951`, -15.014182714990234`}}], Line3DBox[{{-3.3134939624456656`, 12.649710489287134`, -16.15423145840526}, {-4.412690031781861, 11.395242667119145`, -17.294280201820285`}, {-6.035373837302114, 11.781013043121963`, -16.15423145840526}, {-4.936177767965918, 13.035480865289951`, -15.014182714990234`}, {-3.3134939624456656`, 12.649710489287134`, -16.15423145840526}}], Line3DBox[{{-0.3000000000000001, 8.599999999999998, -7.766666666666667}, {-0.8764975979936636, 18.185572285678226`, -10.556730192026787`}}], Line3DBox[{{0.6647967047242335, 16.35422032062122, -9.998717486954764}, {-0.8764975979936636, 18.185572285678226`, -10.556730192026787`}, {-2.1871928615140956`, 16.18269533646394, -9.998717486954764}}], Line3DBox[{{-0.7372697982956714, 15.87059622536912, -11.370559281281773`}, {-0.8764975979936636, 18.185572285678226`, -10.556730192026787`}, {-0.7851263584941904, 16.66631943171604, -8.626875692627754}}], Line3DBox[{{0.6647967047242335, 16.35422032062122, -9.998717486954764}, {-0.7372697982956714, 15.87059622536912, -11.370559281281773`}, {-2.1871928615140956`, 16.18269533646394, -9.998717486954764}, {-0.7851263584941904, 16.66631943171604, -8.626875692627754}, {0.6647967047242335, 16.35422032062122, -9.998717486954764}}], Line3DBox[{{8.466666666666667, -1.2999999999999998`, 2.966666666666666}, { 17.42454071681237, -5.48732453617454, 4.457574353439009}}], Line3DBox[{{15.028015467475935`, -5.944020087504381, 4.15939281608454}, { 17.42454071681237, -5.48732453617454, 4.457574353439009}, { 16.237916346090525`, -3.355699170374883, 4.15939281608454}}], Line3DBox[{{15.825913284342331`, -4.740052154947588, 2.7467877954662563`}, {17.42454071681237, -5.48732453617454, 4.457574353439009}, {15.44001852922413, -4.559667102931677, 5.571997836702824}}], Line3DBox[{{15.028015467475935`, -5.944020087504381, 4.15939281608454}, { 15.825913284342331`, -4.740052154947588, 2.7467877954662563`}, { 16.237916346090525`, -3.355699170374883, 4.15939281608454}, { 15.44001852922413, -4.559667102931677, 5.571997836702824}, { 15.028015467475935`, -5.944020087504381, 4.15939281608454}}], Line3DBox[{{4.800000000000001, -2.5666666666666664`, 9.466666666666667}, { 10.617146298486547`, -8.691894350690182, 14.818525667133342`}}], Line3DBox[{{8.41784988243257, -8.450614823113366, 13.748153867040006`}, { 10.617146298486547`, -8.691894350690182, 14.818525667133342`}, { 10.489584195145909`, -6.4830828046575935`, 13.748153867040006`}}], Line3DBox[{{9.980214735873183, -8.021230310289006, 12.541390568815661`}, { 10.617146298486547`, -8.691894350690182, 14.818525667133342`}, { 8.927219341705296, -6.912467317481954, 14.954917165264352`}}], Line3DBox[{{8.41784988243257, -8.450614823113366, 13.748153867040006`}, { 9.980214735873183, -8.021230310289006, 12.541390568815661`}, { 10.489584195145909`, -6.4830828046575935`, 13.748153867040006`}, { 8.927219341705296, -6.912467317481954, 14.954917165264352`}, { 8.41784988243257, -8.450614823113366, 13.748153867040006`}}], Line3DBox[{{5.800000000000001, -6.799999999999999, -6.6}, { 12.500235633950528`, -14.221733203019452`, -6.757221858334423}}], Line3DBox[{{ 10.099809842651226`, -13.694681404344788`, -6.725777486667537}, { 12.500235633950528`, -14.221733203019452`, -6.757221858334423}, { 12.220567171669622`, -11.780091720486336`, -6.725777486667537}}], Line3DBox[{{ 11.145137739758217`, -12.720715091998331`, -8.154172342092796}, { 12.500235633950528`, -14.221733203019452`, -6.757221858334423}, { 11.17523927456263, -12.754058032832793`, -5.29738263124228}}], Line3DBox[{{ 10.099809842651226`, -13.694681404344788`, -6.725777486667537}, { 11.145137739758217`, -12.720715091998331`, -8.154172342092796}, { 12.220567171669622`, -11.780091720486336`, -6.725777486667537}, { 11.17523927456263, -12.754058032832793`, -5.29738263124228}, { 10.099809842651226`, -13.694681404344788`, -6.725777486667537}}], Line3DBox[{{ 2.133333333333333, -8.066666666666665, -0.10000000000000023`}, { 3.710971327034909, -17.876107787803644`, 1.0339855606559174`}}], Line3DBox[{{1.9849970227558265`, -16.141059633593535`, 0.807188448524734}, {3.710971327034909, -17.876107787803644`, 1.0339855606559174`}, {4.805890433833362, -15.687379493558959`, 0.807188448524734}}], Line3DBox[{{ 3.4211670646923724`, -16.074162183391817`, -0.6121680940190031}, { 3.710971327034909, -17.876107787803644`, 1.0339855606559174`}, { 3.369720391896816, -15.754276943760681`, 2.2265449910684714`}}], Line3DBox[{{1.9849970227558265`, -16.141059633593535`, 0.807188448524734}, { 3.4211670646923724`, -16.074162183391817`, -0.6121680940190031}, { 4.805890433833362, -15.687379493558959`, 0.807188448524734}, { 3.369720391896816, -15.754276943760681`, 2.2265449910684714`}, { 1.9849970227558265`, -16.141059633593535`, 0.807188448524734}}], Line3DBox[{{-5.799999999999999, 6.766666666666666, 1.1999999999999997`}, {-11.677210751117688`, 14.675823366748457`, 2.9040053053021735`}}], Line3DBox[{{-9.355119190023203, 13.946055084891485`, 2.5632042442417386`}, {-11.677210751117688`, 14.675823366748457`, 2.9040053053021735`}, {-11.648418011765095`, 12.241928968572713`, 2.5632042442417386`}}], Line3DBox[{{-10.646960598049708`, 13.28938169467667, 1.155525840573805}, {-11.677210751117688`, 14.675823366748457`, 2.9040053053021735`}, {-10.35657660373859, 12.898602358787528`, 3.970882647909672}}], Line3DBox[{{-9.355119190023203, 13.946055084891485`, 2.5632042442417386`}, {-10.646960598049708`, 13.28938169467667, 1.155525840573805}, {-11.648418011765095`, 12.241928968572713`, 2.5632042442417386`}, {-10.35657660373859, 12.898602358787528`, 3.970882647909672}, {-9.355119190023203, 13.946055084891485`, 2.5632042442417386`}}], Line3DBox[{{-5., 8.366666666666667, -4.266666666666667}, {-10.825689752313732`, 16.45201789866573, -3.436947217094709}}], Line3DBox[{{-8.501505097694729, 15.670068639976757`, -3.6028911070091003`}, {-10.825689752313732`, 16.45201789866573, -3.436947217094709}, {-10.819598506007242`, 13.999826664555076`, -3.6028911070091003`}}], Line3DBox[{{-9.729843414475928, 14.93111601160599, -5.026536654753441}, {-10.825689752313732`, 16.45201789866573, -3.436947217094709}, {-9.591260189226043, 14.738779292925845`, -2.1792455592647593`}}], Line3DBox[{{-8.501505097694729, 15.670068639976757`, -3.6028911070091003`}, {-9.729843414475928, 14.93111601160599, -5.026536654753441}, {-10.819598506007242`, 13.999826664555076`, -3.6028911070091003`}, {-9.591260189226043, 14.738779292925845`, -2.1792455592647593`}, {-8.501505097694729, 15.670068639976757`, -3.6028911070091003`}}], Line3DBox[{{-8.233333333333333, 4.3, -2.3666666666666667`}, {-17.406610568519156`, 8.237044259389222, -1.7744950141605393`}}], Line3DBox[{{-15.00853148860178, 8.762407336081864, -1.8929293446617648`}, {-17.406610568519156`, 8.237044259389222, -1.7744950141605393`}, {-16.135378754362208`, 6.136863478940891, -1.8929293446617648`}}], Line3DBox[{{-15.649693753712517`, 7.482999757885747, -3.3189938073399547`}, {-17.406610568519156`, 8.237044259389222, -1.7744950141605393`}, {-15.49421648925147, 7.41627105713701, -0.46686488198357456`}}], Line3DBox[{{-15.00853148860178, 8.762407336081864, -1.8929293446617648`}, {-15.649693753712517`, 7.482999757885747, -3.3189938073399547`}, {-16.135378754362208`, 6.136863478940891, -1.8929293446617648`}, {-15.49421648925147, 7.41627105713701, -0.46686488198357456`}, {-15.00853148860178, 8.762407336081864, -1.8929293446617648`}}], Line3DBox[{{-7.433333333333332, 5.9, -7.833333333333333}, {-15.106651608539565`, 12.269489076552691`, -8.574815329784998}}], Line3DBox[{{-12.659549211653307`, 12.094805466440986`, -8.426518930494666}, {-15.106651608539565`, 12.269489076552691`, -8.574815329784998}, {-14.48442669534333, 9.89637705604332, -8.426518930494666}}], Line3DBox[{{-13.490483199158433`, 10.927935571247843`, -9.851157835327045}, {-15.106651608539565`, 12.269489076552691`, -8.574815329784998}, {-13.653492707838204`, 11.063246951236462`, -7.001880025662287}}], Line3DBox[{{-12.659549211653307`, 12.094805466440986`, -8.426518930494666}, {-13.490483199158433`, 10.927935571247843`, -9.851157835327045}, {-14.48442669534333, 9.89637705604332, -8.426518930494666}, {-13.653492707838204`, 11.063246951236462`, -7.001880025662287}, {-12.659549211653307`, 12.094805466440986`, -8.426518930494666}}]}, ImageSize->500]], "Output", CellChangeTimes->{{3.4044993135860577`*^9, 3.4044993388263683`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"centroidArrowPlot", "=", RowBox[{"Show", "[", RowBox[{"convexObject", ",", "centroidPlot", ",", "arrowPlot"}], "]"}]}]], "Input", CellChangeTimes->{3.404499348560541*^9}], Cell[BoxData[ Graphics3DBox[{{ Polygon3DBox[{{2.4, -9.7, -14.6}, {6.8, 7.3, -13.7}, {-9.6, 2.7, -12.9}, { 2.4, -9.7, -14.6}}], Polygon3DBox[{{-4.9, 1., 15.}, {5.4, 11., 14.}, {10.4, 6.8, 14.1}, {-4.9, 1., 15.}}], Polygon3DBox[{{5.4, 11., 14.}, {6.8, 7.3, -13.7}, {10.4, 6.8, 14.1}, {5.4, 11., 14.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {2.4, -9.7, -14.6}, {-9.6, 2.7, -12.9}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {6.8, 7.3, -13.7}, {2.4, -9.7, -14.6}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {5.4, 11., 14.}, {-4.9, 1., 15.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-6.1, -6.4, 0.9}, {-9.6, 2.7, -12.9}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-7.8, 3.6, 9.}, {-4.9, 1., 15.}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{5.4, 11., 14.}, {-2.3, 10.1, -2.2}, {6.8, 7.3, -13.7}, { 5.4, 11., 14.}}], Polygon3DBox[{{-7.8, 3.6, 9.}, {-2.3, 10.1, -2.2}, {5.4, 11., 14.}, {-7.8, 3.6, 9.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-4.9, 1., 15.}, {10.4, 6.8, 14.1}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {-6.1, -6.4, 0.9}, {-4.9, 1., 15.}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-6.1, -6.4, 0.9}, {-1.7, -7.4, 11.}, { 2.4, -9.7, -14.6}, {-6.1, -6.4, 0.9}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {9.4, 4.2, -1.2}, {10.4, 6.8, 14.1}, { 6.8, 7.3, -13.7}}], Polygon3DBox[{{9.4, 4.2, -1.2}, {9.3, -3.6, -8.5}, {10.4, 6.8, 14.1}, { 9.4, 4.2, -1.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {9.4, 4.2, -1.2}, {6.8, 7.3, -13.7}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{6.8, 7.3, -13.7}, {-5.4, 8.4, -7.4}, {-9.6, 2.7, -12.9}, { 6.8, 7.3, -13.7}}], Polygon3DBox[{{-2.3, 10.1, -2.2}, {-5.4, 8.4, -7.4}, {6.8, 7.3, -13.7}, {-2.3, 10.1, -2.2}}], Polygon3DBox[{{9.3, -3.6, -8.5}, {5.7, -7.1, 3.3}, {10.4, 6.8, 14.1}, { 9.3, -3.6, -8.5}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {-1.7, -7.4, 11.}, {10.4, 6.8, 14.1}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{5.7, -7.1, 3.3}, {9.3, -3.6, -8.5}, {2.4, -9.7, -14.6}, { 5.7, -7.1, 3.3}}], Polygon3DBox[{{-1.7, -7.4, 11.}, {5.7, -7.1, 3.3}, { 2.4, -9.7, -14.6}, {-1.7, -7.4, 11.}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-2.3, 10.1, -2.2}, {-7.8, 3.6, 9.}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-5.4, 8.4, -7.4}, {-2.3, 10.1, -2.2}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-7.3, 6.6, -3.2}, {-7.8, 3.6, 9.}, {-9.6, 2.7, -12.9}, {-7.3, 6.6, -3.2}}], Polygon3DBox[{{-5.4, 8.4, -7.4}, {-7.3, 6.6, -3.2}, {-9.6, 2.7, -12.9}, {-5.4, 8.4, -7.4}}]}, {RGBColor[1, 0.2, 1], PointSize[0.03], Point3DBox[{{-0.1333333333333333, 0.10000000000000023`, -13.733333333333334`}, {3.6333333333333333`, 6.266666666666667, 14.366666666666667`}, {7.533333333333333, 8.366666666666667, 4.8}, {-4.433333333333333, -4.466666666666666, -8.866666666666667}, { 6.166666666666666, -2., -12.266666666666666`}, {-2.433333333333333, 5.199999999999999, 12.666666666666666`}, {-7.833333333333333, -0.03333333333333336, -1.}, \ {-6.266666666666666, -0.6000000000000002, 8.299999999999999}, {3.3, 9.466666666666665, -0.6333333333333329}, {-1.5666666666666664`, 8.233333333333334, 6.933333333333334}, {1.2666666666666666`, 0.13333333333333314`, 13.366666666666667`}, {-4.2333333333333325`, -4.266666666666667, 8.966666666666665}, {-1.7999999999999998`, -7.833333333333333, \ -0.8999999999999999}, {8.866666666666667, 6.1, -0.2666666666666663}, {9.7, 2.466666666666667, 1.4666666666666663`}, {8.5, 2.6333333333333333`, -7.799999999999999}, {-2.733333333333333, 6.133333333333334, -11.333333333333332`}, {-0.3000000000000001, 8.599999999999998, -7.766666666666667}, { 8.466666666666667, -1.2999999999999998`, 2.966666666666666}, { 4.800000000000001, -2.5666666666666664`, 9.466666666666667}, { 5.800000000000001, -6.799999999999999, -6.6}, { 2.133333333333333, -8.066666666666665, -0.10000000000000023`}, \ {-5.799999999999999, 6.766666666666666, 1.1999999999999997`}, {-5., 8.366666666666667, -4.266666666666667}, {-8.233333333333333, 4.3, -2.3666666666666667`}, {-7.433333333333332, 5.9, -7.833333333333333}}]}, { Line3DBox[{{-0.1333333333333333, 0.10000000000000023`, -13.733333333333334`}, {-0.8161354301261192, 0.8035863770784748, -23.685154649384227`}}], Line3DBox[{{0.3456062103150176, 1.6577659759518908`, -21.69479038617405}, {-0.8161354301261192, 0.8035863770784748, -23.685154649384227`}, {-1.7047562318501415`, \ -0.3320277726263309, -21.69479038617405}}], Line3DBox[{{ 0.31052858131471595`, -0.35737293121569014`, -21.834852507478807`}, \ {-0.8161354301261192, 0.8035863770784748, -23.685154649384227`}, {-1.66967860284984, 1.6831111345412497`, -21.55472826486929}}], Line3DBox[{{0.3456062103150176, 1.6577659759518908`, -21.69479038617405}, { 0.31052858131471595`, -0.35737293121569014`, -21.834852507478807`}, \ {-1.7047562318501415`, -0.3320277726263309, -21.69479038617405}, \ {-1.66967860284984, 1.6831111345412497`, -21.55472826486929}, { 0.3456062103150176, 1.6577659759518908`, -21.69479038617405}}], Line3DBox[{{3.6333333333333333`, 6.266666666666667, 14.366666666666667`}, {3.975544515143745, 6.9115208623906605`, 24.33998379655385}}], Line3DBox[{{5.168994083873432, 6.1128893638273425`, 22.345320370576413`}, {3.975544515143745, 6.9115208623906605`, 24.33998379655385}, {2.6452104736898923`, 7.452210682664381, 22.345320370576413`}}], Line3DBox[{{4.574976091360689, 8.041074738824463, 22.24103021150294}, { 3.975544515143745, 6.9115208623906605`, 24.33998379655385}, { 3.2392284662026363`, 5.5240253076672605`, 22.449610529649885`}}], Line3DBox[{{5.168994083873432, 6.1128893638273425`, 22.345320370576413`}, {4.574976091360689, 8.041074738824463, 22.24103021150294}, {2.6452104736898923`, 7.452210682664381, 22.345320370576413`}, {3.2392284662026363`, 5.5240253076672605`, 22.449610529649885`}, {5.168994083873432, 6.1128893638273425`, 22.345320370576413`}}], Line3DBox[{{7.533333333333333, 8.366666666666667, 4.8}, { 13.957857665853425`, 15.998369635226219`, 4.105308053496671}}], Line3DBox[{{13.765836381072816`, 13.552017191954736`, 4.244246442797337}, {13.957857665853425`, 15.998369635226219`, 4.105308053496671}, {11.580069217625997`, 15.39204089107388, 4.244246442797337}}], Line3DBox[{{12.60904031709174, 14.396107299245411`, 2.8191263039342553`}, {13.957857665853425`, 15.998369635226219`, 4.105308053496671}, {12.736865281607074`, 14.547950783783204`, 5.6693665816604195`}}], Line3DBox[{{13.765836381072816`, 13.552017191954736`, 4.244246442797337}, {12.60904031709174, 14.396107299245411`, 2.8191263039342553`}, {11.580069217625997`, 15.39204089107388, 4.244246442797337}, {12.736865281607074`, 14.547950783783204`, 5.6693665816604195`}, {13.765836381072816`, 13.552017191954736`, 4.244246442797337}}], Line3DBox[{{-4.433333333333333, -4.466666666666666, -8.866666666666667}, \ {-11.558677827139103`, -11.01767608792386, -11.379382609066688`}}], Line3DBox[{{-11.100488169923073`, -8.655827466978138, \ -10.876839420586684`}, {-11.558677827139103`, -11.01767608792386, \ -11.379382609066688`}, {-9.166729686832825, -10.759120940366707`, \ -10.876839420586684`}}], Line3DBox[{{-9.86935997627148, -9.464524915211815, -12.259577451118039`}, \ {-11.558677827139103`, -11.01767608792386, -11.379382609066688`}, \ {-10.397857880484418`, -9.95042349213303, -9.494101390055329}}], Line3DBox[{{-11.100488169923073`, -8.655827466978138, \ -10.876839420586684`}, {-9.86935997627148, -9.464524915211815, \ -12.259577451118039`}, {-9.166729686832825, -10.759120940366707`, \ -10.876839420586684`}, {-10.397857880484418`, -9.95042349213303, \ -9.494101390055329}, {-11.100488169923073`, -8.655827466978138, \ -10.876839420586684`}}], Line3DBox[{{6.166666666666666, -2., -12.266666666666666`}, { 13.435737774340003`, -3.5269416245932277`, -18.962116950753114`}}], Line3DBox[{{ 11.688247062864743`, -4.619612828373838, -17.623026893935826`}, { 13.435737774340003`, -3.5269416245932277`, -18.962116950753114`}, { 12.275600042745928`, -1.8234937709753263`, -17.623026893935826`}}], Line3DBox[{{ 11.045859745945416`, -3.024923665874357, -18.684128992288816`}, { 13.435737774340003`, -3.5269416245932277`, -18.962116950753114`}, { 12.917987359665256`, -3.4181829334748075`, -16.561924795582836`}}], Line3DBox[{{ 11.688247062864743`, -4.619612828373838, -17.623026893935826`}, { 11.045859745945416`, -3.024923665874357, -18.684128992288816`}, { 12.275600042745928`, -1.8234937709753263`, -17.623026893935826`}, { 12.917987359665256`, -3.4181829334748075`, -16.561924795582836`}, { 11.688247062864743`, -4.619612828373838, -17.623026893935826`}}], Line3DBox[{{-2.433333333333333, 5.199999999999999, 12.666666666666666`}, {-8.010551186849334, 11.486515594468381`, 18.0864787201357}}], Line3DBox[{{-5.826469237258554, 11.177278054371413`, 17.00251630944189}, {-8.010551186849334, 11.486515594468381`, 18.0864787201357}, {-7.963745995033712, 9.281146896777997, 17.00251630944189}}], Line3DBox[{{-7.408941341290283, 10.808394392244157`, 15.801958298832574`}, {-8.010551186849334, 11.486515594468381`, 18.0864787201357}, {-6.381273891001983, 9.650030558905254, 18.203074320051208`}}], Line3DBox[{{-5.826469237258554, 11.177278054371413`, 17.00251630944189}, {-7.408941341290283, 10.808394392244157`, 15.801958298832574`}, {-7.963745995033712, 9.281146896777997, 17.00251630944189}, {-6.381273891001983, 9.650030558905254, 18.203074320051208`}, {-5.826469237258554, 11.177278054371413`, 17.00251630944189}}], Line3DBox[{{-7.833333333333333, -0.03333333333333336, -1.}, \ {-17.507941134134917`, -2.4009183796680835`, -0.10752874049570205`}}], Line3DBox[{{-15.912601104760146`, -0.5397772460504666, \ -0.2860229923965616}, {-17.507941134134917`, -2.4009183796680835`, \ -0.10752874049570205`}, {-15.233438043189054`, -3.3150254947518007`, \ -0.2860229923965616}}], Line3DBox[{{-15.69686103897238, -1.957708046049591, \ -1.7088937256288372`}, {-17.507941134134917`, -2.4009183796680835`, \ -0.10752874049570205`}, {-15.44917810897682, -1.8970946947526763`, 1.136847740835714}}], Line3DBox[{{-15.912601104760146`, -0.5397772460504666, \ -0.2860229923965616}, {-15.69686103897238, -1.957708046049591, \ -1.7088937256288372`}, {-15.233438043189054`, -3.3150254947518007`, \ -0.2860229923965616}, {-15.44917810897682, -1.8970946947526763`, 1.136847740835714}, {-15.912601104760146`, -0.5397772460504666, \ -0.2860229923965616}}], Line3DBox[{{-6.266666666666666, -0.6000000000000002, 8.299999999999999}, {-15.158847374641413`, -4.295750901204901, 10.996395284999004`}}], Line3DBox[{{-13.928682900407999`, -2.237428819618531, 10.457116227999203`}, {-15.158847374641413`, -4.295750901204901, 10.996395284999004`}, {-12.832139565684926`, -4.875772622309311, 10.457116227999203`}}], Line3DBox[{{-13.73611212253555, -3.70443643484114, 9.081457183958968}, {-15.158847374641413`, -4.295750901204901, 10.996395284999004`}, {-13.024710343557375`, -3.4087650070867013`, 11.832775272039438`}}], Line3DBox[{{-13.928682900407999`, -2.237428819618531, 10.457116227999203`}, {-13.73611212253555, -3.70443643484114, 9.081457183958968}, {-12.832139565684926`, -4.875772622309311, 10.457116227999203`}, {-13.024710343557375`, -3.4087650070867013`, 11.832775272039438`}, {-13.928682900407999`, -2.237428819618531, 10.457116227999203`}}], Line3DBox[{{3.3, 9.466666666666665, -0.6333333333333329}, { 4.7563172074253455`, 19.282352797376717`, -1.8708493836305067`}}], Line3DBox[{{5.878156844507883, 17.109558670863255`, -1.623346173571072}, { 4.7563172074253455`, 19.282352797376717`, -1.8708493836305067`}, { 3.0519506873726705`, 17.52887247160616, -1.623346173571072}}], Line3DBox[{{4.439108388013754, 17.144341797189533`, -3.0409364976936857`}, {4.7563172074253455`, 19.282352797376717`, -1.8708493836305067`}, {4.4909991438668, 17.494089345279882`, -0.20575584944845793`}}], Line3DBox[{{5.878156844507883, 17.109558670863255`, -1.623346173571072}, { 4.439108388013754, 17.144341797189533`, -3.0409364976936857`}, { 3.0519506873726705`, 17.52887247160616, -1.623346173571072}, { 4.4909991438668, 17.494089345279882`, -0.20575584944845793`}, { 5.878156844507883, 17.109558670863255`, -1.623346173571072}}], Line3DBox[{{-1.5666666666666664`, 8.233333333333334, 6.933333333333334}, {-6.940992880716235, 16.400557794864376`, 9.034062335358257}}], Line3DBox[{{-4.672751973337819, 15.55239683194059, 8.613916534953272}, {-6.940992880716235, 16.400557794864376`, 9.034062335358257}, {-7.059503302474824, 13.981828973175746`, 8.613916534953272}}], Line3DBox[{{-6.031094510434095, 15.01780878944515, 7.217222642292119}, {-6.940992880716235, 16.400557794864376`, 9.034062335358257}, {-5.701160765378547, 14.516417015671186`, 10.010610427614425`}}], Line3DBox[{{-4.672751973337819, 15.55239683194059, 8.613916534953272}, {-6.031094510434095, 15.01780878944515, 7.217222642292119}, {-7.059503302474824, 13.981828973175746`, 8.613916534953272}, {-5.701160765378547, 14.516417015671186`, 10.010610427614425`}, {-4.672751973337819, 15.55239683194059, 8.613916534953272}}], Line3DBox[{{1.2666666666666666`, 0.13333333333333314`, 13.366666666666667`}, {3.1750577245656673`, -3.484916552774266, 22.491704273811827`}}], Line3DBox[{{1.5297938932103852`, -3.4277256575879624`, 20.666696752382794`}, {3.1750577245656673`, -3.484916552774266, 22.491704273811827`}, {4.0569651327613485`, -2.0948074935175303`, 20.666696752382794`}}], Line3DBox[{{3.401525931705346, -3.9142932055826556`, 20.082313444637652`}, {3.1750577245656673`, -3.484916552774266, 22.491704273811827`}, {2.185233094266388, -1.6082399455228369`, 21.251080060127936`}}], Line3DBox[{{1.5297938932103852`, -3.4277256575879624`, 20.666696752382794`}, {3.401525931705346, -3.9142932055826556`, 20.082313444637652`}, {4.0569651327613485`, -2.0948074935175303`, 20.666696752382794`}, {2.185233094266388, -1.6082399455228369`, 21.251080060127936`}, {1.5297938932103852`, -3.4277256575879624`, 20.666696752382794`}}], Line3DBox[{{-4.2333333333333325`, -4.266666666666667, 8.966666666666665}, {-12.508971010628057`, -8.916822371873248, 12.111483505764705`}}], Line3DBox[{{-11.553657519547327`, -6.741368961149229, 11.482520137945096`}, {-12.508971010628057`, -8.916822371873248, 12.111483505764705`}, {-10.154029430790898`, -9.232213500514636, 11.482520137945096`}}], Line3DBox[{{-11.2455059677177, -8.206869929931724, 10.12642936492738}, {-12.508971010628057`, -8.916822371873248, 12.111483505764705`}, {-10.462180982620525`, -7.766712531732141, 12.83861091096281}}], Line3DBox[{{-11.553657519547327`, -6.741368961149229, 11.482520137945096`}, {-11.2455059677177, -8.206869929931724, 10.12642936492738}, {-10.154029430790898`, -9.232213500514636, 11.482520137945096`}, {-10.462180982620525`, -7.766712531732141, 12.83861091096281}, {-11.553657519547327`, -6.741368961149229, 11.482520137945096`}}], Line3DBox[{{-1.7999999999999998`, -7.833333333333333, \ -0.8999999999999999}, {-4.819494010814594, -17.359302048590106`, \ -0.5277420859081744}}], Line3DBox[{{-5.577391770666532, -15.022452829244134`, \ -0.6021936687265395}, {-4.819494010814594, -17.359302048590106`, \ -0.5277420859081744}, {-2.85379864663682, -15.885763781833365`, \ -0.6021936687265395}}], Line3DBox[{{-4.2316639253728505`, -15.504802260298057`, \ -2.029774925897005}, {-4.819494010814594, -17.359302048590106`, \ -0.5277420859081744}, {-4.199526491930501, -15.403414350779443`, 0.8253875884439263}}], Line3DBox[{{-5.577391770666532, -15.022452829244134`, \ -0.6021936687265395}, {-4.2316639253728505`, -15.504802260298057`, \ -2.029774925897005}, {-2.85379864663682, -15.885763781833365`, \ -0.6021936687265395}, {-4.199526491930501, -15.403414350779443`, 0.8253875884439263}, {-5.577391770666532, -15.022452829244134`, \ -0.6021936687265395}}], Line3DBox[{{8.866666666666667, 6.1, -0.2666666666666663}, { 18.266799048545813`, 9.30825236303845, -1.426247616063994}}], Line3DBox[{{16.848207126647814`, 7.314605411713282, -1.1943314261845286`}, {18.266799048545813`, 9.30825236303845, -1.426247616063994}, {15.925338017692157`, 10.018598369148238`, -1.1943314261845286`}}], Line3DBox[{{16.22999763613268, 8.613094818554147, -2.6132658641415123`}, { 18.266799048545813`, 9.30825236303845, -1.426247616063994}, { 16.54354750820729, 8.720108962307373, 0.22460301177245512`}}], Line3DBox[{{16.848207126647814`, 7.314605411713282, -1.1943314261845286`}, {16.22999763613268, 8.613094818554147, -2.6132658641415123`}, {15.925338017692157`, 10.018598369148238`, -1.1943314261845286`}, {16.54354750820729, 8.720108962307373, 0.22460301177245512`}, {16.848207126647814`, 7.314605411713282, -1.1943314261845286`}}], Line3DBox[{{9.7, 2.466666666666667, 1.4666666666666663`}, { 19.655548680592183`, 3.0390412769398525`, 0.7187109367776164}}], Line3DBox[{{17.746436430080898`, 1.498350123423549, 0.8683020827554264}, { 19.655548680592183`, 3.0390412769398525`, 0.7187109367776164}, { 17.58244145886659, 4.350782586346882, 0.8683020827554264}}], Line3DBox[{{17.557764284235493`, 2.918433305965579, -0.5562677572680859}, {19.655548680592183`, 3.0390412769398525`, 0.7187109367776164}, {17.771113604711996`, 2.930699403804852, 2.2928719227789385`}}], Line3DBox[{{17.746436430080898`, 1.498350123423549, 0.8683020827554264}, { 17.557764284235493`, 2.918433305965579, -0.5562677572680859}, { 17.58244145886659, 4.350782586346882, 0.8683020827554264}, { 17.771113604711996`, 2.930699403804852, 2.2928719227789385`}, { 17.746436430080898`, 1.498350123423549, 0.8683020827554264}}], Line3DBox[{{8.5, 2.6333333333333333`, -7.799999999999999}, { 18.25361452402595, 4.072870380790089, -9.47174663322812}}], Line3DBox[{{16.511475102589774`, 2.3717010504233964`, -9.137397306582496}, {18.25361452402595, 4.072870380790089, -9.47174663322812}, {16.094308135851744`, 5.198224892174078, -9.137397306582496}}], Line3DBox[{{16.066630033411474`, 3.750093097691823, -10.545864871532478`}, {18.25361452402595, 4.072870380790089, -9.47174663322812}, {16.539153205030043`, 3.819832844905652, -7.7289297416325144`}}], Line3DBox[{{16.511475102589774`, 2.3717010504233964`, -9.137397306582496}, {16.066630033411474`, 3.750093097691823, -10.545864871532478`}, {16.094308135851744`, 5.198224892174078, -9.137397306582496}, {16.539153205030043`, 3.819832844905652, -7.7289297416325144`}, {16.511475102589774`, 2.3717010504233964`, -9.137397306582496}}], Line3DBox[{{-2.733333333333333, 6.133333333333334, -11.333333333333332`}, {-5.1597090415090285`, 13.735868874422353`, -17.35945598967324}}], Line3DBox[{{-3.3134939624456656`, 12.649710489287134`, -16.15423145840526}, {-5.1597090415090285`, 13.735868874422353`, -17.35945598967324}, {-6.035373837302114, 11.781013043121963`, -16.15423145840526}}], Line3DBox[{{-4.412690031781861, 11.395242667119145`, -17.294280201820285`}, {-5.1597090415090285`, 13.735868874422353`, -17.35945598967324}, {-4.936177767965918, 13.035480865289951`, -15.014182714990234`}}], Line3DBox[{{-3.3134939624456656`, 12.649710489287134`, -16.15423145840526}, {-4.412690031781861, 11.395242667119145`, -17.294280201820285`}, {-6.035373837302114, 11.781013043121963`, -16.15423145840526}, {-4.936177767965918, 13.035480865289951`, -15.014182714990234`}, {-3.3134939624456656`, 12.649710489287134`, -16.15423145840526}}], Line3DBox[{{-0.3000000000000001, 8.599999999999998, -7.766666666666667}, {-0.8764975979936636, 18.185572285678226`, -10.556730192026787`}}], Line3DBox[{{0.6647967047242335, 16.35422032062122, -9.998717486954764}, {-0.8764975979936636, 18.185572285678226`, -10.556730192026787`}, {-2.1871928615140956`, 16.18269533646394, -9.998717486954764}}], Line3DBox[{{-0.7372697982956714, 15.87059622536912, -11.370559281281773`}, {-0.8764975979936636, 18.185572285678226`, -10.556730192026787`}, {-0.7851263584941904, 16.66631943171604, -8.626875692627754}}], Line3DBox[{{0.6647967047242335, 16.35422032062122, -9.998717486954764}, {-0.7372697982956714, 15.87059622536912, -11.370559281281773`}, {-2.1871928615140956`, 16.18269533646394, -9.998717486954764}, {-0.7851263584941904, 16.66631943171604, -8.626875692627754}, {0.6647967047242335, 16.35422032062122, -9.998717486954764}}], Line3DBox[{{8.466666666666667, -1.2999999999999998`, 2.966666666666666}, { 17.42454071681237, -5.48732453617454, 4.457574353439009}}], Line3DBox[{{15.028015467475935`, -5.944020087504381, 4.15939281608454}, { 17.42454071681237, -5.48732453617454, 4.457574353439009}, { 16.237916346090525`, -3.355699170374883, 4.15939281608454}}], Line3DBox[{{15.825913284342331`, -4.740052154947588, 2.7467877954662563`}, {17.42454071681237, -5.48732453617454, 4.457574353439009}, {15.44001852922413, -4.559667102931677, 5.571997836702824}}], Line3DBox[{{15.028015467475935`, -5.944020087504381, 4.15939281608454}, { 15.825913284342331`, -4.740052154947588, 2.7467877954662563`}, { 16.237916346090525`, -3.355699170374883, 4.15939281608454}, { 15.44001852922413, -4.559667102931677, 5.571997836702824}, { 15.028015467475935`, -5.944020087504381, 4.15939281608454}}], Line3DBox[{{4.800000000000001, -2.5666666666666664`, 9.466666666666667}, { 10.617146298486547`, -8.691894350690182, 14.818525667133342`}}], Line3DBox[{{8.41784988243257, -8.450614823113366, 13.748153867040006`}, { 10.617146298486547`, -8.691894350690182, 14.818525667133342`}, { 10.489584195145909`, -6.4830828046575935`, 13.748153867040006`}}], Line3DBox[{{9.980214735873183, -8.021230310289006, 12.541390568815661`}, { 10.617146298486547`, -8.691894350690182, 14.818525667133342`}, { 8.927219341705296, -6.912467317481954, 14.954917165264352`}}], Line3DBox[{{8.41784988243257, -8.450614823113366, 13.748153867040006`}, { 9.980214735873183, -8.021230310289006, 12.541390568815661`}, { 10.489584195145909`, -6.4830828046575935`, 13.748153867040006`}, { 8.927219341705296, -6.912467317481954, 14.954917165264352`}, { 8.41784988243257, -8.450614823113366, 13.748153867040006`}}], Line3DBox[{{5.800000000000001, -6.799999999999999, -6.6}, { 12.500235633950528`, -14.221733203019452`, -6.757221858334423}}], Line3DBox[{{ 10.099809842651226`, -13.694681404344788`, -6.725777486667537}, { 12.500235633950528`, -14.221733203019452`, -6.757221858334423}, { 12.220567171669622`, -11.780091720486336`, -6.725777486667537}}], Line3DBox[{{ 11.145137739758217`, -12.720715091998331`, -8.154172342092796}, { 12.500235633950528`, -14.221733203019452`, -6.757221858334423}, { 11.17523927456263, -12.754058032832793`, -5.29738263124228}}], Line3DBox[{{ 10.099809842651226`, -13.694681404344788`, -6.725777486667537}, { 11.145137739758217`, -12.720715091998331`, -8.154172342092796}, { 12.220567171669622`, -11.780091720486336`, -6.725777486667537}, { 11.17523927456263, -12.754058032832793`, -5.29738263124228}, { 10.099809842651226`, -13.694681404344788`, -6.725777486667537}}], Line3DBox[{{ 2.133333333333333, -8.066666666666665, -0.10000000000000023`}, { 3.710971327034909, -17.876107787803644`, 1.0339855606559174`}}], Line3DBox[{{1.9849970227558265`, -16.141059633593535`, 0.807188448524734}, {3.710971327034909, -17.876107787803644`, 1.0339855606559174`}, {4.805890433833362, -15.687379493558959`, 0.807188448524734}}], Line3DBox[{{ 3.4211670646923724`, -16.074162183391817`, -0.6121680940190031}, { 3.710971327034909, -17.876107787803644`, 1.0339855606559174`}, { 3.369720391896816, -15.754276943760681`, 2.2265449910684714`}}], Line3DBox[{{1.9849970227558265`, -16.141059633593535`, 0.807188448524734}, { 3.4211670646923724`, -16.074162183391817`, -0.6121680940190031}, { 4.805890433833362, -15.687379493558959`, 0.807188448524734}, { 3.369720391896816, -15.754276943760681`, 2.2265449910684714`}, { 1.9849970227558265`, -16.141059633593535`, 0.807188448524734}}], Line3DBox[{{-5.799999999999999, 6.766666666666666, 1.1999999999999997`}, {-11.677210751117688`, 14.675823366748457`, 2.9040053053021735`}}], Line3DBox[{{-9.355119190023203, 13.946055084891485`, 2.5632042442417386`}, {-11.677210751117688`, 14.675823366748457`, 2.9040053053021735`}, {-11.648418011765095`, 12.241928968572713`, 2.5632042442417386`}}], Line3DBox[{{-10.646960598049708`, 13.28938169467667, 1.155525840573805}, {-11.677210751117688`, 14.675823366748457`, 2.9040053053021735`}, {-10.35657660373859, 12.898602358787528`, 3.970882647909672}}], Line3DBox[{{-9.355119190023203, 13.946055084891485`, 2.5632042442417386`}, {-10.646960598049708`, 13.28938169467667, 1.155525840573805}, {-11.648418011765095`, 12.241928968572713`, 2.5632042442417386`}, {-10.35657660373859, 12.898602358787528`, 3.970882647909672}, {-9.355119190023203, 13.946055084891485`, 2.5632042442417386`}}], Line3DBox[{{-5., 8.366666666666667, -4.266666666666667}, {-10.825689752313732`, 16.45201789866573, -3.436947217094709}}], Line3DBox[{{-8.501505097694729, 15.670068639976757`, -3.6028911070091003`}, {-10.825689752313732`, 16.45201789866573, -3.436947217094709}, {-10.819598506007242`, 13.999826664555076`, -3.6028911070091003`}}], Line3DBox[{{-9.729843414475928, 14.93111601160599, -5.026536654753441}, {-10.825689752313732`, 16.45201789866573, -3.436947217094709}, {-9.591260189226043, 14.738779292925845`, -2.1792455592647593`}}], Line3DBox[{{-8.501505097694729, 15.670068639976757`, -3.6028911070091003`}, {-9.729843414475928, 14.93111601160599, -5.026536654753441}, {-10.819598506007242`, 13.999826664555076`, -3.6028911070091003`}, {-9.591260189226043, 14.738779292925845`, -2.1792455592647593`}, {-8.501505097694729, 15.670068639976757`, -3.6028911070091003`}}], Line3DBox[{{-8.233333333333333, 4.3, -2.3666666666666667`}, {-17.406610568519156`, 8.237044259389222, -1.7744950141605393`}}], Line3DBox[{{-15.00853148860178, 8.762407336081864, -1.8929293446617648`}, {-17.406610568519156`, 8.237044259389222, -1.7744950141605393`}, {-16.135378754362208`, 6.136863478940891, -1.8929293446617648`}}], Line3DBox[{{-15.649693753712517`, 7.482999757885747, -3.3189938073399547`}, {-17.406610568519156`, 8.237044259389222, -1.7744950141605393`}, {-15.49421648925147, 7.41627105713701, -0.46686488198357456`}}], Line3DBox[{{-15.00853148860178, 8.762407336081864, -1.8929293446617648`}, {-15.649693753712517`, 7.482999757885747, -3.3189938073399547`}, {-16.135378754362208`, 6.136863478940891, -1.8929293446617648`}, {-15.49421648925147, 7.41627105713701, -0.46686488198357456`}, {-15.00853148860178, 8.762407336081864, -1.8929293446617648`}}], Line3DBox[{{-7.433333333333332, 5.9, -7.833333333333333}, {-15.106651608539565`, 12.269489076552691`, -8.574815329784998}}], Line3DBox[{{-12.659549211653307`, 12.094805466440986`, -8.426518930494666}, {-15.106651608539565`, 12.269489076552691`, -8.574815329784998}, {-14.48442669534333, 9.89637705604332, -8.426518930494666}}], Line3DBox[{{-13.490483199158433`, 10.927935571247843`, -9.851157835327045}, {-15.106651608539565`, 12.269489076552691`, -8.574815329784998}, {-13.653492707838204`, 11.063246951236462`, -7.001880025662287}}], Line3DBox[{{-12.659549211653307`, 12.094805466440986`, -8.426518930494666}, {-13.490483199158433`, 10.927935571247843`, -9.851157835327045}, {-14.48442669534333, 9.89637705604332, -8.426518930494666}, {-13.653492707838204`, 11.063246951236462`, -7.001880025662287}, {-12.659549211653307`, 12.094805466440986`, -8.426518930494666}}]}}, ImageSize->500]], "Output", CellChangeTimes->{3.404499349697324*^9}] }, Open ]], Cell[BoxData[""], "Input"] }, Open ]] }, Open ]] }, WindowSize->{790, 813}, WindowMargins->{{Automatic, 277}, {Automatic, 115}}, DockedCells->(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& ), CellLabelAutoDelete->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 115, 1, 76, "Title"], Cell[708, 26, 185, 6, 26, "Text"], Cell[896, 34, 2029, 62, 73, "Input"], Cell[CellGroupData[{ Cell[2950, 100, 324, 9, 27, "Input"], Cell[3277, 111, 10086, 255, 343, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13400, 371, 60, 0, 67, "Section"], Cell[CellGroupData[{ Cell[13485, 375, 444, 10, 43, "Input"], Cell[13932, 387, 753, 18, 421, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14722, 410, 486, 11, 43, "Input"], Cell[15211, 423, 676, 17, 421, "Output"] }, Open ]], Cell[15902, 443, 68, 0, 26, "Text"], Cell[CellGroupData[{ Cell[15995, 447, 213, 4, 27, "Input"], Cell[16211, 453, 1123, 24, 421, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17383, 483, 69, 0, 67, "Section"], Cell[CellGroupData[{ Cell[17477, 487, 90, 2, 27, "Input"], Cell[17570, 491, 1934, 55, 73, "Output"] }, Open ]], Cell[19519, 549, 212, 6, 27, "Input"], Cell[CellGroupData[{ Cell[19756, 559, 104, 2, 27, "Input"], Cell[19863, 563, 2212, 56, 88, "Output"] }, Open ]], Cell[22090, 622, 208, 6, 27, "Input"], Cell[CellGroupData[{ Cell[22323, 632, 119, 2, 27, "Input"], Cell[22445, 636, 13016, 412, 403, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35498, 1053, 288, 6, 27, "Input"], Cell[35789, 1061, 2717, 55, 684, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38543, 1121, 523, 16, 43, "Input"], Cell[39069, 1139, 3152, 62, 633, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42270, 1207, 69, 0, 67, "Section"], Cell[CellGroupData[{ Cell[42364, 1211, 113, 2, 27, "Input"], Cell[42480, 1215, 9987, 321, 403, "Output"] }, Open ]], Cell[52482, 1539, 213, 6, 27, "Input"], Cell[CellGroupData[{ Cell[52720, 1549, 175, 3, 27, "Input"], Cell[52898, 1554, 3974, 107, 148, "Output"] }, Open ]], Cell[56887, 1664, 526, 13, 43, "Input"], Cell[CellGroupData[{ Cell[57438, 1681, 185, 4, 27, "Input"], Cell[57626, 1687, 4423, 83, 684, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62098, 1776, 73, 0, 67, "Section"], Cell[62174, 1778, 127, 2, 27, "Input"], Cell[CellGroupData[{ Cell[62326, 1784, 219, 7, 27, "Input"], Cell[62548, 1793, 4149, 107, 208, "Output"] }, Open ]], Cell[66712, 1903, 71, 1, 27, "Input"], Cell[CellGroupData[{ Cell[66808, 1908, 417, 10, 43, "Input"], Cell[67228, 1920, 24670, 414, 635, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91935, 2339, 206, 5, 27, "Input"], Cell[92144, 2346, 29392, 503, 635, "Output"] }, Open ]], Cell[121551, 2852, 26, 0, 27, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)