Hellenica World

.


In[74]:=

"AugmentedTruncatedCube_2.gif"

Out[74]=

"AugmentedTruncatedCube_3.gif"

In[75]:=

"AugmentedTruncatedCube_4.gif"

Out[75]=

"AugmentedTruncatedCube_5.gif"

In[76]:=

"AugmentedTruncatedCube_6.gif"

Out[76]=

"AugmentedTruncatedCube_7.gif"

In[77]:=

"AugmentedTruncatedCube_8.gif"

Out[77]=

"AugmentedTruncatedCube_9.gif"

In[78]:=

"AugmentedTruncatedCube_10.gif"

Out[78]=

"AugmentedTruncatedCube_11.gif"

In[79]:=

"AugmentedTruncatedCube_12.gif"

Out[79]=

"AugmentedTruncatedCube_13.gif"

In[80]:=

"AugmentedTruncatedCube_14.gif"

Out[80]=

"AugmentedTruncatedCube_15.gif"

In[81]:=

"AugmentedTruncatedCube_16.gif"

Out[81]=

"AugmentedTruncatedCube_17.gif"

In[82]:=

"AugmentedTruncatedCube_18.gif"

Out[82]//InputForm=

Graphics3D[GraphicsComplex[{{-1/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {-1/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {-1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {-1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {0, -(1/Sqrt[2]), (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {0, 1/Sqrt[2], (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {1/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {1/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {-(1/Sqrt[2]), 0, (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {1/Sqrt[2], 0, (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {(1 + Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(1 + Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(1 + Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(1 + Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(1 + Sqrt[2])/2, (1 + Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(1 + Sqrt[2])/2, (1 + Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64},
   {(1 + Sqrt[2])/2, (-1 - Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(1 + Sqrt[2])/2, (-1 - Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, (1 + Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, (1 + Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, (-1 - Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, (-1 - Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64}},
  Polygon[{{7, 15, 13, 9, 3, 21, 23, 1}, {9, 19, 20, 10, 4, 28, 27, 3},
    {1, 25, 26, 2, 8, 18, 17, 7}, {15, 17, 18, 16, 14, 20, 19, 13},
    {21, 27, 28, 22, 24, 26, 25, 23}, {9, 13, 19}, {17, 15, 7}, {27, 21, 3}, {1, 23, 25},
    {20, 14, 10}, {8, 16, 18}, {4, 22, 28}, {26, 24, 2}, {6, 11, 5, 12}, {11, 6, 2, 24},
    {5, 11, 22, 4}, {12, 5, 10, 14}, {6, 12, 16, 8}, {8, 2, 6}, {24, 22, 11}, {4, 10, 5},
    {14, 16, 12}}]]]

In[83]:=

"AugmentedTruncatedCube_19.gif"

Out[83]=

"AugmentedTruncatedCube_20.gif"

In[84]:=

"AugmentedTruncatedCube_21.gif"

Out[84]=

"AugmentedTruncatedCube_22.gif"

In[85]:=

"AugmentedTruncatedCube_23.gif"

Out[85]=

"AugmentedTruncatedCube_24.gif"

Johnson Polyhedra

Geometry

Mathematics Encyclopedia

Retrieved from "http://en.wikipedia.org/"
All text is available under the terms of the GNU Free Documentation License

Home