MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: get points from the polyhedron


In a message dated 7/12/2000 11:25:46 PM, khs at procd.sogang.ac.kr writes:

>I tried to get points from the Octahedron, so I typed
>
>Vertices[Octagon]
>
>but the results were Vertices[Octagon] itself.....
>
>How can I do?
>

You need to load the required standard package

Needs["Geometry`Polytopes`"]

vert1 = Vertices[Octagon]

{{1/Sqrt[2], 1/Sqrt[2]}, {0, 1}, {-(1/Sqrt[2]), 1/Sqrt[2]}, {-1, 0}, 
{-(1/Sqrt[2]), -(1/Sqrt[2])}, {0, -1}, 
  {1/Sqrt[2], -(1/Sqrt[2])}, {1, 0}}

Show[Graphics[Line[Append[vert1, First[vert1]]]], AspectRatio -> 1, 
    ImageSize -> {100, 100}];

vert2 = Vertices[Octahedron]

{{0, 0, Sqrt[2]}, {Sqrt[2], 0, 0}, {0, Sqrt[2], 0}, {0, 0, -Sqrt[2]}, 
{-Sqrt[2], 0, 0}, {0, -Sqrt[2], 0}}

Needs["Graphics`Polyhedra`"]

Show[{Polyhedron[Octahedron], Graphics3D[{PointSize[.03], Point /@ vert2}]}];


Bob Hanlon


  • Prev by Date: Re: Plotting Surfaces from data
  • Next by Date: Re: Mathematica for High School Students
  • Previous by thread: get points from the polyhedron
  • Next by thread: Ron Knapp's time function