Random.st
author Claus Gittinger <cg@exept.de>
Tue, 25 Jul 2017 18:03:50 +0200
changeset 4481 7785f5a3c411
parent 4198 0577571b74da
child 4590 26321c0bc45c
permissions -rw-r--r--
#DOCUMENTATION by cg class: Random class comment/format in: #documentation
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
     1
"
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
     2
======================================================================
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
     3
|
1cf8d1747859 Initial revision
claus
parents:
diff changeset
     4
| Copyright (C) 1988, 1989 Free Software Foundation, Inc.
1cf8d1747859 Initial revision
claus
parents:
diff changeset
     5
| Written by Steve Byrne.
1cf8d1747859 Initial revision
claus
parents:
diff changeset
     6
|
1cf8d1747859 Initial revision
claus
parents:
diff changeset
     7
| This file is part of GNU Smalltalk.
1cf8d1747859 Initial revision
claus
parents:
diff changeset
     8
|
1cf8d1747859 Initial revision
claus
parents:
diff changeset
     9
| GNU Smalltalk is free software; you can redistribute it and/or modify it
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    10
| under the terms of the GNU General Public License as published by the Free
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    11
| Software Foundation; either version 1, or (at your option) any later version.
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    12
| 
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    13
| GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    14
| ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    15
| FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    16
| details.
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    17
| 
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    18
| You should have received a copy of the GNU General Public License along with
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    19
| GNU Smalltalk; see the file LICENSE.  If not, write to the Free Software
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    20
| Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    21
|
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
    22
======================================================================
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    23
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
    24
see notice in (Random>>documentation)
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    25
"
928
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
    26
"{ Package: 'stx:libbasic2' }"
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
    27
3675
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
    28
"{ NameSpace: Smalltalk }"
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
    29
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    30
Stream subclass:#Random
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
    31
	instanceVariableNames:'seed increment multiplier modulus'
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
    32
	classVariableNames:'SharedGenerator RandomSalt'
232
b2a2cc7ff15e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 142
diff changeset
    33
	poolDictionaries:''
b2a2cc7ff15e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 142
diff changeset
    34
	category:'Magnitude-Numbers'
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    35
!
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    36
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
    37
!Random class methodsFor:'documentation'!
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
    38
31
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    39
copyright
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    40
"
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    41
======================================================================
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    42
|
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    43
| Copyright (C) 1988, 1989 Free Software Foundation, Inc.
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    44
| Written by Steve Byrne.
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    45
|
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    46
| This file is part of GNU Smalltalk.
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    47
|
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    48
| GNU Smalltalk is free software; you can redistribute it and/or modify it
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    49
| under the terms of the GNU General Public License as published by the Free
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    50
| Software Foundation; either version 1, or (at your option) any later version.
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    51
| 
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    52
| GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    53
| ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    54
| FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    55
| details.
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    56
| 
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    57
| You should have received a copy of the GNU General Public License along with
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    58
| GNU Smalltalk; see the file LICENSE.  If not, write to the Free Software
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    59
| Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    60
|
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    61
======================================================================
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    62
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    63
see notice in (Random>>documentation)
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    64
"
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    65
!
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    66
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    67
documentation
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    68
"
2044
12060201e21a comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
    69
    WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
12060201e21a comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
    70
    =======================================================================================
12060201e21a comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
    71
    DO NOT USE THIS GENERATOR FOR CRYPTOGRAPHY OR OTHER SECURITY RELATED WORK, 
12060201e21a comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
    72
    because linear congruential generators are predictable and can be broken easily!!
3776
d1412e4f5779 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3750
diff changeset
    73
d1412e4f5779 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3750
diff changeset
    74
    Smalltalk/X includes a better generator named RandomGenerator, which uses the best
d1412e4f5779 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3750
diff changeset
    75
    available generator of the system (either OS-random, /dev/random or as a less dangerous
4481
7785f5a3c411 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 4198
diff changeset
    76
    fallback, an RC4-based random generator).
3776
d1412e4f5779 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3750
diff changeset
    77
    Please use that one.
2044
12060201e21a comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
    78
    =======================================================================================
31
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    79
4481
7785f5a3c411 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 4198
diff changeset
    80
    A simple random numbers - thanks to Steves GNU Smalltalk
7785f5a3c411 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 4198
diff changeset
    81
7785f5a3c411 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 4198
diff changeset
    82
    This implements a linear congruential maximum period random number generator
7785f5a3c411 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 4198
diff changeset
    83
    which passes the spectral test for randomness for dimensions 2 3 4 5 6.
7785f5a3c411 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 4198
diff changeset
    84
31
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    85
    Notice: although being included here,
258
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    86
            this file is NOT covered by the ST/X license, but by
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    87
            the FSF copyLeft (see copyright method).
31
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
    88
