Hellenica World

Triaugmented hexagonal prism

In[1084]:=

"TriaugmentedHexagonalPrism_2.gif"

Out[1084]=

"TriaugmentedHexagonalPrism_3.gif"

In[1085]:=

"TriaugmentedHexagonalPrism_4.gif"

Out[1085]=

"TriaugmentedHexagonalPrism_5.gif"

In[1086]:=

"TriaugmentedHexagonalPrism_6.gif"

Out[1086]=

"TriaugmentedHexagonalPrism_7.gif"

In[1087]:=

"TriaugmentedHexagonalPrism_8.gif"

Out[1087]=

"TriaugmentedHexagonalPrism_9.gif"

In[1088]:=

"TriaugmentedHexagonalPrism_10.gif"

Out[1088]=

"TriaugmentedHexagonalPrism_11.gif"

In[1089]:=

"TriaugmentedHexagonalPrism_12.gif"

Out[1089]=

"TriaugmentedHexagonalPrism_13.gif"

In[1090]:=

"TriaugmentedHexagonalPrism_14.gif"

Out[1090]=

"TriaugmentedHexagonalPrism_15.gif"

In[1091]:=

"TriaugmentedHexagonalPrism_16.gif"

Out[1091]=

"TriaugmentedHexagonalPrism_17.gif"

In[1092]:=

"TriaugmentedHexagonalPrism_18.gif"

Out[1092]//InputForm=

Graphics3D[GraphicsComplex[{{-1, 0, -1/2}, {-1, 0, 1/2}, {-1/2, -Sqrt[3]/2, -1/2}, {-1/2, -Sqrt[3]/2, 1/2},
   {-1/2, Sqrt[3]/2, -1/2}, {-1/2, Sqrt[3]/2, 1/2}, {0, Root[1 - 40*#1^2 + 16*#1^4 & , 1, 0], 0},
   {1/2, -Sqrt[3]/2, -1/2}, {1/2, -Sqrt[3]/2, 1/2}, {1/2, Sqrt[3]/2, -1/2}, {1/2, Sqrt[3]/2, 1/2},
   {1, 0, -1/2}, {1, 0, 1/2}, {(-3 - Sqrt[6])/4, Root[1 - 160*#1^2 + 256*#1^4 & , 4, 0], 0},
   {(3 + Sqrt[6])/4, Root[1 - 160*#1^2 + 256*#1^4 & , 4, 0], 0}},
  Polygon[{{8, 3, 1, 5, 10, 12}, {13, 11, 6, 2, 4, 9}, {10, 5, 6, 11}, {1, 3, 4, 2}, {8, 12, 13, 9},
    {15, 12, 10}, {15, 10, 11}, {15, 11, 13}, {15, 13, 12}, {14, 5, 1}, {14, 1, 2}, {14, 2, 6}, {14, 6, 5},
    {7, 3, 8}, {7, 8, 9}, {7, 9, 4}, {7, 4, 3}}]]]

In[1093]:=

"TriaugmentedHexagonalPrism_19.gif"

Out[1093]=

"TriaugmentedHexagonalPrism_20.gif"

In[1094]:=

"TriaugmentedHexagonalPrism_21.gif"

Out[1094]=

"TriaugmentedHexagonalPrism_22.gif"

In[1095]:=

"TriaugmentedHexagonalPrism_23.gif"

Out[1095]=

"TriaugmentedHexagonalPrism_24.gif"

Johnson Polyhedra

Geometry