MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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
>




  • Prev by Date: Rationalized Fitting
  • Next by Date: Re: How to select only points which are inside a domain
  • Previous by thread: Rationalized Fitting
  • Next by thread: How to layout a planar graph so that it doesn't have any intersecting edges?