• To: mathgroup at smc.vnet.net
• Subject: [mg50691] Re: [mg50650] Help about "coin-run" problem......
• From: DrBob <drbob at bigfoot.com>
• Date: Fri, 17 Sep 2004 01:16:01 -0400 (EDT)
• References: <200409150550.BAA11803@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```F[r_, s_, p_:1/2] := (p^r*s^r*(1 - p*s))/
(1 - s + (1 - p)*p^r*s^(r + 1))
R[r_, n_, p_:1/2] := Module[{s},
Normal[Series[F[r, s], {s, 0, n}]] /. s -> 1]
TableForm[Table[2^n*R[r, n], {n, 1, 8}, {r, 1, 8}]]

TableForm[{{1, 0, 0, 0, 0, 0, 0, 0},
{3, 1, 0, 0, 0, 0, 0, 0},
{7, 3, 1, 0, 0, 0, 0, 0},
{15, 8, 3, 1, 0, 0, 0, 0},
{31, 19, 8, 3, 1, 0, 0, 0},
{63, 43, 20, 8, 3, 1, 0, 0},
{127, 94, 47, 20, 8, 3, 1, 0},
{255, 201, 107, 48, 20, 8, 3, 1}}]

Bobby

On Wed, 15 Sep 2004 01:50:24 -0400 (EDT), George <gtsavdar at auth.gr> wrote:

> As i'm a complete beginner at Mathematica, can someone do the
> following work for me?
>
> To show me a way the table on this page is being calculated:
> http://mathworld.wolfram.com/Run.html
> (It's the first and only table in the page and it is based on the
> first 2 equations.)
>
>
> Thank you very much.............
>
>
>

--
DrBob at bigfoot.com
www.eclecticdreams.net

```

• Prev by Date: Re: Primed Variables in Mathematica
• Next by Date: plotting the derivative of a splined/interpolated function