Hellenica World

Gyroelongated triangular cupola

In[662]:=

"GyroelongatedTriangularCupola_2.gif"

Out[662]=

"GyroelongatedTriangularCupola_3.gif"

In[663]:=

"GyroelongatedTriangularCupola_4.gif"

Out[663]=

"GyroelongatedTriangularCupola_5.gif"

In[664]:=

"GyroelongatedTriangularCupola_6.gif"

Out[664]=

"GyroelongatedTriangularCupola_7.gif"

In[665]:=

"GyroelongatedTriangularCupola_8.gif"

Out[665]=

"GyroelongatedTriangularCupola_9.gif"

In[666]:=

"GyroelongatedTriangularCupola_10.gif"

Out[666]=

"GyroelongatedTriangularCupola_11.gif"

In[667]:=

"GyroelongatedTriangularCupola_12.gif"

Out[667]=

"GyroelongatedTriangularCupola_13.gif"

In[668]:=

"GyroelongatedTriangularCupola_14.gif"

Out[668]=

"GyroelongatedTriangularCupola_15.gif"

In[669]:=

"GyroelongatedTriangularCupola_16.gif"

Out[669]=

"GyroelongatedTriangularCupola_17.gif"

In[670]:=

"GyroelongatedTriangularCupola_18.gif"

Out[670]//InputForm=

Graphics3D[GraphicsComplex[
  {{-1, 0, -Sqrt[-1 + Sqrt[3]] + Sqrt[34388823/2 + 12170346*Sqrt[3] -
        90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {-1/2, -Sqrt[3]/2, -Sqrt[-1 + Sqrt[3]] +
     Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {-1/2, Sqrt[3]/2, -Sqrt[-1 + Sqrt[3]] +
     Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {0, -1, Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {0, 1, Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {1/2, -Sqrt[3]/2, -Sqrt[-1 + Sqrt[3]] +
     Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {1/2, Sqrt[3]/2, -Sqrt[-1 + Sqrt[3]] +
     Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {1, 0, -Sqrt[-1 + Sqrt[3]] + Sqrt[34388823/2 + 12170346*Sqrt[3] -
        90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {-1/(2*Sqrt[3]), -1/2, Sqrt[2/3] + Sqrt[34388823/2 + 12170346*Sqrt[3] -
        90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {-1/(2*Sqrt[3]), 1/2, Sqrt[2/3] + Sqrt[34388823/2 + 12170346*Sqrt[3] -
        90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {1/Sqrt[3], 0, Sqrt[2/3] + Sqrt[34388823/2 + 12170346*Sqrt[3] -
        90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {-Sqrt[3]/2, -1/2, Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/
     15068}, {-Sqrt[3]/2, 1/2, Sqrt[34388823/2 + 12170346*Sqrt[3] -
       90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068},
   {Sqrt[3]/2, -1/2, Sqrt[34388823/2 + 12170346*Sqrt[3] - 90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/
     15068}, {Sqrt[3]/2, 1/2, Sqrt[34388823/2 + 12170346*Sqrt[3] -
       90*Sqrt[-1281344819375 + 807276361713*Sqrt[3]]]/15068}},
  Polygon[{{3, 7, 8, 6, 2, 1}, {1, 2, 12}, {2, 6, 4}, {6, 8, 14}, {8, 7, 15}, {7, 3, 5}, {3, 1, 13},
    {2, 4, 12}, {6, 14, 4}, {8, 15, 14}, {7, 5, 15}, {3, 13, 5}, {1, 12, 13}, {10, 9, 11}, {9, 10, 13, 12},
    {11, 9, 4, 14}, {10, 11, 15, 5}, {5, 13, 10}, {12, 4, 9}, {14, 15, 11}}]]]

In[671]:=

"GyroelongatedTriangularCupola_19.gif"

Out[671]=

"GyroelongatedTriangularCupola_20.gif"

In[672]:=

"GyroelongatedTriangularCupola_21.gif"

Out[672]=

"GyroelongatedTriangularCupola_22.gif"

In[673]:=

"GyroelongatedTriangularCupola_23.gif"

Out[673]=

"GyroelongatedTriangularCupola_24.gif"

Johnson Polyhedra

Geometry