Hellenica World

Triangular cupola

In[1036]:=

"TriangularCupola_2.gif"

Out[1036]=

"TriangularCupola_3.gif"

In[1037]:=

"TriangularCupola_4.gif"

Out[1037]=

"TriangularCupola_5.gif"

In[1038]:=

"TriangularCupola_6.gif"

Out[1038]=

"TriangularCupola_7.gif"

In[1039]:=

"TriangularCupola_8.gif"

Out[1039]=

"TriangularCupola_9.gif"

In[1040]:=

"TriangularCupola_10.gif"

Out[1040]=

"TriangularCupola_11.gif"

In[1041]:=

"TriangularCupola_12.gif"

Out[1041]=

"TriangularCupola_13.gif"

In[1042]:=

"TriangularCupola_14.gif"

Out[1042]=

"TriangularCupola_15.gif"

In[1043]:=

"TriangularCupola_16.gif"

Out[1043]=

"TriangularCupola_17.gif"

In[1044]:=

"TriangularCupola_18.gif"

Out[1044]//InputForm=

Graphics3D[GraphicsComplex[{{0, -1, -Sqrt[3/2]/4}, {0, 1, -Sqrt[3/2]/4},
   {-1/(2*Sqrt[3]), -1/2, Sqrt[2/3] - Sqrt[3/2]/4}, {-1/(2*Sqrt[3]), 1/2,
    Sqrt[2/3] - Sqrt[3/2]/4}, {1/Sqrt[3], 0, Sqrt[2/3] - Sqrt[3/2]/4},
   {-Sqrt[3]/2, -1/2, -Sqrt[3/2]/4}, {-Sqrt[3]/2, 1/2, -Sqrt[3/2]/4},
   {Sqrt[3]/2, -1/2, -Sqrt[3/2]/4}, {Sqrt[3]/2, 1/2, -Sqrt[3/2]/4}},
  Polygon[{{4, 3, 5}, {9, 8, 1, 6, 7, 2}, {3, 4, 7, 6}, {5, 3, 1, 8}, {4, 5, 9, 2}, {2, 7, 4},
    {6, 1, 3}, {8, 9, 5}}]]]

In[1045]:=

"TriangularCupola_19.gif"

Out[1045]=

"TriangularCupola_20.gif"

In[1046]:=

"TriangularCupola_21.gif"

Out[1046]=

"TriangularCupola_22.gif"

In[1047]:=

"TriangularCupola_23.gif"

Out[1047]=

"TriangularCupola_24.gif"

Johnson Polyhedra

Geometry