Option for continuous plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg72890] Option for continuous plot*From*: Virgil Stokes <vs at it.uu.se>*Date*: Wed, 24 Jan 2007 05:58:14 -0500 (EST)

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? Thanks, V. Stokes

**Follow-Ups**:**Re: Option for continuous plot***From:*"Chris Chiasson" <chris@chiasson.name>