       Re: get points from the polyhedron

• To: mathgroup at smc.vnet.net
• Subject: [mg24446] Re: [mg24363] get points from the polyhedron
• From: BobHanlon at aol.com
• Date: Tue, 18 Jul 2000 00:58:47 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```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, 1/Sqrt}, {0, 1}, {-(1/Sqrt), 1/Sqrt}, {-1, 0},
{-(1/Sqrt), -(1/Sqrt)}, {0, -1},
{1/Sqrt, -(1/Sqrt)}, {1, 0}}

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

vert2 = Vertices[Octahedron]

{{0, 0, Sqrt}, {Sqrt, 0, 0}, {0, Sqrt, 0}, {0, 0, -Sqrt},
{-Sqrt, 0, 0}, {0, -Sqrt, 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