258
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    89
            You can redistribute it under the terms stated there ...
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    90
            Also, the price you pay for ST/X does not include a charge for
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    91
            this file - it has to be considered as a separate piece of
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    92
            software, which can be copied and given away without any 
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    93
            restriction from my (CG) side.
75
claus
parents: 65
diff changeset
    94
258
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    95
    [author:]
271
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
    96
        Steve Byrne
258
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
    97
        Claus Gittinger
947
23faa406af1f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 928
diff changeset
    98
23faa406af1f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 928
diff changeset
    99
    [see also:]
3394
80d468c95564 documentation link
Claus Gittinger <cg@exept.de>
parents: 3387
diff changeset
   100
        http://www0.cs.ucl.ac.uk/staff/d.jones/GoodPracticeRNG.pdf
998
5f66a2dd6b7d documentation
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
   101
        RandomTT800      - a new random generator
5f66a2dd6b7d documentation
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
   102
        RandomParkMiller - another new random generator
271
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   103
"
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   104
!
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   105
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   106
examples
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   107
"
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   108
                                                                        [exBegin]
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   109
    |rnd|
258
c2933c08c83a documentation
Claus Gittinger <cg@exept.de>
parents: 232
diff changeset
   110
271
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   111
    rnd := Random new.
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   112
    10 timesRepeat:[
350
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   113
        Transcript showCR:(rnd next)
271
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   114
    ]
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   115
                                                                        [exEnd]
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   116
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   117
    rolling a dice:
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   118
                                                                        [exBegin]
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   119
    |rnd|
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   120
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   121
    rnd := Random new.
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   122
    10 timesRepeat:[
350
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   123
        Transcript showCR:(rnd nextIntegerBetween:1 and:6)
271
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   124
    ]
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   125
                                                                        [exEnd]
31
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
   126
"
e223f3cf2995 *** empty log message ***
claus
parents: 20
diff changeset
   127
! !
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   128
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   129
!Random class methodsFor:'instance creation'!
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   130
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   131
new
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   132
    "return a new random generator"
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   133
2291
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   134
    ^ self basicNew initialize
842
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   135
!
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   136
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   137
random
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   138
    "return a new random generator.
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   139
     Defined here for compatibility with StreamCipher"
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   140
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   141
    ^ self new
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   142
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   143
    "Created: / 12.11.1999 / 17:52:08 / stefan"
1128
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   144
!
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   145
1878
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   146
seed:seedValue
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   147
    "return a new random generator with initial seed"
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   148
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   149
    ^self basicNew setSeed:seedValue
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   150
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   151
    "Created: / 26-05-2007 / 21:27:18 / cg"
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   152
!
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   153
1128
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   154
sharedGenerator
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   155
    "return a shared random generator."
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   156
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   157
    SharedGenerator isNil ifTrue:[
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   158
        SharedGenerator := self new.
1128
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   159
    ].
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   160
    ^ SharedGenerator
2291
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   161
!
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   162
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   163
standard
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   164
    "return the 'standard' generator"
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   165
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   166
    ^ self new
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   167
! !
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   168
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   169
!Random class methodsFor:'random numbers'!
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   170
3171
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   171
next
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   172
    "return the next random number in the range 0..1
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   173
     This method behaves like the corresponding instance method,
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   174
     but allows generation of random numbers without
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   175
     a need for an instance of Random to be kept around.
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   176
     This uses a common, shared generator."
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   177
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   178
    ^ self sharedGenerator next.
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   179
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   180
    "
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   181
     Transcript showCR:(Random next).
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   182
     Transcript showCR:(Random next).
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   183
     Transcript showCR:(Random next).
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   184
     Transcript showCR:(Random next).
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   185
    "
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   186
!
4cda53d2b308 class: Random
Claus Gittinger <cg@exept.de>
parents: 3134
diff changeset
   187
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   188
nextBetween:start and:stop
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   189
    "return a random number between start and stop.
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   190
     This method behaves like the corresponding instance method,
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   191
     but allows generation of random numbers without
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   192
     a need for an instance of Random to be kept around.
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   193
     This uses a common, shared generator."
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   194
1128
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   195
    ^ self sharedGenerator nextBetween:start and:stop
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   196
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   197
    "
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   198
     Transcript showCR:(Random nextBetween:1 and:100).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   199
     Transcript showCR:(Random nextBetween:1 and:100).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   200
     Transcript showCR:(Random nextBetween:1 and:100).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   201
     Transcript showCR:(Random nextBetween:1 and:100).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   202
    "
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   203
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   204
    "Modified: 21.8.1997 / 18:08:56 / cg"
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   205
    "Created: 21.8.1997 / 18:09:36 / cg"
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   206
!
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   207
851
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   208
nextBoolean
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   209
    "return a boolean random.
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   210
     This method behaves like the corresponding instance method,
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   211
     but allows generation of random numbers without
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   212
     a need for an instance of Random to be kept around.
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   213
     This uses a common, shared generator."
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   214
1128
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   215
    ^ self sharedGenerator nextBoolean.
