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[1]; 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[22]:=
f = Interpolation[Transpose[
{Evaluate[poissonProcess[4, 20]], Range[0, 20]}],
InterpolationOrder -> 0]
Out[22]=
InterpolatingFunction[]
Plot[f[x], {x, 0, 6.7}, AspectRatio->.3];
--
To reply via email subtract one hundred and four