Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: average of the consecutive coin tosses

• To: mathgroup at smc.vnet.net
• Subject: [mg121937] Re: average of the consecutive coin tosses
• From: "Harvey P. Dale" <hpd1 at nyu.edu>
• Date: Fri, 7 Oct 2011 04:44:19 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201110060818.EAA22381@smc.vnet.net>

	Perhaps something like this:

With[{numberoftosses=500},Accumulate[RandomInteger[{0,1},numberoftosses]
]/Range[numberoftosses]]//N

	Best,

	Harvey


-----Original Message-----
From: michael partensky [mailto:partensky at gmail.com]
Sent: Thursday, October 06, 2011 4:18 AM
To: mathgroup at smc.vnet.net
Subject: [mg121937] average of the consecutive coin tosses

Hi.

What are the better ways of doing what this guy does very inefficiently
for
the average of the consecutive coin tosses:

tr = (flips = 1; (#/flips++) & /@ Accumulate[Table[toss, {1000}]]) //
N);

where

toss= RandomInteger[];

Thanks
Michael

• References:
  • average of the consecutive coin tosses
    • From: michael partensky <partensky@gmail.com>