Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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


  • Prev by Date: Re: Re: How install tools for mmade?
  • Next by Date: Re: text equation
  • Previous by thread: missing ticks in graphics linux
  • Next by thread: Re: Option for continuous plot