Generatore di numeri pseudo-casuali
8 dim index, alea, primes 10 let index=0, alea=0 11 dim prime[8] 12 dim Dig1, Dig2, Aff1, Aff2 as byte 13 data 3,5,7,11,13,17,19,23 14 for index=0 to 7 15 read prime[index] 16 next
911 for prime=0 to 7 920 for index = 0 to 25 922 let alea = (prime[primes]+alea) % 29 926 next 930 let Dig1 = Symb1[alea] 940 let Dig2 = Symb2[alea] . .
Nel 922 si utilizza la formula di trasformazione caotica di un vettore descritta sul sito: http://jpbachy.free.fr
L'indirizzo della trasformazione caotica C'i viene calcolato con la formula: C'i= (C'i+step) modulo (n+1), dove step e n+1 sono numeri primi.
Il nuovo valore di C'i (casuale) è compreso tra 0 e n, n = 29-1. Le linee 13-16 registrano la sequenza dei numeri primi 3-23 che sono assegnati successivamente alla fase variabile.
Source: Generatore di numeri pseudo-casuali