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