Re: Testing a random integer generator (Answered)
- To: mathgroup at smc.vnet.net
- Subject: [mg130391] Re: Testing a random integer generator (Answered)
- From: Clif McInnis <c_mcinnis at hotmail.com>
- Date: Mon, 8 Apr 2013 00:04:56 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kjqjln$37o$1@smc.vnet.net>
I had gotten a message that the post had taken too long to upload, so I thought that it was not here. I found a way to make the "test" work and got the results that I expected. In the event that anyone else would be interest
ed the code that I used is as follows:
Peace -- Clif
Initialization /.
Initialization :> {x = 0, p = 0, q = 0, mne = 0, mnn = 0, lte = 0,
ltn = 0}
While[x < 100000, {
Clear[p, q],
q = RandomInteger[{1, 4}], If[q < 4,
{p = RandomInteger[{10, 20}],
q = RandomInteger[],
If[q == 1, q = p, q = RandomInteger[{10, 20}]]}, {p =
RandomInteger[{1, 9}],
q = RandomInteger[],
If[q == 1, q = p, q = RandomInteger[{1, 9}]]}],(*Print[p," and ",
q],*)
If [p >
9, {If[p == q, mne += 1, mnn += 1]}, {If[p == q, lte += 1,
ltn += 1]}]}; x++]; Print[mne/x, Space[10], mnn/x, Space[10],
lte/x, Space[10], ltn/x
]