MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Mathematica sessions at SCI 2002 conference
  • Next by Date: Why do parentheses spuriously appear when I type in a formula?
  • Previous by thread: Re: Plot Random Walk!
  • Next by thread: RE: Plot Random Walk!