\ Неплохой и быстрый генератор псевдослучайной последовательности чисел.
\ ВНИМАНИЕ: В предыдущей версии CHOOSE не работало!!!

\ Якимов Д. А. 24.01.99 nsoft@chat.ru
\ Для СП-ФОРТ 3.15

(  В принципе может применяться в криптографии, но нужно действовать сл.
образом: массив заполняем генератором с одним параметром,
а индекс в нем выбираем с помощью другого генератора, с другими 
немного параметрами.
Элемент по этому индексу и есть псевдо-случайное число.
После выборки элемента заменяем его на новый с помощью 1-го 
генератора.
Делать 5 минут, да мне не нужно :)


WINAPI: GetTickCount KERNEL32.DLL

VARIABLE RND


: RANDOMIZE GetTickCount RND ! ;
RANDOMIZE

: RANDOM  ( -- u )                          
    RND @ 69069 * 31415 + 278720333 MOD DUP RND ! ;


\ Псевдослучайная величина от 0 до u1-1
: CHOOSE  ( u1 -- u2 )                      
   278720333 SWAP U/ 
   RANDOM ABS SWAP U/
;
    
(
CREATE TestTable HERE 10 4 * ALLOT 40  ERASE

\ проверка `случайности`
\ - лучшая проверка - нанести массу случайных точек на плоскость
\ - глаз сразу выхватит неравномерность, но лень эксперименировать
\ tt дает ошибку генератора в 2%

: tt 3000000 0 DO 10 CHOOSE 4 * TestTable + 1+! LOOP
  10 0 DO TestTable I 4 * + @ . CR LOOP ;


\ Тест CHOOSE
VARIABLE NN0
VARIABLE NN1

\ SPEED TEST
: RTEST2
     GET-SEC
     1000000 0 DO 2 CHOOSE DROP LOOP 
     GET-SEC SWAP - 1000000 SWAP / . ." per sec"
; 
)