Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Find a maxlist of within subsets

• To: mathgroup at smc.vnet.net
• Subject: [mg127893] Re: Find a maxlist of within subsets
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Thu, 30 Aug 2012 04:10:07 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20120829051345.3228C6863@smc.vnet.net>

data = {60, 67, 65, 64, 69, 69, 62};

{data[[1]], Cases[Partition[data, 3, 1],
   x_ /; (x[[2]] >= x[[1]] && x[[2]] >= x[[3]]) :>
    x[[2]]], data[[-1]]} // Flatten

{60, 67, 69, 69, 62}


Bob Hanlon


On Wed, Aug 29, 2012 at 1:13 AM, Kate <katesekula at gmail.com> wrote:
> Hi all,
>
> Given a list [a,b,c,d,e,f,g], I am trying to find the maxlist for overlapping subsets of 3 [{abc},{bcd},{cde},{def},{efg}].  To make things more difficult, this list needs to always retain the first and last member of the list [{a},{abc},{bcd},{cde},{def},{efg},{g}].  And, finally, I only want to know if the middle variable of each subset is equal to or greater than the other variables in the subset.
>
> So, for the list [60,67,65,64,69,69,62], which would then be broken into the subsets [{60},{60,67,65},{67,65,64},{65,64,69},{64,69,69},{69,69,62},{62}] I want to return the value: [60, 67, 69, 69, 62].
>
> Any thoughts on the code I could use?
>

• References:
  • Find a maxlist of within subsets
    • From: Kate <katesekula@gmail.com>