Hellenica World

.


In[26]:=

"AugmentedPentagonalPrism_2.gif"

Out[26]=

"AugmentedPentagonalPrism_3.gif"

In[27]:=

"AugmentedPentagonalPrism_4.gif"

Out[27]=

"AugmentedPentagonalPrism_5.gif"

In[28]:=

"AugmentedPentagonalPrism_6.gif"

Out[28]=

"AugmentedPentagonalPrism_7.gif"

In[29]:=

"AugmentedPentagonalPrism_8.gif"

Out[29]=

"AugmentedPentagonalPrism_9.gif"

In[30]:=

"AugmentedPentagonalPrism_10.gif"

Out[30]=

"AugmentedPentagonalPrism_11.gif"

In[31]:=

"AugmentedPentagonalPrism_12.gif"

Out[31]=

"AugmentedPentagonalPrism_13.gif"

In[32]:=

"AugmentedPentagonalPrism_14.gif"

Out[32]=

"AugmentedPentagonalPrism_15.gif"

In[33]:=

"AugmentedPentagonalPrism_16.gif"

Out[33]=

"AugmentedPentagonalPrism_17.gif"

In[34]:=

"AugmentedPentagonalPrism_18.gif"

Out[34]//InputForm=

Graphics3D[GraphicsComplex[{{-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 5*#1^2 + 5*#1^4 & , 4, 0], (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712,
    -1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 5*#1^2 + 5*#1^4 & , 4, 0], (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712,
    1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (-1 - Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, -1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (-1 - Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, 1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (1 + Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, -1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (1 + Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, 1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], -1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, -1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], -1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, 1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], 1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, -1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], 1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, 1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 4320*#1^2 + 213760*#1^4 - 2252800*#1^6 + 1638400*#1^8 & , 8, 0],
    (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712 +
     Root[1 + 88*#1 - 176*#1^2 - 128*#1^3 + 256*#1^4 & , 4, 0], 0}},
  Polygon[{{3, 7, 9, 5, 1}, {2, 6, 10, 8, 4}, {5, 9, 10, 6}, {9, 7, 8, 10}, {7, 3, 4, 8}, {3, 1, 2, 4},
    {11, 1, 5}, {11, 5, 6}, {11, 6, 2}, {11, 2, 1}}]]]

In[35]:=

"AugmentedPentagonalPrism_19.gif"

Out[35]=

"AugmentedPentagonalPrism_20.gif"

In[36]:=

"AugmentedPentagonalPrism_21.gif"

Out[36]=

"AugmentedPentagonalPrism_22.gif"

In[37]:=

"AugmentedPentagonalPrism_23.gif"

Out[37]=

"AugmentedPentagonalPrism_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