Hellenica World

Square pyramid

In[928]:=

"SquarePyramid_2.gif"

Out[928]=

"SquarePyramid_3.gif"

In[929]:=

"SquarePyramid_4.gif"

Out[929]=

"SquarePyramid_5.gif"

In[930]:=

"SquarePyramid_6.gif"

Out[930]=

"SquarePyramid_7.gif"

In[931]:=

"SquarePyramid_8.gif"

Out[931]=

"SquarePyramid_9.gif"

In[932]:=

"SquarePyramid_10.gif"

Out[932]=

"SquarePyramid_11.gif"

In[933]:=

"SquarePyramid_12.gif"

Out[933]=

"SquarePyramid_13.gif"

In[934]:=

"SquarePyramid_14.gif"

Out[934]=

"SquarePyramid_15.gif"

In[935]:=

"SquarePyramid_16.gif"

Out[935]=

"SquarePyramid_17.gif"

In[936]:=

"SquarePyramid_18.gif"

Out[936]//InputForm=

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

In[937]:=

"SquarePyramid_19.gif"

Out[937]=

"SquarePyramid_20.gif"

In[938]:=

"SquarePyramid_21.gif"

Out[938]=

"SquarePyramid_22.gif"

In[939]:=

"SquarePyramid_23.gif"

Out[939]=

"SquarePyramid_24.gif"

Johnson Polyhedra

Geometry