Re: Plot Random Walk!
- To: mathgroup at smc.vnet.net
- Subject: [mg34416] Re: Plot Random Walk!
- From: "Borut L" <gollum at email.si>
- Date: Sun, 19 May 2002 04:14:28 -0400 (EDT)
- References: <ac2nmv$3s4$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Using your function RandomWalk[n] with (Net -> Nest),
I would do it like this (20 random walks of magnitute 50 shown on the same
graph) :
Module[
{
walks = 20,
steps = 50
},
Show[
Block[{$DisplayFunction = Identity}
, ListPlot[#
, PlotJoined -> True
] & /@ Table[RandomWalk[steps], {walks}]
]
]
]
Be aware that Block locally sets graphical output off.
Bye,
Borut Levart
"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
>
>
>
>
>