Newsgroup: it.comp.lang.visual-basic
Titolo: Algoritmo unico SUPERENALOTTO

L'unico che ti garantisce il massimo delle possibilit� di vincita!
Dim Random As New Random
        Dim Numero As String = ""
        Console.Write("Estrazione del superenalotto")
        For I = 1 To 6
            Numero = Random.Next(1, 90).ToString & " " & Numero
        Next
        Console.Write(Numero)
        FileIO.FileSystem.WriteAllText("c:\numeri.txt", Numero, True)
    End Sub 

     End Sub
Ma nel superenalotto un numero puï¿œ uscire due volte?
Alberto
-- 
Max Beerbohm: Tutto ciï¿œ che ï¿œ degno di essere fatto ï¿œ stato fatto 
ripetutamente. Dalle cose mai fatte bisognerebbe tenersi, sospetto, 
molto alla larga.

 - Mostra testo citato -
Nel super super enalotto di Marte si!
in questo caso moltiplichi per 100!

     End Sub
Non è banalissimo fare un algoritmo che estragga 90 numeri a
caso...senza sprecare fortuna!
Mi spiego meglio:
la realtà è...
una palla di plexigas con 90 numeri...primo problema ...come sono
introdotti i numeri? Da che situazione iniziale si comincia?
La palla gira (anche le palle prima delle ferie...ma questo è un altro
discorso)
ed estrai un numero....Ergo...non ci sono più 90 palle...ma 89....con
una situazione caotica che NON PUOI azzerare!
Chi prova a randomizzare n tentativi per estrarre y numeri...fà una
cosa corretta matematicamente...MA NON E' UNA SIMULAZIONE!
Una simulazione è N colpi di culo...N numeri diversi estratti...senza
riazzerare nulla fra una estrazione e l'altra!
Io c'ho pensato un po ed alla fine ho prodotto una serie di routine
vb.net
 ...mi so fatto generare un po di colonne...e le sto giocando!
Ho la solita probabilità tua!
Ma ho la soddisfazione del cazzo tutta da programmatore...di aver
simulato la realtà!
Ti lascio con un detto popolare toscano che è VERITA'
VERA...VANGELO...da incidere sul marmo e meditare ogni giorno che uno
si sveglia:
CONTRO IL CULO E LA CORRENTE...
NON C'E' FORZA COMPETENTE!
Ahloa!


Per i mangiapolenta lumbard...
Corrente in toscana è sinonimo di: "Energia Elettrica"

Corrente in toscana � sinonimo di: "Energia Elettrica"
ma dai :P

 Alberto
in effetti ï¿œ errato. la prima idea che viene in mente(errata pure 
questa) ï¿œ quella di controllare se il numero estratto era giï¿œ stato 
estratto precedentemente..ma questo non ï¿œ neanche un algoritmo, perchï¿œ 
almeno in teoria potrebbe non terminare mai.
la soluzione ï¿œ quella di estrarre il primo numero nel range 1..90 ed il 
secondo nel range 1..89 se i due numeri sono uguali al secondo numero 
si assegna 90 e cosï¿œ via. cosï¿œ facendo tutti i numeri hanno uguali 
probabilitï¿œ di uscita e non si rischia di avere numeri ripetuti.
-- 
IgnazioC
My 3W Experiment: 
www.theeasyweb.net

 assegna 90 e cos� via.
....
E se il primo e' 90 e, il secondo e il terzo sono uguali?
Dico la mia...
Collection precaricata di 90 elementi contenenti i numeri da 1 a 90.
Faccio una estrazione di un numero RN casuale da 1 e 90, quindi prendo 
l'elemento numero RN.
Rimuovo l'elemento RN dalla collection.
Faccio una nuova estrazione tra 1 e 89, la mia collection infatti contiene 
ora 89 elementi, con i numeri da 1 a 90, tranne quello estratto 
precedentemente.
E cosi' via...

 E cosi' via...
Se ne � parlato un mesetto fa, e la tua soluzione � la stessa
a cui alludevo io; tra l'altro ne approfitto per rettificare una
affermazione errata, il post non era di Mauruizio Borrelli, ma
di Antonio Donatiello:
http://groups.google.it/group/it.comp.lang.visual-basic/msg/da66907b3b04294a?hl=it
Bye, G. 

 a cui alludevo io
...
sniff sniff sniff....
vabbe' torno nel mio cantuccio mesto mesto!
:-)

"VBMizio" ha scritto

E perch� ?
Ricorda invece il detto GMTA (Great Minds Think Alike) :-)
Bye, G.

 Collection precaricata di 90 elementi contenenti i numeri da 1 a 90.
 [cut]
se il numero ï¿œ compreso tra 1 e 90 va bene...ma se ï¿œ tra 1 e 2^64 
sprechi un pï¿œ di memoria :)


 >             Numero = Random.Next(1, 90).ToString & " " & Numero
 
Ciao Wodka40, puoi darmi migliori delucidazioni su come hai generato la serie? Il link che hai postato non mi dà niente. :-(
