Re: Using The Random Function to predict Things

*To*: mathgroup at smc.vnet.net*Subject*: [mg62972] Re: Using The Random Function to predict Things*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Fri, 9 Dec 2005 06:19:41 -0500 (EST)*Organization*: Uni Leipzig*References*: <dnbn04$5qv$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, lst = Table[Random[Integer], {5000000}]; threes = Count[ll = Apply[Plus, Partition[lst, 3, 1], {1}], 3]; and N[threes/Length[ll]] gives you the probability for three 1 in turn. Regards Jens "mathuser" <fieryashish at gmail.com> schrieb im Newsbeitrag news:dnbn04$5qv$1 at smc.vnet.net... | Hi there friends... | I used this line of code "typicalList = Table[Random[Integer], {50}]" and got this result... | | {1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, \ | 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1} | | By generating a few more of these random lists, I'm to predict a similiar situation: such as how long i would expect to wait for 3 heads in a coin tossing competition... | | any suggestion or help as to what code i could use to do this? | | thanks a lot guys |