851
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   216
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   217
    "
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   218
     Transcript showCR:(Random nextBoolean).
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   219
     Transcript showCR:(Random nextBoolean).
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   220
     Transcript showCR:(Random nextBoolean).
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   221
     Transcript showCR:(Random nextBoolean).
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   222
    "
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   223
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   224
    "Created: 21.8.1997 / 18:08:23 / cg"
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   225
!
e1c3af12daca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   226
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   227
nextInteger
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   228
    "return an integral random number.
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   229
     This method behaves like the corresponding instance method,
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   230
     but allows generation of random numbers without
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   231
     a need for an instance of Random to be kept around.
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   232
     This uses a common, shared generator."
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   233
1128
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   234
    ^ self sharedGenerator nextInteger.
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   235
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   236
    "
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   237
     Transcript showCR:(Random nextInteger).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   238
     Transcript showCR:(Random nextInteger).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   239
     Transcript showCR:(Random nextInteger).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   240
     Transcript showCR:(Random nextInteger).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   241
    "
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   242
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   243
    "Created: 21.8.1997 / 18:08:23 / cg"
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   244
!
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   245
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   246
nextIntegerBetween:start and:stop
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   247
    "return an integral random number between start and stop.
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   248
     This method behaves like the corresponding instance method,
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   249
     but allows generation of random numbers without
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   250
     a need for an instance of Random to be kept around.
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   251
     This uses a common, shared generator."
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   252
1128
72d61e6ef2b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1127
diff changeset
   253
    ^ self sharedGenerator nextIntegerBetween:start and:stop
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   254
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   255
    "
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   256
     Transcript showCR:(Random nextIntegerBetween:1 and:10).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   257
     Transcript showCR:(Random nextIntegerBetween:1 and:10).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   258
     Transcript showCR:(Random nextIntegerBetween:1 and:10).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   259
     Transcript showCR:(Random nextIntegerBetween:1 and:10).
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   260
    "
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   261
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   262
    "Created: 21.8.1997 / 18:07:00 / cg"
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   263
    "Modified: 21.8.1997 / 18:08:56 / cg"
3750
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   264
!
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   265
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   266
nextLettersOrDigits:count
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   267
    "get the next count printable letters or digits [0-9A-Za-z]."
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   268
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   269
    ^ self sharedGenerator nextLettersOrDigits:count
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   270
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   271
    "
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   272
     Transcript showCR:(Random nextLettersOrDigits:10).
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   273
     Transcript showCR:(Random nextLettersOrDigits:10).
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   274
     Transcript showCR:(Random nextLettersOrDigits:10).
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   275
     Transcript showCR:(Random nextLettersOrDigits:10).
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   276
    "
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   277
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   278
    "Created: 21.8.1997 / 18:07:00 / cg"
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   279
    "Modified: 21.8.1997 / 18:08:56 / cg"
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   280
! !
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   281
3383
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   282
!Random class methodsFor:'seeding'!
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   283
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   284
randomSeed
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   285
    "return a number useful for seeding.
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   286
     This takes the current processor's time, plus the processor's process id,
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   287
     plus some value depending on the memory allocation state,
3403
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   288
     plus a random salt, and shuffles those bits around.
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   289
     The entropy returned should be reasonable enough for a good seed of a good rnd
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   290
     generator. However, keep in mind, that it only has a limited number of entropy bits
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   291
     (in the order of 32). 
3414
bfae9f81787a class: Random
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   292
     But it should be much better than what is commonly used in older
3403
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   293
     programs (current time) or even a constant."
3383
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   294
3414
bfae9f81787a class: Random
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   295
    |hash|
bfae9f81787a class: Random
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   296
3383
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   297
    RandomSalt isNil ifTrue:[
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   298
        RandomSalt := 1.
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   299
    ] ifFalse:[
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   300
        RandomSalt := RandomSalt + 1.
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   301
    ].
3431
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   302
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   303
    hash := MD5Stream new.
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   304
    hash 
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   305
        nextPut:RandomSalt;
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   306
        nextPut:Time microsecondClockValue; 
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   307
        nextPut:OperatingSystem getProcessId; 
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   308
        nextPut:(ObjectMemory addressOf:Object new); 
4ece2027bd33 class: Random
Stefan Vogel <sv@exept.de>
parents: 3414
diff changeset
   309
        nextPut:ObjectMemory oldSpaceUsed; 
4198
0577571b74da #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3781
diff changeset
   310
        nextPut:ObjectMemory newSpaceUsed; 
