Re: time series

*To*: mathgroup at smc.vnet.net*Subject*: [mg46407] Re: time series*From*: Bill Rowe <readnewsciv at earthlink.net>*Date*: Mon, 16 Feb 2004 23:43:46 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

On 2/16/04 at 9:00 AM, tarpanelli at libero.it (paolo tarpanelli) wrote: >Given a time series x={a1,a2,a3,a4,a5,a6,...,an} >how can i divide it in different segments x1, x2,..., xn >x1={a1,a2,a3} x2={a4,a5,a6} .... xn={an-2,an-1,an} Try x=Table[Random[],{12}]; variables=Table[ToExpression["x"<>ToString@n],{n,4}]; MapThread[Set[#1,#2]&,{variables,Partition[x,3]}]; x1 {0.543968,0.431695,0.106827} The first line defines x to be a vector with 12 random reals The second line defines variables to be a vector with 4 elements x1 through x4 The third line splits x into segments (Partition) and sets each group of three to the symbols contained in variables. And the last line simply prints the values assigned to x1 -- To reply via email subtract one hundred and four