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[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