0577571b74da #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3781
diff changeset
   311
        nextPut:OperatingSystem getCPUCycleCount. 
3403
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   312
3414
bfae9f81787a class: Random
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   313
    "/ any other cheap sources of entropy?
3403
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   314
4198
0577571b74da #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3781
diff changeset
   315
    "/ I think there is no problem in that MD5 is not a secure hash algo here 
0577571b74da #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3781
diff changeset
   316
    "/ - the idea is to shuffle the bits around a bit
3403
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   317
    "/ (because the numbers above usually have many high bits in common)
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   318
    "/ and then condense the bits into a smaller number.
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   319
    "/ Any comment from a crypto guy here - I am willing to change this to some other hash, if that makes a problem
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   320
3414
bfae9f81787a class: Random
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   321
    "/ Seeding rnd generators should take some bits from the returned number (i.e. their max. seed size)
bfae9f81787a class: Random
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   322
    ^ LargeInteger digitBytes:hash hashValue.
3383
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   323
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   324
    "
3403
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   325
     10 timesRepeat:[Transcript showCR:self randomSeed].
3414
bfae9f81787a class: Random
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   326
     10 timesRepeat:[Transcript showCR:(self randomSeed bitAnd:16rFFFF)].
3403
bf8cccac67c9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3394
diff changeset
   327
     self randomSeed bitAnd:16rFFFFFFFF
3383
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   328
    "
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   329
! !
836706a681b9 class: Random
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
   330
518
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   331
!Random class methodsFor:'testing'!
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   332
793
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   333
bucketTest: randy
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   334
    "A quick-and-dirty bucket test. Prints nbuckets values on the Transcript.
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   335
     Each should be 'near' the value of ntries. Any run with any value 'far' from ntries
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   336
     indicates something is very wrong. Each run generates different values.
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   337
     For a slightly better test, try values of nbuckets of 200-1000 or more; 
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   338
     go get coffee.
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   339
     This is a poor test; see Knuth.   
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   340
     Some 'OK' runs:
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   341
           1000 1023 998 969 997 1018 1030 1019 1054 985 1003
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   342
           1011 987 982 980 982 974 968 1044 976
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   343
           1029 1011 1025 1016 997 1019 991 954 968 999 991
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   344
           978 1035 995 988 1038 1009 988 993 976
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   345
    "
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   346
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   347
    | nbuckets buckets ntrys slot |
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   348
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   349
    nbuckets := 20.
3192
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   350
    buckets := Array new: nbuckets withAll:0.
793
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   351
    ntrys :=  1000.
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   352
    ntrys*nbuckets timesRepeat: [
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   353
            slot := (randy next * nbuckets) floor + 1.
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   354
            buckets at: slot put: (buckets at: slot) + 1 ].
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   355
    Transcript cr.
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   356
    1 to: nbuckets do: [ :nb |
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   357
            Transcript show: (buckets at: nb) printString, ' ' ]
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   358
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   359
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   360
    "Execute this:  
3192
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   361
         self bucketTest: self new
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   362
         self bucketTest: RandomGenerator new
793
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   363
    "
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   364
!
037f3ceb4e0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 680
diff changeset
   365
518
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   366
chiSquareTest   
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   367
    " Chi-Squared Test - from R.Sedgewick's 1st ed. of 'Algorithms', 
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   368
            o N = number of samples
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   369
            o r  = range of random numners is [0,r)      -- condition: N >= 10r.
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   370
            o Random number generator 'passes' if chisquare value is very close to r
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   371
            o Repeat test several times, since it may be *wrong* 1 out of 10 trials."
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   372
3192
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   373
    | aGenerator frequencies n range t |
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   374
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   375
    aGenerator := self new.  "Seeded differently each time (if seeded at all)"
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   376
    range := 100.   
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   377
    n := 10000.
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   378
    frequencies := Array new:range withAll:0.
518
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   379
3192
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   380
    1 to: n do: [:i |
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   381
        t := ((aGenerator next) * range) truncated + 1.
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   382
        frequencies at:t put: ((frequencies at:t) + 1).
518
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   383
    ].
3192
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   384
    t := frequencies inject:0 into: [:nextValue :eachFreq |
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   385
            nextValue + eachFreq squared
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   386
        ].
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   387
    ^ ((range * t  / n) - n) asFloat.
518
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   388
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   389
    "
3192
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   390
     self chiSquareTest 
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   391
     RandomGenerator chiSquareTest
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   392
    "
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   393
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   394
   "
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   395
    |fail|
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   396
    fail := 0.
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   397
    10 timesRepeat:[
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   398
        |testResult|
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   399
        testResult := RandomGenerator chiSquareTest.
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   400
        (100 - testResult) abs > 20 ifTrue:[Transcript showCR:testResult. fail := fail + 1].
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   401
    ].
