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}?
>> Thanks in advance,
>> --Ted
>