RE: Handling a list: Could you find a more elegant solution?
- To: mathgroup at smc.vnet.net
- Subject: [mg38281] RE: [mg38195] Handling a list: Could you find a more elegant solution?
- From: "David Park" <djmp at earthlink.net>
- Date: Tue, 10 Dec 2002 04:17:42 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Guillermo, list1 = {a, b, c, d, e}; ListConvolve[{1, 1}/2, list1]//Simplify {(a + b)/2, (b + c)/2, (c + d)/2, (d + e)/2} David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: guillerm at usal.es [mailto:guillerm at usal.es] To: mathgroup 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/