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 00:08:15 -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