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

Random Geometric

• To: mathgroup at smc.vnet.net
• Subject: [mg23340] Random Geometric
• From: bernd at bio.vu.nl (Bernd Brandt)
• Date: Thu, 4 May 2000 02:59:09 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

Dear All,

With the random function, it is possible to take random numbers from a distribution.
I tried the GeometricDistribution and found something `strange', i think.

The Plot of the frequency of numbers shows a lower number for 23:

tg = Table[Random[GeometricDistribution[0.1]], {i, 1, 10000}];

Table[{i, Count[tg, i]}, {i, 21, 24}]
{{21, 95}, {22, 98}, {23, 48}, {24, 93}}

{{21, 1102}, {22, 1015}, {23, 540}, {24, 877} for 100.000 Random numbers.

Is this indeed something strange for a Random generator? 
It still occurs with more Random numbers, and remains with repeated
evaluation of the  input cell (the counts change, but 23 remains much lower).

Regards,
Bernd

• Follow-Ups:
  • Re: Random Geometric (long)
    • From: Daniel Lichtblau <danl@wolfram.com>