Re: Incidence/frequency of numbers in lists

*To*: mathgroup at smc.vnet.net*Subject*: [mg47761] Re: Incidence/frequency of numbers in lists*From*: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>*Date*: Mon, 26 Apr 2004 02:40:51 -0400 (EDT)*References*: <c5qj8m$fvs$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

You need to use a pattern containing Repeated pieces. Define a list to work with. x = {{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6}, {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6}, {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6}, {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6}, {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6}, {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6}, {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6}}; Filter using the appropriate pattern Cases[x, p : {1, 1, (1) .., 2, 2, (2) .., 3, 3, (3) .., 4, 4, (4) ..., 5, 5, (5) .., 6, 6, (6) ..}] A shorter version of the same thing. Cases[x, p : Flatten[Table[{i, i, (i) ..}, {i, 6}]]] Steve Luttrell "Diana" <diana53xiii at earthlink.remove13.net> wrote in message news:c5qj8m$fvs$1 at smc.vnet.net... > Hi math folks, > > I have a 24 - 455 table. I have named the table SortedEdgeSet. > > The first few lines look like the following: > > {{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6}, > {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6}, > {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6}, > {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6}, > {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6}, > {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6}, > {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6},... > > The numbers 1 - 6 are listed 24 times in each of 455 sublists. > > I would like to create a new table which does not contain the sublist > members which have two or fewer occurances of any of the six numbers in the > sublist. I only want sublists which have three or more of each of the > numbers. > > So, for example, I would want to exclude the second sublist line: > > {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6}, > because it only has two 6's in it. > > I don't know what an occurance function might be in Mathematica. Can anyone > help? > > Thanks, > > Diana M. > -- > ===================================================== > "God made the integers, all else is the work of man." > L. Kronecker, Jahresber. DMV 2, S. 19. >