[Date Index]
[Thread Index]
[Author Index]
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
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**
| |