Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.soft-sys.math.mathematica > #3492

Re: Insoluble marbles-in-urn problem?

From Bill Rowe <readnews@sbcglobal.net>
Newsgroups comp.soft-sys.math.mathematica
Subject Re: Insoluble marbles-in-urn problem?
Date 2011-07-05 09:11 +0000
Organization Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID <iuukgd$eo0$1@smc.vnet.net> (permalink)

Show all headers | View raw


On 7/4/11 at 6:43 AM, koopman@sfu.ca (Ray Koopman) wrote:

>On Jul 3, 1:14 am, John Feth <johnf...@gmail.com> wrote:
>>There is a huge urn full of marbles, each marked with a single
>>digit: 0, 1, 2, 3, 4, 5, 6, 7, 8, or 9.  The marked marble
>>quantities are uniformly distributed between all of the digits and
>>the marbles are thoroughly mixed.  You look away, choose 10
>>marbles, and put them in a black velvet bag.

>>When you have some time, you look away, open the bag, and remove
>>one marble.  You close the bag, look at the digit on the marble,
>>open a beer perhaps, and calculate the probability that there is at
>>least one more marble in the bag with the same digit.

>P(at least one more marble with the same digit) =
>1 - P(no more marbles with the same digit) =
>1 - (9/10)^9 = .612579511

This solution assumes an infinite urn. If the urn and the number
of marbles in it is assumed finite, then the solution is:

pDiff = 1 - Product[(9 n - k)/(10 n - k - 1), {k, 0, 8}];

which gives the same result for the limit case of n = infinity

In[37]:= Limit[pDiff, n -> Infinity] == 1 - (9/10)^9

Out[37]= True

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread


Thread

Re: Insoluble marbles-in-urn problem? Bill Rowe <readnews@sbcglobal.net> - 2011-07-05 09:11 +0000

csiph-web