       Re: Option for continuous plot

• To: mathgroup at smc.vnet.net
• Subject: [mg72919] Re: Option for continuous plot
• From: Bill Rowe <readnewsciv at sbcglobal.net>
• Date: Thu, 25 Jan 2007 06:51:26 -0500 (EST)

```On 1/24/07 at 5:58 AM, vs at it.uu.se (Virgil Stokes) wrote:

>I have defined the following two functions:

>poissonProcess[Î»_,n_] := FoldList[Plus,0,Table[-1/Î»
>Log[1-Random[]],{n}]]

>showPoissonProcess[Î»_,n_,opts___] := With[{pp =
>poissonProcess[Î»,n]},
>Show[Graphics[{AbsoluteThickness[1.5],Table[Line[{{pp[[i]],i-1},{pp[
>[i+1]],i-1}}],{i,1,n}]}], Axes\[Rule]True,opts]];

>for plotting a Poisson process; i.e.,

>SeedRandom; showPoissonProcess[4, 20, AspectRatio -> 0.3];

>does indeed plot this process. However, I would like to have an
>option that would allow for these horizontal lines to be connected;
>i.e., produce a continuous curve.

>Is there a easy way to do this?

Easy is always open to debate. But here is one way to accomplish
what you want

In:=
f = Interpolation[Transpose[
{Evaluate[poissonProcess[4, 20]], Range[0, 20]}],
InterpolationOrder -> 0]

Out=
InterpolatingFunction[]

Plot[f[x], {x, 0, 6.7}, AspectRatio->.3];
--
To reply via email subtract one hundred and four

```

• Prev by Date: Re: FourierTransform help
• Next by Date: Re: Options for Histogram3D
• Previous by thread: Re: Option for continuous plot
• Next by thread: Re: Option for continuous plot