MathGroup Archive 2005

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

Search the Archive

Re: Notebook for Borel-Tanner Distribution

  • To: mathgroup at smc.vnet.net
  • Subject: [mg62661] Re: Notebook for Borel-Tanner Distribution
  • From: Paul Abbott <paul at physics.uwa.edu.au>
  • Date: Wed, 30 Nov 2005 05:40:35 -0500 (EST)
  • Organization: The University of Western Australia
  • References: <dl6pje$8uq$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

In article <dl6pje$8uq$1 at smc.vnet.net>,
 "kristoph" <kristophs.post at web.de> wrote:

> Has anybody a notebook for caculating the Borel-Tanner distribution? I
> know there is something in the book of Michael Trott "The Mathematica
> Guide Book for Numerics" but I do not want to spend that much money for
> a couple of pages. 

I don't think that Michael will mind me forwarding his code for the 
Borel-Tanner distribution:

  u[c_] := 1 - 1/c NSum[k^(k - 2)/k! (c Exp[-c])^k, {k, Infinity},
    Method -> Fit, VerifyConvergence -> False]

A plot of this function (and its derivative) is most interesting. u[c] 
has the value c/2 for 0 <= c <= 1. For example, 

  Off[SequenceLimit::seqlim];
  Plot[2/c u[c], {c,-1,8}, PlotRange->{All, {0,1.1}}]

Cheers,
Paul

_______________________________________________________________________
Paul Abbott                                      Phone:  61 8 6488 2734
School of Physics, M013                            Fax: +61 8 6488 1014
The University of Western Australia         (CRICOS Provider No 00126G)    
AUSTRALIA                               http://physics.uwa.edu.au/~paul


  • Prev by Date: Re: Strange "little" problem with scaling
  • Next by Date: Re: Bypassing built-in functions in differentiation
  • Previous by thread: Re: Notebook for Borel-Tanner Distribution
  • Next by thread: publicon to latex translation