MathGroup Archive 2007

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

Search the Archive

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


  • 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