Re: Simulation

*To*: mathgroup at smc.vnet.net*Subject*: [mg19380] Re: [mg19353] Simulation*From*: "Andrzej Kozlowski" <andrzej at tuins.ac.jp>*Date*: Mon, 23 Aug 1999 13:57:04 -0400*Sender*: owner-wri-mathgroup at wolfram.com

First, what is Table doing in Table[NestList[#+0.01*Random[Integer,{-1,1}]&,5,1000]] There are of course lots of ways to modify your code to do what you want. Here is one that immediately comes to my mind: p := Module[{v = Random[]}, Which[v < 1/6, 1, v < 5/6, 0, True, -1]] data = NestList[# + 0.01*p &, 5, 20]; Slightly less obviously you can also use p := Which[Random[] < 1/6, 1, Random[] < 1/5, -1, True, 0] and lots of other ways. -- Andrzej Kozlowski Toyama International University JAPAN http://sigma.tuins.ac.jp http://eri2.tuins.ac.jp ---------- >From: "Roberto Diego" <r-diego at develnet.es> To: mathgroup at smc.vnet.net >To: mathgroup at smc.vnet.net >Subject: [mg19380] [mg19353] Simulation >Date: Sat, Aug 21, 1999, 4:09 AM > > Hi there, > > I need help on how the expression: > > data=Table[NestList[#+0.01*Random[Integer,{-1,1}]&,5,1000]]; > > could be modified in order to get -1 with probability 1/6, 0 with p 4/6 and > 1 with p 1/6 instead of 1/3,1/3,1/3 > > Thanks a lot > > Roberto Diego > Sociedad de Bolsas > > > >