Re: Selecting points from graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg112061] Re: Selecting points from graphics*From*: Fred Klingener <gigabitbucket at BrockEng.com>*Date*: Sat, 28 Aug 2010 07:02:17 -0400 (EDT)*References*: <i52pro$n7q$1@smc.vnet.net>

On Aug 25, 6:04 am, "Kent A. Vander Velden" <kent.vandervel... at gmail.com> wrote: > In Mathematica 7, I plot data using ListPointPlot3D[...] and > Graphics3D[Sphere[...] /@ data] to quickly see if outliers exist, but > finding the exact value of the outlier is not so quick. Currently, I only > know to narrow down the list using Select[...] sometimes preceded > by PlotRange with Manipulate[...]. I'm hoping there is a way to select and > report on points from the plot. Ideally, the selection would pass > information about the selected point to a separate function. If either of > these is possible, would someone point me in the correct direction? Sometimes, I use something like this: Graphics3D[ { (* sphere with 3 sigma radius *) {Opacity[0.5], Sphere[{0., 0., 0.}, 3]} (* Cloud of random 3D points with normal distribution - mean = 0, sigma = 1 *) , Table[ Tooltip[ Point[ RandomReal[ NormalDistribution[0, 1], 3] ] (* Tooltip returns the position of the Point in the Table *) , ToString[j]] , {j, 1, 100}] } ] Hth, Fred Klingener