| Author |
Comment/Response |
Bill
|
 08/27/08 3:09pm
Hi:
Example:
A.) Find the smallest and greatest individual xyz coordinate point values, for the sets of points generated by:
data = Table[{3*Cos[t], 3*Sin[t], 2*t}, {t, 0, 30}] // N
(* Grid[data, Alignment -> Decimal] <-This line is just for displaying the output in an easy to read form.*)
B.) Identify the coordinate sets that contain the lowest and greatest xyz values:
(*I arrived at the following by making visual comparisons of "data".*)
The least and greatest coordinate values for x are: -2.99988 and 3.
The coordinate sets that contain the least and greatest x coordinates respectively are:
{-2.99988, -0.0265539, 44.} and {3, 0, 0.}.
The least and greatest coordinate values for y are: -2.99997 and 2.97182.
The coordinate sets that contain the least and greatest y coordinates respectively are:
{0.0132771, -2.99997, 22.} and {0.410212, 2.97182, 28.}.
The least and greatest coordinate values for z are: 0 and 60.
The coordinate sets that contain the least and greatest z coordinates respectively are:
{3, 0, 0} and {0.462754, -2.96409, 60.}.
Question: How do I code Mathematica to find and return the smallest and greatest coordinate point values for the x,y and z coordinates respectively, and the coordinate sets that contain them?
Thanks,
Bill
PS. I'm using Mathematica 6.0.1 on a pc with Windows XP.
URL: , |
|
