Generazione numeri casuali tra una serie di valori.

[filosofo]

Ciao a tutti,
ho un piccolo problema.
in bascom esiste la funzione :

var = RND( limit )

se limit=50 ,var potrà assumere valori casuali compresi tra 0 e 49, giusto?

ora a me necessità di generare numeri casuali tra una serie di numeri precalcolati come sotto:

10, 40, 12, 67, 100, 234, 5, 2, 13, ecc ecc

la funzione dovrebbe restituire un numero casuale solo tra questa serie di numeri.
come posso fare?

vi ringrazio

[flz47655]

Puoi mettere in un array gli N numeri precalcolati e generare un numero casuale N che sceglie l'elemento dell'array
Ciao

[filosofo]

grazie flz della pronta risposta
i numeri sono molti (circa 1000 e il valore può variare tra zero e 65535) e non vorrei sprecare ram preziosa che mi serve per altro.
esiste un altro modo?

grazie

[flz47655]

Se hai un qualche algoritmo per calcolare i mille numeri puoi utilizzarlo,altrimenti la vedo dura..comunque potresti tenerli nella flash e caricare in ram solo il numero che ti serve al momento

Ciao

[legacy]

che problema ti porta a cio' ? per curiosita'

[deluca]

@filosofo ecco la soluzione: (spero di aver capito)

Code: Select all

$sim

Dim R As Word
Dim A As Word
Dim ___rseed As Word
___rseed = 10230                                            'questo valore deve variare as ogni poweron
                                                            'per migliorare sensibilmente l'rnd sequence
'-------------------------------------------------------------------------------
Main:
Do
   R = Rnd(21)                                              'numero di valori in tabella (fino a 65536)
   A = Lookup(r , Random)
   Print A
Loop
End
'-------------------------------------------------------------------------------
Random:
Data 10% , 40% , 12% , 67% , 100% , 234% , 5% , 2% , 13% , 23% , 45% , 1000%
Data 1024% , 156% , 2356% , 10022% , 232% , 12345% , 23456% , 34567% , 56789%
'........ancora altri fino al riempimento della flash


ciao

[filosofo]

grazie deluca, non conoscevo l'istruzione Lookup e adesso ho capito anche a cosa potrebbe servire.

perchè hai messo il % dopo il valore?

grazie sempre per il supporto