Re: Is there a better way to do a 3D List Plot?
- To: mathgroup at smc.vnet.net
- Subject: [mg7416] Re: [mg7351] Is there a better way to do a 3D List Plot?
- From: Fabian Haas <b5hafa at rz.uni-jena.de>
- Date: Sat, 31 May 1997 15:07:26 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
>I have a list of data that I would like to plot
>that looks like:
>
>ResistMap3D1 =
> {{-1260,0,5060},{-840,0,5048},{-420,0,5032},{0,0,5046},{420,0,5041},{840,0,
> 5046},{1260,0,5052},{0,-1260,5047},{0,-840,5023},{0,-420,5037},{0,420,
> 5037},{0,840,5031},{0,1260,5056},{-840,840,5057},{840,840,5061},{
> 840,-840,5048},{-840,-840,5047},{-420,420,5037},{420,420,5033},{
> 420,-420,5034},{-420,-420,5036}};
>
>It's format it {x,y,z}.
>
>The only way I know of to plot this is:
>
>Resistpp =
> Show[Graphics3D[Point[{-1260,0,5060}]],Graphics3D[Point[{-840,0,5048}]],
> Graphics3D[Point[{-420,0,5032}]],Graphics3D[Point[{0,0,5046}]],
> Graphics3D[Point[{420,0,5041}]],Graphics3D[Point[{840,0,5046}]],
> Graphics3D[Point[{1260,0,5052}]],Graphics3D[Point[{-420,420,5037}]],
> Graphics3D[Point[{420,420,5033}]],Graphics3D[Point[{420,-420,5034}]],
> Graphics3D[Point[{-420,-420,5036}]],Graphics3D[Point[{-840,840,5057}]],
> Graphics3D[Point[{840,840,5061}]],Graphics3D[Point[{840,-840,5048}]],
> Graphics3D[Point[{-840,-840,5047}]],Graphics3D[Point[{0,-1260,5047}]],
> Graphics3D[Point[{0,-840,5023}]],Graphics3D[Point[{0,-420,5037}]],
> Graphics3D[Point[{0,420,5037}]],Graphics3D[Point[{0,840,5031}]],
> Graphics3D[Point[{0,1260,5056}]],AspectRatio->1,ViewPoint -> {0,1,0}];
>
>Is there a better way? And I can't get the point size to be big enough
>to see. Is there a way to increase the size?
>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> /| ________Ec My message to you is: Be courageous! I have
> / |/________Ei lived a long time. I have seen history repeat
> Vg------| |/--------Ef itself again and again. I have seen many
> | | ________Ev depressions in business. Always America
> Ef------| |/ has come out stronger and more prosperous.
> Be as brave as your fathers before you.
> Have faith! Go forward.
> Jason Welter --- Thomas A. Edison's
> jason at pernet.com last public mesage.
Hi,
In any case This saves typing:
Show[ Graphics3D[ Map[ Point, ResistMap3D1]]]
Hope it helps
-------------------------------------------------------------------------
Dipl.Biol. Fabian Haas, MPhil
Institut für Spezielle Zoologie und Evolutionsbiologie
Erbertstr. 1
D-07743 Jena
Deutschland / Germany
TEL ++ 49 361 630 424
FAX ++ 49 361 630 392
:-) (-:
-------------------------------------------------------------------------