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: [mg50677] Re: Help about "coin-run" problem......
  • From: astanoff_otez_ceci at yahoo.fr (astanoff)
  • Date: Fri, 17 Sep 2004 01:15:41 -0400 (EDT)
  • References: <ci8n0d$bud$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

George 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.)

..

You can use "Series" to generate the table :

den[pp_, rr_, nn_]:=
    (s=.; 2^n*Normal[ Series[p^r *s^r(1-p *s)/
                    (1-s+(1-p)p^r * s^(r+1)), {s, 0, n}/.
                  {n -> nn}] /. {p -> pp, r -> rr,
                n -> nn}] /. s -> 1);
 
Table[den[1/2, r, n], {n, 1, 8}, {r, 1, 8}] 
 
{{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}}

hth

v.a.
--
0% de pub! Que du bonheur et des vrais adhérents !
Vous aussi inscrivez-vous sans plus tarder!!
Message posté à partir de http://www.gyptis.org, BBS actif depuis 1995.




  • Prev by Date: Re: Table of Contents in Publicon?
  • Next by Date: Re: Primed Variables in Mathematica
  • Previous by thread: Re: Help about "coin-run" problem......
  • Next by thread: how do I display "Power[z,-1]" in an exponetial form?