Re: How to select only points which are inside a domain (cont)

• To: mathgroup at smc.vnet.net
• Subject: [mg124986] Re: How to select only points which are inside a domain (cont)
• From: Christoph Lhotka <christoph.lhotka at fundp.ac.be>
• Date: Thu, 16 Feb 2012 03:27:04 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

```hi,

if you define the domain as a distance r from a point {mx,my,mz} you
could use:

r=1:
{mx,my,mz}={.5,.5,-1}:
dat0 = Table[RandomReal[{-2, 2}, 3], {100}];
dat = Select[dat0, EuclideanDistance[{mx, my, mz}, #] < r &];
Graphics3D[{{Opacity[.2], Sphere[{mx, my, mz}, r]}, Point[dat]}]

best,

christoph

n 02/15/2012 10:41 AM, Ted Sariyski wrote:
> This works, but I think there is a better way.
> Thanks,
> --Ted
>
> Point @@@
>    Select[List @@@
>      pointsK[1], (#[[1, 1]]>= wMin&&  #[[1, 1]]<  wMax&&  #[[1, 2]]>=
>         tMin&&  #[[1, 2]]<  tMax )&]
>
> On 02/14/2012 04:30 PM, Ted Sariyski wrote:
>> Hi,
>> I have a list of points: pntL={Point[x1,y1,z1],...}. How to select
>> only points which are inside a domain {xmin,xmax,ymin,ymax,zmin,zmax}?