Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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


  • Prev by Date: Re: Primed Variables in Mathematica
  • Next by Date: plotting the derivative of a splined/interpolated function
  • Previous by thread: Re: Help about "coin-run" problem......
  • Next by thread: Re: Help about "coin-run" problem......