Re: Help about "coin-run" problem......
- 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>
- Reply-to: drbob at bigfoot.com
- 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
- References:
- Help about "coin-run" problem......
- From: gtsavdar@auth.gr (George)
- Help about "coin-run" problem......