Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Aiuto per creazione funzione Random... Custom ;)

Ciao a tutti.
So che la richiesta può sembrare un po' strana, ma io avrei bisogno di
creare una funzione di generazione numeri random... guidata. Voi direte "e
allora che random sarebbe?", ma in pratica dovrebbe funzionare così:
(esemplifico al massimo per praticità)
voglio generare 100 numeri (pseudo)casuali così divisi:
30 numeri "1"
40 numeri "2"
20 numeri "3"
10 numeri "4"
...disposti casualmente. In pratica dovrebbe essere la "distribuzione" di
questi elementi ad essere casuale, non gli elementi stessi o la loro
quantità... Spero di essere stato abbastanza chiaro, in caso contrario
chiedete senza problemi
Grazie in anticipo
Rh0d
PS: Una curiosità. Partendo da una sequenza di numeri casuali (stavolta
_davvero_ casuali) è possibile risalire al "seme" che l'ha generata? Se sì
(ma non credo) come?
Arigrazie !! ;))
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 abbastanza chiaro, in caso contrario chiedete senza problemi
Crea una matrice contenente i dati che vuoi nelle proporzioni
giuste, poi ne scegli un elemento a caso. Semplificando ancora:
Dim Numeri(9) As Integer
Dim N As Long
Numeri(0) = 1 ' tre "uno"
Numeri(1) = 1
Numeri(2) = 1
Numeri(3) = 2 ' quattro "due"
Numeri(4) = 2
Numeri(5) = 2
Numeri(6) = 2
Numeri(7) = 3 ' due "tre"
Numeri(8) = 3
Numeri(9) = 4 ' un "quattro"
' cito dall'help:
''' Per generare interi casuali in un dato intervallo, utilizzare la
''' seguente formula:
''' Int((limitesup - limiteinf + 1) * Rnd + limiteinf)
''' In questo contesto, limitesup indica il numero maggiore presente
''' nell'intervallo, mentre limiteinf indica il numero minore.
' in questo caso, diventa:  Int((9 - 0 + 1) * Rnd + 0), che si semplifica
' come vedi sotto
Randomize Timer
For N = 0 To 100
    Debug.Print Numeri(Int(10 * Rnd))
Next N
Bye, G.

(ma non credo) come?
Provi tutti gli algoritmi con tutti i possibili semi e ti fermi quando trovi la
sequenza di partenza :)
termoPilucco, ti consiglio di aspettare i calcolatori quantistici...

 reimmissione
[RI-CUT]
Sì, se ha bisogno di avere _esattamente_ quelle proporzioni,
da un numero predefinito di elementi da estrarre, è il sistema
migliore; altrimenti è un po' overkill, o no ?
intendo dire che, se l'estrazione è casuale, la proporzione tra
gli elementi estratti dalla matrice dovrebbe essere, entro i limiti
della casualità, proporzionale al rapporto tra gli elementi presenti.
Un Paperino che siccome l'OP non ha precisato, ha usato
il rasoio di Occam :-).
Bye, G.

della casualità, proporzionale al rapporto tra gli elementi presenti.
Direi che l'OP intedesse generare sequenze infinite di quegli elementi in quelle
proporzioni, pertante è corretta la tua risposta...
La mia andava bene se voleva generare una sequenza di X estrazioni (massimo 100)
senza reimissione
termoPilucco

Grazie a tutti, la versione di Paperino è forse + "leggera" a livello
elaborativo per quello che devo fare io, comunque le proverò entrambe.
Grazie ancora


elaborativo per quello che devo fare io, comunque le proverò entrambe.
Piuttosto che la più leggera dovresti usare quella che fa al tuo caso:
Estrazioni casuali senza reimmissione: termoPilucco
Estrazioni casuali con reimmissione: Paperino
A quanto ho capito tu desideri un flusso continuo di estrazioni con le stesse
caratteristiche di probabilità nel tempo, quindi devi usare l'alogritmo Paperino
non l'algoritmo termoPilucco :)
termoPilucco, questo non  è un aggettivo

 termoPilucco, questo non è un aggettivo
Lo sospettavo =)))
Ciao e grazie
Rh0d (neanche questo è un aggettivo ;)))
