Re: Creating table with multiple lists

*To*: mathgroup at smc.vnet.net*Subject*: [mg7525] Re: [mg7510] Creating table with multiple lists*From*: "w.meeussen" <w.meeussen.vdmcc at vandemoortele.be>*Date*: Tue, 10 Jun 1997 23:18:00 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Ed, you didn't say, but it needs: In[1]:=<<Statistics`NormalDistribution` ***************************************************************************** In[2]:=Table[FoldList[Plus,0,Table[z,{10}]],{3}] Out[2]= {{0, -0.158061, -1.03532, -0.216971, -0.723981, -0.605499, -1.24241, 0.217406, 0.518954, 0.691122, 1.66242}, {0, 0.069052, -0.805858, 0.139529, 1.72578, 2.75487, 2.803, 2.64175, 1.44049, 0.632521, 2.71134}, {0, 1.03335, 1.19412, 1.19995, 1.30228, 2.70029, 2.53024, 3.24825, 3.84778, 3.493, 2.83582}} ****************************************************************************** define z using a delayed assignment, generating a fresh random everytime: z:=Random[NormalDistribution[0,1]] now, the bit "Table[z,{10}] gives you 10 fresh random (Gaussian) numbers The bit "FoldList[operation, starter, LIST]" is well documented; envelop the whole schtuk in a table, and thats'it. If you want to flatten the resulting 2-dim table to a 1-dim list, the use Flatten[%]. my pleasure, wouter. At 03:49 7-06-97 -0400, Ed McCarthy wrote: >I'm trying to create a table with multiple lists that have the same >starting value. Here's the basic code: > >z=NormalDistribution[0,1]; >t=100; x=0; >path=Table[x=x+Random[z], {t}] > >This code will generate a continuous path starting at x=0, which is what I >want. My goal is to repeat the process multiple times, but starting each >new iteration with x=0 while storing each path. This For loop works, but >I'm looking for a better way to do it. > >z=NormalDistribution[0,1]; >list1={}; >For[i=0, i<10, i++, >t=100; x=0; >path=Table[x=x+Random[z],{t}]; >AppendTo[list1,path]] > >Does any have suggestions for generating multiple paths (with x reset to 0 >for each iteration) with a functional approach? I'd like to avoid AppendTo >if possible.Thanks--any comments appreciated. > >Ed McCarthy > > > > Dr. Wouter L. J. MEEUSSEN eu000949 at pophost.eunet.be w.meeussen.vdmcc at vandemoortele.be