Re: Rotating a list of 3D point coordinates in one shot
- To: mathgroup at smc.vnet.net
- Subject: [mg100025] Re: [mg100016] Rotating a list of 3D point coordinates in one shot
- From: "David Park" <djmpark at comcast.net>
- Date: Fri, 22 May 2009 01:43:33 -0400 (EDT)
- References: <2931846.1242881174127.JavaMail.root@n11>
You could use:
RotationTransform[180 Degree, {-1, -2, -1}] /@ list
Although RotationTransform does not have the attribute Listable, it still
appears to behave as if it does.
list // RotationTransform[180 Degree, {-1, -2, -1}]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: Bill [mailto:WDWNORWALK at aol.com]
Hi:
I have a list of 3D coordinates:
list={{1., 0., 0.}, {0.987688, 0.156434, 0.},
{0.951057, 0.309017, 0.}, {0.891007, 0.45399, 0.}, {0.809017, 0.587785, 0.},
{0.707107, 0.707107, 0.},
{0.587785,0.809017, 0.}, {0.45399, 0.891007, 0.}, {0.309017, 0.951057, 0.},
{0.156434, 0.987688, 0.},
{0., 1., 0.}, {-0.156434, 0.987688, 0.},
{-0.309017, 0.951057, 0.}, {-0.45399, 0.891007, 0.},
{-0.587785, 0.809017, 0.}, {-0.707107, 0.707107, 0.},
{-0.809017, 0.587785, 0.}, {-0.891007, 0.45399, 0.},
{-0.951057, 0.309017, 0.}, {-0.987688, 0.156434, 0.},
{-1., 0., 0.}}.
I'd like to rotate all the coordinates in the list in one shot, using
something like this:
Rotate[list, 180 Degree, {-1, -2, -1}]}} (*Axis angle rotation.*)
I haven't gotten this to work though. I can rotate a single point at a time
using a similiar method, but
that is very time consuming.
Question: Is there a way to rotate a list of numerous 3D coordinates such
as in my example above, and if so, how do I code that using Mathematica
6.0.1?
Thanks in advance,
Bill