MathGroup Archive 2011

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

Search the Archive

Re: Delete close, but not identical elements in an array

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123364] Re: Delete close, but not identical elements in an array
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Sun, 4 Dec 2011 02:50:08 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201112030912.EAA11804@smc.vnet.net>

Peaks = {{229, 170}, {119, 265}, {331, 202}, {118, 264}, {314, 245}};

First /@ Gather[Peaks, Norm[#1 - #2] <= 10 &]

{{229, 170}, {119, 265}, {331, 202}, {314, 245}}


Bob Hanlon


On Sat, Dec 3, 2011 at 4:12 AM, Peter Rodenbach
<peter.rodenbach at googlemail.com> wrote:
> Hi,
>
> I have the problem that I have to indentify peaks in an 2D array. I
> can do this by Ordering[] the entries in the Flatten[] list. Then I
> indentify the positions of the peaks in the array and write them into
> a list. An example I work on in an 512 x 512 Pixel array:
>
> Peaks={{229,170},{119,265},{331,202},{118,264},{314,245}}
>
> As you can see from those 5 peaks, Number 2 and 4 belong to the same
> peak. As I have to count the data at that positions and compare them,
> I have to get rid of the peak postions that neighbor each other, as
> they actually belong to the same peak.
>
> What I want now is: have Mathem. evaluate the positions in the list
> and delete those which are +-10 pixels around any other.
> So the list would look like Peaks={{229,170},{119,265},{331,202},
> {314,245}} afterwards.
>
> Thanks for the help!!
>



  • Prev by Date: Re: Delete close, but not identical elements in an array
  • Next by Date: Re: reducing the size of a Manipulate slider control, problem when using ImageSize
  • Previous by thread: Delete close, but not identical elements in an array
  • Next by thread: Re: Delete close, but not identical elements in an array