MathGroup Archive 2005

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

Search the Archive

The two dices


I wanted to simulate the throws of two dices and something happened I can't
(Mathematica 5.0 , the same occurs on Mathematica 5.1 )

The following code is OK:

theThrows = Table[Random[Integer, {1, 6}] + Random[Integer, {1, 6}], {n}];
theStats = Table[Count[theThrows, i], {i, 2, 12}]

the occurences, as n becomes greater and greater, looks like the Gaussian
(sorry for my English)

Suppose you want your dice function, and that it is defined by

dice[]:=Random[Integer, {1, 6}]  ( nothing wrong about it, I suppose )

Now the behavior of the following code changes depending on the value of n.
If n < 250 everything is fine ...
hen n >= 250, then there is no occurence of odd values.
( the two dices never give 3, 5, ....)

theThrows = Table[dice[] + dice[], {n}];
theStats = Table[Count[theThrows, i], {i, 2, 12}]

Does a rationnal explanation exists ?  Is it a bug ?

The two definitions ( see below ) of the dice function "makes" the code
running properly.
But, of course, I prefer the former definition.

dice:=Random[Integer, {1, 6}]  ( not so nice, specially if you want to have
several dice functions)
dice[_]:=Random[Integer, {1, 6}]   ( you must give a parameter to the
function, quite horrible )

Thank you for your help.

  • Prev by Date: Re: Bug in 5.1??
  • Next by Date: Re: Re: Bug in 5.1??
  • Previous by thread: Re: problems plotting a derivative
  • Next by thread: Re: The two dices