fcff2fefb444 class: Random
Stefan Vogel <sv@exept.de>
parents: 3188
diff changeset
   402
    fail > 1 ifTrue:[self error:'test failed'].
518
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   403
    "
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   404
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   405
    "
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   406
      Sedgewick claims each chisquare number should be 100 +- 20. 
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   407
      The closer to 100, the better.
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   408
    "
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   409
! !
f5fe8b630e4c chiSquareTest
Claus Gittinger <cg@exept.de>
parents: 517
diff changeset
   410
1201
08004b394663 method category rename
Claus Gittinger <cg@exept.de>
parents: 1175
diff changeset
   411
!Random methodsFor:'Compatibility-Squeak'!
928
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   412
2309
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   413
nextInt:upperBound
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   414
    "Answer a random integer in the interval [1, anInteger]."
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   415
3188
e22bc4a307e1 class: Random
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   416
    (upperBound < 1) ifTrue:[self error:'invalid upper bound'].
e22bc4a307e1 class: Random
Claus Gittinger <cg@exept.de>
parents: 3171
diff changeset
   417
2309
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   418
    ^ self nextIntegerBetween:1 and:upperBound
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   419
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   420
    "
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   421
     Random new nextInt:10
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   422
    "
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   423
!
9f2c39c721db added: #nextInt: - squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 2291
diff changeset
   424
928
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   425
nextIntFrom:lowerBound to:upperBound
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   426
    "return a random integer in the given range"
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   427
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   428
    ^ self nextIntegerBetween:lowerBound and:upperBound
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   429
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   430
    "
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   431
     Random new nextIntFrom:5 to:10
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   432
    "
3060
5267b3c2754c added: #seed: for compatibility with Squeak
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3026
diff changeset
   433
!
5267b3c2754c added: #seed: for compatibility with Squeak
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3026
diff changeset
   434
5267b3c2754c added: #seed: for compatibility with Squeak
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3026
diff changeset
   435
seed: anInteger
5267b3c2754c added: #seed: for compatibility with Squeak
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3026
diff changeset
   436
    self setSeed: anInteger.
5267b3c2754c added: #seed: for compatibility with Squeak
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3026
diff changeset
   437
5267b3c2754c added: #seed: for compatibility with Squeak
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3026
diff changeset
   438
    "Created: / 20-07-2013 / 01:52:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
928
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   439
! !
86c222baa183 squeak compatibility
Claus Gittinger <cg@exept.de>
parents: 851
diff changeset
   440
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   441
!Random methodsFor:'accessing-reading'!
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   442
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   443
next
3675
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   444
    "return the next random number in the range ]0..1["
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   445
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   446
    self step.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   447
    ^ seed / modulus asFloat
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   448
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   449
    "
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   450
     |r|
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   451
     r := Random new.
350
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   452
     Transcript showCR:r next.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   453
     Transcript showCR:r next.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   454
     Transcript showCR:r next.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   455
     Transcript showCR:r next.
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   456
    "
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   457
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   458
    "Modified: 1.4.1997 / 22:44:46 / cg"
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   459
!
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   460
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   461
nextBetween:start and:stop
3675
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   462
    "return a random number in the range ]start..stop[.
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   463
     claus: the original GNU version has a bug in returning values
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   464
     from the interval [start .. stop+1]"
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   465
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   466
    |rnd|
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   467
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   468
    rnd := self next.
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   469
    rnd := rnd * (stop - start) asFloat.
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   470
    rnd := rnd + start asFloat.
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   471
    ^ rnd
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   472
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   473
    "|r|
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   474
     r := Random new.
