MathGroup Archive 2000

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

Search the Archive

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


  • Prev by Date: ExitDialog in ButtonfFunction
  • Next by Date: RE: Could we build matrix with codition instruction?
  • Previous by thread: ExitDialog in ButtonfFunction
  • Next by thread: Re: Random Geometric (long)