Re: Find a maxlist of within subsets

• To: mathgroup at smc.vnet.net
• Subject: [mg127882] Re: Find a maxlist of within subsets
• From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
• Date: Thu, 30 Aug 2012 04:06:26 -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

```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?

Hi,
Try this function:

mySplit[lst_List] := Module[{rule},
rule[{x_, y_, z_}] := y;
Append[
Prepend[Map[rule,
Select[Partition[lst, 3,
1], #[[2]] >= #[[3]] && #[[2]] >= #[[1]] &]], First[lst]],
Last[lst]]
];

For your example,

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

it gives

mySplit[{60, 67, 65, 64, 69, 69, 62}]

{60, 67, 69, 69, 62}

Which is not exactly what you obtained as an exampkle, but on the other hand it is what you described in words.

Have fun, Alexei

Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG

Office phone :  +352-2454-2566
Office fax:       +352-2454-3566
mobile phone:  +49 151 52 40 66 44

e-mail: alexei.boulbitch at iee.lu

```

• Prev by Date: How to create links or bookmarks to jump to sections inside a notebook
• Next by Date: Re: Find a maxlist of within subsets
• Previous by thread: Re: Find a maxlist of within subsets
• Next by thread: Re: Find a maxlist of within subsets