Algoritmo unico SUPERENALOTTO

[anm]

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

[Albe V°]

anm ha detto questo venerdￜ :
> 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

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.

[Wodka40[Google]]

On 7 Ago, 09:21, Albe V° <vaccariTO...@hotmail.com> wrote:
> anm ha detto questo venerdì :
>
>
>
>
>
> > 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
>

> 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.- Nascondi testo citato
>
> - Mostra testo citato -

Nel super super enalotto di Marte si!
in questo caso moltiplichi per 100!

[Wodka40[Google]]

On 7 Ago, 02:38, "anm" <annozerome...@libero.it> wrote:
> 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

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!

[Wodka40[Google]]

zac

>
> CONTRO IL CULO E LA CORRENTE...
> NON C'E' FORZA COMPETENTE!
>

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

[andrea palazzi]

"Wodka40[Google]"

zac
>
>> CONTRO IL CULO E LA CORRENTE...
>> NON C'E' FORZA COMPETENTE!
>
>Per i mangiapolenta lumbard...

>Corrente in toscana � sinonimo di: "Energia Elettrica"

ma dai :P

[IgnazioC]

Albe Vￜ scriveva il 07/08/2009 :

> anm ha detto questo venerdￜ :
>> 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
>
> Ma nel superenalotto un numero puￜ uscire due volte?
>
>
> 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

[VBMizio]

....
> 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.
....
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...

[Paperino]

"VBMizio" ha scritto

>> 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.

> 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...

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.

[VBMizio]

Ciao,

...
> Se ne � parlato un mesetto fa, e la tua soluzione � la stessa
> a cui alludevo io

...
sniff sniff sniff....
vabbe' torno nel mio cantuccio mesto mesto!
:-)

[Paperino]

"VBMizio" ha scritto

E perch� ?
Ricorda invece il detto GMTA (Great Minds Think Alike) :-)

Bye, G.

[IgnazioC]

Scriveva VBMizio martedￜ, 11/08/2009:
> ....
>> 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.

> ....
> 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.

[cut]
se il numero ￜ compreso tra 1 e 90 va bene...ma se ￜ tra 1 e 2^64
sprechi un pￜ di memoria :)

[office...@gmail.com]

Il giorno venerdì 7 agosto 2009 09:47:28 UTC+2, Wodka40[Google] ha scritto:
> On 7 Ago, 02:38, "anm" <annozerome...@libero.it> wrote:
> > 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

Ciao Wodka40, puoi darmi migliori delucidazioni su come hai generato la serie? Il link che hai postato non mi dà niente. :-(