Hellenica World

Gyroelongated triangular bicupola

In[650]:=

"GyroelongatedTriangularBicupola_2.gif"

Out[650]=

"GyroelongatedTriangularBicupola_3.gif"

In[651]:=

"GyroelongatedTriangularBicupola_4.gif"

Out[651]=

"GyroelongatedTriangularBicupola_5.gif"

In[652]:=

"GyroelongatedTriangularBicupola_6.gif"

Out[652]=

"GyroelongatedTriangularBicupola_7.gif"

In[653]:=

"GyroelongatedTriangularBicupola_8.gif"

Out[653]=

"GyroelongatedTriangularBicupola_9.gif"

In[654]:=

"GyroelongatedTriangularBicupola_10.gif"

Out[654]=

"GyroelongatedTriangularBicupola_11.gif"

In[655]:=

"GyroelongatedTriangularBicupola_12.gif"

Out[655]=

"GyroelongatedTriangularBicupola_13.gif"

In[656]:=

"GyroelongatedTriangularBicupola_14.gif"

Out[656]=

"GyroelongatedTriangularBicupola_15.gif"

In[657]:=

"GyroelongatedTriangularBicupola_16.gif"

Out[657]=

"GyroelongatedTriangularBicupola_17.gif"

In[658]:=

"GyroelongatedTriangularBicupola_18.gif"

Out[658]//InputForm=

Graphics3D[GraphicsComplex[{{-1, 0, Sqrt[-1 + Sqrt[3]]/2}, {-1/2, -Sqrt[3]/2, Sqrt[-1 + Sqrt[3]]/2},
   {-1/2, Sqrt[3]/2, Sqrt[-1 + Sqrt[3]]/2}, {-1/2, -1/(2*Sqrt[3]),
    Sqrt[5/3 + Sqrt[3] + 4*Sqrt[(2*(-1 + Sqrt[3]))/3]]/2}, {0, -1, -Sqrt[-1 + Sqrt[3]]/2},
   {0, 1, -Sqrt[-1 + Sqrt[3]]/2}, {0, 1/Sqrt[3], Sqrt[5/3 + Sqrt[3] + 4*Sqrt[(2*(-1 + Sqrt[3]))/3]]/2},
   {1/2, -1/(2*Sqrt[3]), Sqrt[5/3 + Sqrt[3] + 4*Sqrt[(2*(-1 + Sqrt[3]))/3]]/2},
   {1/2, -Sqrt[3]/2, Sqrt[-1 + Sqrt[3]]/2}, {1/2, Sqrt[3]/2, Sqrt[-1 + Sqrt[3]]/2},
   {1, 0, Sqrt[-1 + Sqrt[3]]/2}, {-(1/Sqrt[3]), 0, -Sqrt[5/3 + Sqrt[3] + 4*Sqrt[(2*(-1 + Sqrt[3]))/3]]/2},
   {1/(2*Sqrt[3]), -1/2, -Sqrt[5/3 + Sqrt[3] + 4*Sqrt[(2*(-1 + Sqrt[3]))/3]]/2},
   {1/(2*Sqrt[3]), 1/2, -Sqrt[5/3 + Sqrt[3] + 4*Sqrt[(2*(-1 + Sqrt[3]))/3]]/2},
   {-Sqrt[3]/2, -1/2, -Sqrt[-1 + Sqrt[3]]/2}, {-Sqrt[3]/2, 1/2, -Sqrt[-1 + Sqrt[3]]/2},
   {Sqrt[3]/2, -1/2, -Sqrt[-1 + Sqrt[3]]/2}, {Sqrt[3]/2, 1/2, -Sqrt[-1 + Sqrt[3]]/2}},
  Polygon[{{18, 10, 11}, {6, 3, 10}, {16, 1, 3}, {15, 2, 1}, {5, 9, 2}, {17, 11, 9}, {18, 6, 10}, {6, 16, 3},
    {16, 15, 1}, {15, 5, 2}, {5, 17, 9}, {17, 18, 11}, {7, 4, 8}, {4, 7, 3, 1}, {8, 4, 2, 9}, {7, 8, 11, 10},
    {10, 3, 7}, {1, 2, 4}, {9, 11, 8}, {12, 14, 13}, {18, 17, 13, 14}, {16, 6, 14, 12}, {5, 15, 12, 13},
    {13, 17, 5}, {14, 6, 18}, {12, 15, 16}}]]]

In[659]:=

"GyroelongatedTriangularBicupola_19.gif"

Out[659]=

"GyroelongatedTriangularBicupola_20.gif"

In[660]:=

"GyroelongatedTriangularBicupola_21.gif"

Out[660]=

"GyroelongatedTriangularBicupola_22.gif"

In[661]:=

"GyroelongatedTriangularBicupola_23.gif"

Out[661]=

"GyroelongatedTriangularBicupola_24.gif"

Johnson Polyhedra

Geometry