Re: Question of function for hexahedron
- To: mathgroup at smc.vnet.net
- Subject: [mg23577] Re: [mg23562] Question of function for hexahedron
- From: BobHanlon at aol.com
- Date: Sat, 20 May 2000 17:44:32 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 5/20/2000 3:35:53 AM, khs at procd.sogang.ac.kr writes:
>I want to find out the function that will generate hexahedron,however I
>heard there are some founctions related to 'hexahedron' like 'Cubid' or
>'Ployhedron'. But I want to generate hexahedron for given eight numbers.
>
>for example
>
> (0.0057 0.0052 0.0052)
> (-0.0057 0.0063 0.0051)
> ( 0.0057 -0.0052 0.0062)
> ( 0.0057 -0.0063 0.0063)
> ( 0.0057 -0.0063 -0.0051)
> (-0.0057 -0.0052 -0.0052)
> (-0.0057 0.0063 -0.0063)
> (0.0057 0.0052 -0.0062)
>
vert = {{0.0057, 0.0052, 0.0052}, {-0.0057, 0.0063, 0.0051}, {
0.0057, -0.0052, 0.0062}, { 0.0057, -0.0063, 0.0063}, {
0.0057, -0.0063, -0.0051}, {-0.0057, -0.0052, -0.0052}, \
{-0.0057, 0.0063, -0.0063}, {0.0057, 0.0052, -0.0062}};
Checking the location of the vertices
Show[Graphics3D[{RGBColor[1, 0, 0], Line[vert]}]];
There appears to be a mistake in defining the vertices. The third point
should have a negative x value.
vert = {{0.0057, 0.0052, 0.0052}, {-0.0057, 0.0063,
0.0051}, { -0.0057, -0.0052, 0.0062}, { 0.0057, -0.0063,
0.0063}, {
0.0057, -0.0063, -0.0051}, {-0.0057, -0.0052, -0.0052}, \
{-0.0057, 0.0063, -0.0063}, {0.0057, 0.0052, -0.0062}};
Rechecking
Show[Graphics3D[
Join[{RGBColor[1, 0, 0], Line[vert], RGBColor[0, 0, 1]},
Table[Text[ToString[k], vert[[k]]], {k, Length[vert]}]]]];
Each of the six faces will be a polygon formed by four vertices
faces = {{1, 2, 3, 4}, {5, 6, 7, 8}, {3, 4, 5, 6}, {1, 2, 7, 8}, {2, 3, 6,
7}, {1, 4, 5, 8}};
Drawing the hexahedron
Show[Graphics3D[Polygon[#] & /@ (vert[[#]] & /@ faces)]];
Bob
BobHanlon at aol.com