Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Creating sub-list based on a given criterion

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110592] Re: Creating sub-list based on a given criterion
  • From: Peter Pein <petsie at dordos.net>
  • Date: Sat, 26 Jun 2010 08:42:22 -0400 (EDT)
  • References: <i0495h$5lm$1@smc.vnet.net>

Am Sat, 26 Jun 2010 07:10:41 +0000 (UTC)
schrieb Dimitris Emmanoulopoulos <demmanoulopoulos at hotmail.com>:

> Hello
>
> I was wondering if there is any straightforward way to bin a list
> into sub-lists containing those elements that full-fill a given
> criterion. Consider the following list
>
> ds=
> {{{0,0,1},{1,0,-1},{2,0,-1},{3,0,-1},{4,0,-1},{5,588,-1},{6,2345,1},{7,2418,1},{8,2323,1},{9,2179,1}},{{480,23,1},{487,23,1},{470,29,1},{478,32,1},{468,25,1},{498,19,-1},{494,15,1},{496,20,1},{455,33,1},{462,27,1}},{{781,1,1},{779,1,1},{784,0,1},{778,0,1},{766,1,-1},{735,1,-1},{758,1,-1},{733,2,-1},{716,0,-1},{794,1,1}}}
>
> The criterion is that the sum of the second elements in each new
> sub-list should be at least 25?
>
> After the re-binning we should get something like:
>
> {{0,0,1},{1,0,-1},{2,0,-1},{3,0,-1},{4,0,-1},{5,588,-1}}
> {6,2345,1}
> {7,2418,1}
> {8,2323,1}
> {9,2179,1}
> {{480,23,1},{487,23,1}}
> {470,29,1}
> {478,32,1}
> {468,25,1},
> {498,19,-1},{494,15,1},
> {496,20,1},{455,33,1}
> {{462,27,1},{781,1,1},{779,1,1},{784,0,1},{778,0,1},{766,1,-1},{735,1,-1},{758,1,-1},{733,2,-1},{716,0,-1},{794,1,1}}}
>
> The first bin has a total of the second elements 588, the second
> 2345, the third 2418,...,the sixth 46, the seventh 29, =C3=A2=E2=82=AC=C2=
=A6,the
> eleventh 53, and the last one 35.
>
> In other words, imagine that these are the results of a counting
> experiment and the second element in every entry (in  ds) corresponds
> to counts. The question is how can we re-bin the data in order to
> have at least 25 counts per new-bin? Of course it is straightforward
> to do it using a Do-loop, but I was wondering if there is any simpler
> way to do it using the efficient Mathematica syntax in an
> =C3=A2=E2=82=AC=C5=93one-liner expression=C3=A2=E2=82=AC_.
>
> Thanks a lot
> Dimitris
>

Hi Dimitris,

I did not manage it in one line but at least looks like Mathematica ;-)

In[2]:= d2 = Block[
  {sum = 0, lst = Flatten[ds, 1]},
  lst = Map[First,
    Split[
      Map[{#, If[(sum += #[[2]]) >= 25, sum=0; False, True]}&, lst],
    Last[#1]&],
  {2}];
  If[Length[lst] >= 2 && Total[Last[lst][[All, 2]]] < 25,
    Join[Drop[lst, -2], {Join @@ Take[lst, -2]}],
    lst]
]
  Out[2]=
{
  {{0,0,1},{1,0,-1},{2,0,-1},{3,0,-1},{4,0,-1},{5,588,-1}},
  {{6,2345,1}},
  {{7,2418,1}},
  {{8,2323,1}},
  {{9,2179,1}},
  {{480,23,1},{487,23,1}},
  {{470,29,1}},
  {{478,32,1}},
  {{468,25,1}},
  {{498,19,-1},{494,15,1}},
  {{496,20,1},{455,33,1}},
  {{462,27,1},{781,1,1},{779,1,1},{784,0,1},{778,0,1},
   {766,1,-1},{735,1,-1},{758,1,-1},{733,2,-1},{716,0,-1},
   {794,1,1}}
}

I guess a loop based approach would be faster in execution but I did
not try it.

Cheers,
Peter




  • Prev by Date: Circuit gains
  • Next by Date: Absolute value
  • Previous by thread: Creating sub-list based on a given criterion
  • Next by thread: Re: Creating sub-list based on a given criterion