350
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   475
     Transcript showCR:(r nextBetween:1 and:10).
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   476
     Transcript showCR:(r nextBetween:1 and:10).
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   477
     Transcript showCR:(r nextBetween:1 and:10).
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   478
     Transcript showCR:(r nextBetween:1 and:10).
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   479
    "
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   480
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   481
    "Modified: / 21.8.1998 / 14:45:27 / cg"
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   482
!
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   483
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   484
nextBoolean
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   485
    "return true or false by random"
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   486
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   487
    self step.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   488
    ^ seed < (modulus // 2)
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   489
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   490
    "
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   491
    |r|
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   492
     r := Random new.
350
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   493
     Transcript showCR:r nextBoolean.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   494
     Transcript showCR:r nextBoolean.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   495
     Transcript showCR:r nextBoolean.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   496
     Transcript showCR:r nextBoolean.
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   497
    "
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   498
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   499
    "
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   500
     |r bag|
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   501
     r := Random new.
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   502
     bag := Bag new.
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   503
     1000000 timesRepeat:[
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   504
         bag add:(r nextBoolean).
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   505
     ].
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   506
     Transcript showCR:bag contents
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   507
    "
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   508
2045
cad1dc35c091 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2044
diff changeset
   509
    "Modified: / 22-10-2008 / 15:17:57 / cg"
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   510
!
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   511
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   512
nextByte
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   513
    "return the next integral random number byte in the range 0 .. 16rFF"
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   514
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   515
    self step.
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   516
    ^ seed bitAnd:16rFF
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   517
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   518
    "
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   519
     |r|
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   520
     r := self new.
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   521
     Transcript showCR:r nextByte.
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   522
     Transcript showCR:r nextByte.
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   523
     Transcript showCR:r nextByte.
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   524
     Transcript showCR:r nextByte.
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   525
    "
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   526
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   527
    "Modified: 1.4.1997 / 22:42:53 / cg"
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   528
!
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   529
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   530
nextBytes:count
978
5a4c98ef6584 comment
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   531
    "return count random bytes (0..16rFF each)"
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   532
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   533
    |res cnt "{Class: SmallInteger}"|
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   534
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   535
    cnt := count.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   536
    res := ByteArray uninitializedNew:cnt.
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   537
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   538
    1 to:cnt do:[:i|
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   539
        self step.
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   540
        res at:i put:(seed bitAnd:16rFF).
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   541
    ].
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   542
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   543
    ^ res
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   544
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   545
    "
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   546
     Transcript showCR:(Random new nextBytes:20).
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   547
    "
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   548
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   549
    "Modified: 1.4.1997 / 22:42:53 / cg"
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   550
!
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   551
1642
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   552
nextCharacters:count
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   553
    "get the next cnt printable characters.
3750
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   554
     We answer printable characters in the ascii range (codepoints 32 - 126)"
1642
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   555
3750
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   556
    |res cnt "{ Class:SmallInteger }"|
1642
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   557
3750
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   558
    cnt := count.
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   559
    res := String uninitializedNew:cnt.
1642
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   560
3750
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   561
    1 to:cnt do:[:i|
1642
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   562
        self step.
3750
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   563
        res at:i put:(Character value:(seed \\ 94 + 32)).
1642
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   564
    ].
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   565
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   566
    ^ res
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   567
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   568
    "
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   569
      Random new nextCharacters:8
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   570
    "
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   571
!
0abc34691f6c #nextCharacters:
Stefan Vogel <sv@exept.de>
parents: 1212
diff changeset
   572
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   573
nextInteger
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   574
    "return the next integral random number,
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   575
     in the range 0 .. modulus (which is less than 16r3FFFFFFF).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   576
     From Sedgewick's 'Algorithms', based on Lehmer's method.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   577
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   578
     Take care, this returns an even number after each odd number!!"
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   579
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   580
    self step.
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   581
    ^ seed
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   582
840
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   583
    "
5f6559515588 Add #nextByte and #nextBytes:
Stefan Vogel <sv@exept.de>
parents: 793
diff changeset
   584
     |r|
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   585
     r := Random new.
350
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   586
     Transcript showCR:r nextInteger.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   587
     Transcript showCR:r nextInteger.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   588
     Transcript showCR:r nextInteger.
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   589
     Transcript showCR:r nextInteger.
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   590
    "
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   591
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   592
    "Modified: 1.4.1997 / 22:42:53 / cg"
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   593
!
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   594
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   595
nextIntegerBetween:start and:stop
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   596
    "return an integral random number between start and stop"
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   597
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   598
    |rnd range bytesNeeded|
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   599
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   600
    range := stop - start + 1.
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   601
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   602
    range < modulus ifTrue:[
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   603
        "we need the float computation in order to not return alternate even and odd numbers"
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   604
        rnd := (self next * range) truncated.    
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   605
        ^ rnd + start.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   606
    ] ifFalse:[
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   607
        bytesNeeded := (range highBit + 7) // 8.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   608
        rnd := LargeInteger digitBytes:(self nextBytes:bytesNeeded).      
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   609
        rnd := rnd bitXor:(seed < (modulus//2) ifTrue:[0] ifFalse:[1]). "do not alternately return even and odd numbers"
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   610
        ^ start + (rnd \\ range).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   611
    ].
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   612
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   613
    "
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   614
     |r|
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   615
     r := self new.
350
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   616
     Transcript showCR:(r nextIntegerBetween:1 and:10).
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   617
     Transcript showCR:(r nextIntegerBetween:1 and:10).
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   618
     Transcript showCR:(r nextIntegerBetween:1 and:10).
93d5932c76e6 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 271
diff changeset
   619
     Transcript showCR:(r nextIntegerBetween:1 and:10).
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   620
    "
561
f00675b5531f added class protocol for random numbers
Claus Gittinger <cg@exept.de>
parents: 518
diff changeset
   621
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   622
    "
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   623
     |r|
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   624
     r := self new.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   625
     Transcript showCR:(r nextIntegerBetween:1 and:1000000).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   626
     Transcript showCR:(r nextIntegerBetween:1 and:1000000).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   627
     Transcript showCR:(r nextIntegerBetween:1 and:1000000).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   628
     Transcript showCR:(r nextIntegerBetween:1 and:1000000).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   629
    "
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   630
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   631
    "
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   632
     |r bag|
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   633
     r := self new.
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   634
     bag := Bag new.
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   635
     1000000 timesRepeat:[
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   636
         bag add:(r nextIntegerBetween:-1 and:1).
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   637
     ].
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   638
     Transcript showCR:bag sortedCounts.
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   639
    "
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   640
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   641
    "
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   642
     |r bag|
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   643
     r := self new.
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   644
     bag := Bag new.
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   645
     1000000 timesRepeat:[
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   646
         bag add:(r nextIntegerBetween:1 and:3).
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   647
     ].
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   648
     Transcript showCR:bag sortedCounts.
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   649
     TestCase assert:(bag standardDeviation closeTo:(((3 squared - 1)/12) sqrt)).
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   650
    "
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   651
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   652
    "
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   653
     |r bag|
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   654
     r := self new.
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   655
     bag := Bag new.
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   656
     1000000 timesRepeat:[
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   657
         bag add:(r nextIntegerBetween:1 and:32).
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   658
     ].
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   659
     Transcript showCR:bag sortedCounts.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   660
     TestCase assert:(bag standardDeviation closeTo:(((32 squared - 1)/12) sqrt)).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   661
    "
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   662
680
a7b98fdac3dc fixed nextIntegerBetween:and:
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   663
    "
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   664
     |r bag|
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   665
     r := self new.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   666
     bag := Bag new.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   667
     100000000 timesRepeat:[
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   668
         bag add:(r nextIntegerBetween:1 and:400000).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   669
     ].
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   670
     Transcript showCR:bag sortedCounts.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   671
     TestCase assert:(bag standardDeviation closeTo:(((400000 squared - 1)/12) sqrt)).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   672
    "
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   673
3675
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   674
    "
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   675
     |r|
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   676
     
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   677
     r := self new.
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   678
     100000000 timesRepeat:[
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   679
         self assert:((r nextIntegerBetween:1 and:3) between:1 and:3).
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   680
     ].
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   681
    "
3750
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   682
!
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   683
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   684
nextLettersOrDigits:count
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   685
    "get the next count printable letters or digits [0-9A-Za-z]."
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   686
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   687
    |res cnt "{ Class:SmallInteger }"|
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   688
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   689
    cnt := count.
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   690
    res := String uninitializedNew:cnt.
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   691
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   692
    1 to:cnt do:[:i|
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   693
        self step.
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   694
        res 
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   695
            at:i 
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   696
            put:('1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' at:(seed \\ 62 + 1)).
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   697
    ].
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   698
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   699
    ^ res
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   700
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   701
    "
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   702
      Random new nextLettersOrDigits:40
54c47e28047d #FEATURE
Stefan Vogel <sv@exept.de>
parents: 3675
diff changeset
   703
    "
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   704
! !
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   705
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   706
!Random methodsFor:'blocked methods'!
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   707
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   708
contents
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   709
    "blocked from use - contents makes no sense for random generators"
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   710
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   711
    self shouldNotImplement
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   712
!
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   713
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   714
nextPut: value
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   715
    "blocked from use - it makes no sense for randoms"
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   716
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   717
    self shouldNotImplement
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   718
! !
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   719
2459
efcb4bd16dc7 category of: #initialize
Claus Gittinger <cg@exept.de>
parents: 2430
diff changeset
   720
!Random methodsFor:'initialization'!
efcb4bd16dc7 category of: #initialize
Claus Gittinger <cg@exept.de>
parents: 2430
diff changeset
   721
efcb4bd16dc7 category of: #initialize
Claus Gittinger <cg@exept.de>
parents: 2430
diff changeset
   722
initialize
efcb4bd16dc7 category of: #initialize
Claus Gittinger <cg@exept.de>
parents: 2430
diff changeset
   723
    self setSeed
efcb4bd16dc7 category of: #initialize
Claus Gittinger <cg@exept.de>
parents: 2430
diff changeset
   724
! !
efcb4bd16dc7 category of: #initialize
Claus Gittinger <cg@exept.de>
parents: 2430
diff changeset
   725
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   726
!Random methodsFor:'private'!
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   727
2430
58d74ec1aa74 added: #addEntropy:
Stefan Vogel <sv@exept.de>
parents: 2309
diff changeset
   728
addEntropy:entropyBytes
58d74ec1aa74 added: #addEntropy:
Stefan Vogel <sv@exept.de>
parents: 2309
diff changeset
   729
    "add some entropy - ignored here"
58d74ec1aa74 added: #addEntropy:
Stefan Vogel <sv@exept.de>
parents: 2309
diff changeset
   730
58d74ec1aa74 added: #addEntropy:
Stefan Vogel <sv@exept.de>
parents: 2309
diff changeset
   731
    ^ self
58d74ec1aa74 added: #addEntropy:
Stefan Vogel <sv@exept.de>
parents: 2309
diff changeset
   732
!
58d74ec1aa74 added: #addEntropy:
Stefan Vogel <sv@exept.de>
parents: 2309
diff changeset
   733
2291
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   734
seed
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   735
    ^ seed
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   736
!
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   737
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   738
setSeed
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   739
    "set the initial seed value based on the current time and processId.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   740
     These numbers implement a maximum period generator which passes
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   741
     the spectral test for randomness for dimensions 2 3 4 5 6 and
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   742
     the product does not overflow  2 raisedTo:29.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   743
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   744
     Use both time and processId for seed, to make different processes
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   745
     return different Random numbers"
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   746
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   747
    |newSeed|
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   748
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   749
    RandomSalt isNil ifTrue:[
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   750
        RandomSalt := 1.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   751
    ] ifFalse:[
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   752
        RandomSalt := RandomSalt + 1.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   753
    ].
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   754
    newSeed := RandomSalt + (Time millisecondClockValue bitXor:OperatingSystem getProcessId).
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   755
    self setSeed:newSeed.
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   756
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   757
    "Modified: / 29-05-2007 / 12:07:37 / cg"
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   758
!
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   759
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   760
setSeed:seedValue
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   761
    "set the initial seed and intialite the PRNG parameters.
842
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   762
     These numbers implement a maximum period generator which passes
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   763
     the spectral test for randomness for dimensions 2 3 4 5 6 and
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   764
     the product does not overflow  2 raisedTo:29.
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   765
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   766
     These numbers are carefully choosen, so don't change them, 
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   767
     unless you know what you are doing!!"
17
f3e4377c8e1f *** empty log message ***
claus
parents: 2
diff changeset
   768
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   769
    modulus := 244944 " 244957 " .
842
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   770
    multiplier := 1597.
718e00244ba4 SOme doku and defined #random.
Stefan Vogel <sv@exept.de>
parents: 840
diff changeset
   771
    increment := 51749.
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   772
    seed := seedValue \\ modulus.
1127
2bace63d7bd5 changed initial seed generation, to avoid repeating
Claus Gittinger <cg@exept.de>
parents: 998
diff changeset
   773
2bace63d7bd5 changed initial seed generation, to avoid repeating
Claus Gittinger <cg@exept.de>
parents: 998
diff changeset
   774
    self step.
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   775
1878
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   776
    "Modified: / 12-11-1999 / 17:50:52 / stefan"
07b7aa1394c6 setSeed API
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
   777
    "Created: / 26-05-2007 / 21:25:10 / cg"
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   778
!
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   779
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   780
step
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   781
    "compute the next random integer"
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   782
3134
5c5befefa92f class: Random
Stefan Vogel <sv@exept.de>
parents: 3060
diff changeset
   783
    seed := (seed * multiplier + increment) \\ modulus
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   784
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   785
    "Created: 1.4.1997 / 22:40:45 / cg"
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   786
    "Modified: 1.4.1997 / 22:43:01 / cg"
0
1cf8d1747859 Initial revision
claus
parents:
diff changeset
   787
! !
65
8fdf5f30225f *** empty log message ***
claus
parents: 36
diff changeset
   788
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   789
!Random methodsFor:'testing'!
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   790
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   791
atEnd
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   792
    "instances of Random can always give more numbers"
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   793
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   794
    ^ false
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   795
!
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   796
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   797
isReadable
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   798
    ^ true
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   799
!
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   800
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   801
isWritable
3781
36ed064deb4e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3776
diff changeset
   802
    "return true, if writing is supported by the receiver.
36ed064deb4e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3776
diff changeset
   803
     Random Generators never are"
36ed064deb4e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3776
diff changeset
   804
517
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   805
    ^ false
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   806
4e47b198c9bc allow multiplier, increment & modulus to be changed.
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   807
    "Created: 1.4.1997 / 22:38:27 / cg"
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   808
! !
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   809
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   810
!Random class methodsFor:'documentation'!
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   811
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   812
version
3675
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   813
    ^ '$Header$'
2291
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   814
!
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   815
0c557245d0bf changed: #new
Claus Gittinger <cg@exept.de>
parents: 2045
diff changeset
   816
version_CVS
3675
058f3f83eae0 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
   817
    ^ '$Header$'
142
7f9b4315058c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 112
diff changeset
   818
! !
3026
a02198c26f88 #nextIntegerBetween:and:
Stefan Vogel <sv@exept.de>
parents: 2459
diff changeset
   819