Re: average of the consecutive coin tosses
- To: mathgroup at smc.vnet.net
- Subject: [mg121962] Re: average of the consecutive coin tosses
- From: Jonas <coroa at online.de>
- Date: Fri, 7 Oct 2011 04:48:51 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j6jobf$lv7$1@smc.vnet.net>
On Thu, Oct 06 2011, michael partensky wrote:
> tr = (flips = 1; (#/flips++) & /@ Accumulate[Table[toss, {1000}]]) // N);
>
Accumulate[RandomInteger[{0,1}, 1000]]/Range[1000] // N
should do the trick.