Re: Handling a list: Could you find a more elegant solution?
- To: mathgroup at smc.vnet.net
- Subject: [mg38246] Re: Handling a list: Could you find a more elegant solution?
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Tue, 10 Dec 2002 04:09:50 -0500 (EST)
- References: <asn36u$40k$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
> I have a list: > > list1 = {a, b, c, d, e}; > > I want manipulate the list to obtain: > > (*Out[]:{(a + b)/2, (b + c)/2, (c + d)/2, (d + e)/2}*) list1={a,b,c,d,e}; ListCorrelate[{1,1},list1]/2 {(a + b)/2, (b + c)/2, (c + d)/2, (d + e)/2} -- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 <guillerm at usal.es> wrote in message news:asn36u$40k$1 at smc.vnet.net... > I have a list: > > list1 = {a, b, c, d, e}; > > I want manipulate the list to obtain: > > (*Out[]:{(a + b)/2, (b + c)/2, (c + d)/2, (d + e)/2}*) > > It can be done for this function > > f[data_List] := Drop[Plus @@ NestList[RotateRight, data, > 1], 1]/2 > > f[list1] > > but I am sure that some member of the group can find a more elegant function. I > will appreciate to know it. > > Thanks > > Guillermo Sanchez > > > --------------------------------------------- > This message was sent using Endymion MailMan. > http://www.endymion.com/products/mailman/ > > >