average of the consecutive coin tosses
- To: mathgroup at smc.vnet.net
- Subject: [mg121879] average of the consecutive coin tosses
- From: michael partensky <partensky at gmail.com>
- Date: Thu, 6 Oct 2011 04:18:15 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
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
- Follow-Ups:
- Re: average of the consecutive coin tosses
- From: DrMajorBob <btreat1@austin.rr.com>
- Re: average of the consecutive coin tosses
- From: michael partensky <partensky@gmail.com>
- Re: average of the consecutive coin tosses
- From: michael partensky <partensky@gmail.com>
- Re: average of the consecutive coin tosses
- From: Darren Glosemeyer <darreng@wolfram.com>
- Re: average of the consecutive coin tosses
- From: michael partensky <partensky@gmail.com>
- Re: average of the consecutive coin tosses
- From: michael partensky <partensky@gmail.com>
- Re: average of the consecutive coin tosses
- From: michael partensky <partensky@gmail.com>
- Re: average of the consecutive coin tosses
- From: "Harvey P. Dale" <hpd1@nyu.edu>
- Re: average of the consecutive coin tosses
- From: Michael Stern <nycstern@gmail.com>
- Re: average of the consecutive coin tosses
- From: Heike Gramberg <heike.gramberg@gmail.com>
- Re: average of the consecutive coin tosses
- From: Sseziwa Mukasa <mukasa@gmail.com>
- Re: average of the consecutive coin tosses