Re: Plot Random Walk!
- To: mathgroup at smc.vnet.net
- Subject: [mg34402] Re: Plot Random Walk!
- From: digrpat at aol.com (Patrick Callahan)
- Date: Sat, 18 May 2002 03:51:07 -0400 (EDT)
- References: <ac2nmv$3s4$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
RandomWalk[n_]:=NestList[#+(-1)^Random[Integer]&,0,n];
Show[
Table[
ListPlot[
RandomWalk[200],PlotJoined->True,DisplayFunction->Identity],
{100}
],DisplayFunction->$DisplayFunction]
>
>With this procedure i plot a randomwalk
>
>RandomWalk[n_]:=NetList[#+(-1)^Random[Integer ])&,0,n]
>
>ListPlot [RandomWalk[200],PlotJoined-->True]
>
>
>
>How can i plot for example 100 random walk on the same plot??
>
>Thankyou
>
>
>
>
>
>
>