RandomKISS.st
changeset 3364 386f1893c6ba
parent 3356 abf44c625c74
child 3365 2df5a041ea67
--- a/RandomKISS.st	Wed Oct 01 15:19:17 2014 +0200
+++ b/RandomKISS.st	Wed Oct 01 15:23:26 2014 +0200
@@ -302,17 +302,17 @@
     |t|
 
     "/ Linear Congruencegenerator
-    x := (314527869 * x) + 1234567.
+    x := (69069 * x) + 12345.
     x := x bitAnd:16rFFFFFFFF.
 
     "/ Xorshift
-    y := y bitXor:(y << 22).
+    y := y bitXor:(y << 13).
     y := y bitXor:(y >> 17).
     y := y bitXor:(y << 5).
     y := y bitAnd:16rFFFFFFFF.
 
     "/ Multiply-with-carry
-    t := (4294584393 * z) + c.
+    t := (698769069 * z) + c.
     c := t >> 32.
     z := t bitAnd:16rFFFFFFFF.
 
@@ -322,10 +322,10 @@
 !RandomKISS class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.1 2014-10-01 13:18:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.2 2014-10-01 13:23:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.1 2014-10-01 13:18:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.2 2014-10-01 13:23:26 cg Exp $'
 ! !