Re: Plot Random Walk!
- To: mathgroup at smc.vnet.net
- Subject: [mg34414] Re: Plot Random Walk!
- From: lzhao at ihw.com.cn (Instanton)
- Date: Sat, 18 May 2002 03:51:40 -0400 (EDT)
- References: <ac2nmv$3s4$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
First, corrections to your code for the definition of RandomWalk:
RandomWalk[n_] := NestList[(# + (-1)^Random[Integer]) &, 0, n];
Then, define a table of ListPlots:
plottable[m_]:=Table[ListPlot[RandomWalk[200], PlotJoined -> True],{i,1,m}];
Last, Show the plots:
Show[plottable[100]]
Good luck.
Instanton
"Andrea" <cigen at hil.de> wrote in message news:<ac2nmv$3s4$1 at smc.vnet.net>...
> 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