(unknown charset) Re: [BLACKBOX] Random Number Tests

From: (unknown charset) Oleg N. Cher <"Oleg>
Date: Tue, 18 Nov 2008 12:46:14 +0200

----boundary-LibPST-iamunique-344180329_-_-
Content-type: text/plain

Helmut,
also there is a pseudorandom generator.


(* From M.Raiser, N.Wirth "Programming in Oberon" *)
MODULE RandomNumbers;

VAR z: LONGINT;

PROCEDURE Uniform*(): REAL;
  CONST
    a = 16807; m = 2147483647;
    q = m DIV a; r = m MOD a;
  VAR gamma: LONGINT;
BEGIN
  gamma:=a*(z MOD q) - r*(z DIV q);
  IF gamma>0 THEN z:=gamma
  ELSE z:=gamma+m
  END;
  RETURN z*(1.0/m)
END Uniform;

PROCEDURE InitSeed*(seed: LONGINT);
BEGIN
  z:=seed;
END InitSeed;

BEGIN
  z:=314159;
END RandomNumbers.


If you want to get really random numbers
(not pseudo), must be used timer.
For example, PROCEDURE WinApi.GetTickCount()

--
 Oleg N. Cher
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-344180329_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTFcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhlbG11dCxccGFyDQphbHNvIHRoZXJlIGlzIGEg
cHNldWRvcmFuZG9tIGdlbmVyYXRvci5ccGFyDQpccGFyDQpccGFyDQooKiBGcm9tIE0uUmFpc2Vy
LCBOLldpcnRoICJQcm9ncmFtbWluZyBpbiBPYmVyb24iICopXHBhcg0KTU9EVUxFIFJhbmRvbU51
bWJlcnM7XHBhcg0KXHBhcg0KVkFSIHo6IExPTkdJTlQ7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIFVu
aWZvcm0qKCk6IFJFQUw7XHBhcg0KICBDT05TVFxwYXINCiAgICBhID0gMTY4MDc7ICBtID0gMjE0
NzQ4MzY0NztccGFyDQogICAgcSA9IG0gRElWIGE7ICByID0gbSBNT0QgYTtccGFyDQogIFZBUiBn
YW1tYTogTE9OR0lOVDtccGFyDQpCRUdJTlxwYXINCiAgZ2FtbWE6PWEqKHogTU9EIHEpIC0gcioo
eiBESVYgcSk7XHBhcg0KICBJRiBnYW1tYT4wIFRIRU4gejo9Z2FtbWFccGFyDQogIEVMU0Ugejo9
Z2FtbWErbVxwYXINCiAgRU5EO1xwYXINCiAgUkVUVVJOIHoqKDEuMC9tKVxwYXINCkVORCBVbmlm
b3JtO1xwYXINClxwYXINClBST0NFRFVSRSBJbml0U2VlZCooc2VlZDogTE9OR0lOVCk7XHBhcg0K
QkVHSU4gXHBhcg0KICB6Oj1zZWVkO1xwYXINCkVORCBJbml0U2VlZDtccGFyDQpccGFyDQpCRUdJ
TlxwYXINCiAgejo9MzE0MTU5O1xwYXINCkVORCBSYW5kb21OdW1iZXJzLlxwYXINClxwYXINClxw
YXINCklmIHlvdSB3YW50IHRvIGdldCByZWFsbHkgcmFuZG9tIG51bWJlcnNccGFyDQoobm90IHBz
ZXVkbyksIG11c3QgYmUgdXNlZCB0aW1lci5ccGFyDQpGb3IgZXhhbXBsZSwgUFJPQ0VEVVJFIFdp
bkFwaS5HZXRUaWNrQ291bnQoKVxwYXINClxwYXINCi0tXHBhcg0KIE9sZWcgTi4gQ2hlclxwYXIN
ClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0
aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hccGFy
DQp9
----boundary-LibPST-iamunique-344180329_-_---

Received on Tue Nov 18 2008 - 11:46:14 UTC