Novità

Armonia Quadratica - di Fabarri

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Ho intenzione di fare uno script su questo metodo di Fabarri, mi sono arenato con i calcoli dove dice:

- e si moltiplicano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

Cioè, la domanda è come si fa a moltiplicare in senso inverso, qualcuno lo sà?

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s21.postimg.org\/6thy5kc6v\/Armonia_quadratica_Fabarri.jpg"}[/IMG2]
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!
Ho fatto un po' di calcoli basandomi sugli esempi dell'articolo ed ho appurato che non si tratta di moltiplicazioni, ma di addizioni e sottrazioni, calcolando in questo modo si hanno fino ad 4 schemini per ricavare il - Differenziale Triplo - si ricavano 2 ambi per ogni schemino, se in tutte e 4 gli schemini si ricava il - Differenziale Armonico - si avranno fino 8 ambi da giocare, per 2 ruote non è poco.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!:D

I quattro schemini li ho addizionati in modo da risultarne solo uno, e poi ho fatto i calcoli per trovare l'Armonia Quadratica, quindi ho potuto completare lo script, nello script ho sfruttato la funzione - FUNCTION - se gli esperti mi danno qualche consiglio su come migliorarla, lo accetto volentieri.

Ecco il codice

Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50
Option Explicit
Dim r1,p1,p2,es,r2,estr1,estr2,clp,esq,x1,x2,x
Dim fin,Ini,ru(2),poste(2),estr3,estr4,caso
Dim idestr,col,esqcol,nn1(2),nn2(2)
Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
Dim findiffor,findiffve,findiffin,quacinq
Sub Main
    TestoInBandaPassante "***** Progetto ARMONIA QUADRATICA by Fabarri, script by Salvo50 ****** ",1,4,0
    Scrivi
    Scrivi
    'poste(1) = 1
    quacinq = 45
    poste(2) = 1
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9284)
    clp = InputBox("Per quanti colpi vuoi fare la ricerca",,12)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,11))
    caso = 0
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            For r2 = r1 + 1 To 11
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        estr1 = Estratto(es,r1,p1)
                        estr2 = Estratto(es,r1,p2)
                        estr3 = Estratto(es,r2,p1)
                        estr4 = Estratto(es,r2,p2)
                        ru(1) = r1
                        ru(2) = r2
                        If Differenza(estr1,estr4) = 45 Then
                            armoni ' calcoli per distanze
                            If findiffor = findiffve And findiffor <> findiffin Then
                                x = Fuori90(quacinq - findiffor)
                                x1 = Fuori90(estr2 - x)
                                x2 = Fuori90(estr2 + x)
                                estr2 = Fuori90(x1 + x2)
                                x1 = Fuori90(estr3 - x)
                                x2 = Fuori90(estr3 + x)
                                estr3 = Fuori90(x1 + x2)
                                armoni ' calcoli per distanze
                                If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                    If Differenza(estr1,estr4) = 45 Then
                                        scriv
                                        nn1(1) = estr1
                                        nn1(2) = estr3
                                        ImpostaGiocata 1,nn1,ru,poste,clp
                                        nn2(1) = estr2
                                        nn2(2) = estr4
                                        ImpostaGiocata 2,nn2,ru,poste,clp
                                    End If
                                End If
                            End If
                        End If
                        If Differenza(estr2,estr3) = 45 Then
                            armoni ' calcoli per distanze
                            If findiffor = findiffve And findiffor <> findiffin Then
                                x = Fuori90(quacinq - findiffor)
                                x1 = Fuori90(estr1 - x)
                                x2 = Fuori90(estr1 + x)
                                estr1 = Fuori90(x1 + x2)
                                x1 = Fuori90(estr4 - x)
                                x2 = Fuori90(estr4 + x)
                                estr4 = Fuori90(x1 + x2)
                                armoni ' calcoli per distanze
                                If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                    If Differenza(estr2,estr3) = 45 Then
                                        scriv
                                        nn1(1) = estr1
                                        nn1(2) = estr3
                                        ImpostaGiocata 3,nn1,ru,poste,clp
                                        nn2(1) = estr2
                                        nn2(2) = estr4
                                        ImpostaGiocata 4,nn2,ru,poste,clp
                                        Gioca es
                                    End If
                                End If
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
Function armoni
    'distanze orizzontali tra i due ambi
    dist13or = Distanza(estr1,estr3)
    dist24or = Distanza(estr2,estr4)
    'distanze verticali tra i due ambi
    dist12ve = Distanza(estr1,estr2)
    dist34ve = Distanza(estr3,estr4)
    'distanze incrociate tra i due ambi
    dist14in = Distanza(estr1,estr4)
    dist32in = Distanza(estr3,estr2)
    'differenze finali
    findiffor = Differenza(dist13or,dist24or)
    findiffve = Differenza(dist12ve,dist34ve)
    findiffin = Differenza(dist14in,dist32in)
End Function
Function scriv
    Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
    Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & "   Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
    Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
    Scrivi "  " & Format2(estr1) & Space(1) & Format2(estr3) & Space(16) & Format2(dist13or) & Space(19) & Format2(dist12ve) & Space(19) & Format2(dist14in)
    Scrivi "  " & Format2(estr2) & Space(1) & Format2(estr4) & Space(16) & Format2(dist24or) & Space(19) & Format2(dist34ve) & Space(19) & Format2(dist32in)
    caso = caso + 1
    Scrivi "---------------------------------------------------------------------------------------" & caso
    Scrivi "Armonia Quadratica     " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
    ColoreTesto 1
    Scrivi "***************************************************************************************"
    ColoreTesto 0
End Function
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Non riesco a capire la differenza tra queste due righe

If Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then

If Differenza(estr1,estr4) Or Differenza(estr2,estr3) = 45 Then

Per me dovrebbero essere uguali, invece per lo script non sono uguali

Se metto la prima lo script fa passare solo le combinazioni che nelle diagonali abbiano la differenza di 45

estr1 estr3
estr2 estr4

se invece metto la seconda riga, lo script fa passare tutto, anche le combinazioni che nelle diagonali non hanno la differenza di 45, come se la riga non esistesse, infatti ho fatto la prova a toglierla e non è cambiato niente, quello che è strano per me è che non mi dà errore, cioè con la seconda riga mi dovrebbe dare errore. Metto i due codici


Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50
Option Explicit
Sub Main
    'TestoInBandaPassante "***** Progetto ARMONIA QUADRATICA by Fabarri, script by Salvo50 ****** ",1,3,0
    Scrivi
    Scrivi
    Dim r1,p1,p2,es,r2,estr1,estr2,clp,esq
    Dim fin,Ini,estr3,estr4,caso
    Dim idestr,col,esqcol
    Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
    Dim findiffor,findiffve,findiffin
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,fin)
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            For r2 = r1 + 1 To 11
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        estr1 = Estratto(es,r1,p1)
                        estr2 = Estratto(es,r1,p2)
                        estr3 = Estratto(es,r2,p1)
                        estr4 = Estratto(es,r2,p2)
                        If Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then
                            'distanze orizzontali tra i due ambi
                            dist13or = Differenza(estr1,estr3)
                            dist24or = Differenza(estr2,estr4)
                            'distanze verticali tra i due ambi
                            dist12ve = Differenza(estr1,estr2)
                            dist34ve = Differenza(estr3,estr4)
                            'distanze incrociate tra i due ambi
                            dist14in = Differenza(estr1,estr4)
                            dist32in = Differenza(estr3,estr2)
                            'differenze finali
                            findiffor = Differenza(dist13or,dist24or)
                            findiffve = Differenza(dist12ve,dist34ve)
                            findiffin = Differenza(dist14in,dist32in)
                            Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                            Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & "   Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
                            Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
                            Scrivi "  " & Format2(estr1) & Space(1) & Format2(estr3) & Space(16) & Format2(dist13or) & Space(19) & Format2(dist12ve) & Space(19) & Format2(dist14in)
                            Scrivi "  " & Format2(estr2) & Space(1) & Format2(estr4) & Space(16) & Format2(dist24or) & Space(19) & Format2(dist34ve) & Space(19) & Format2(dist32in)
                            caso = caso + 1
                            Scrivi "--------------------------------------------------------------------------------------- " & caso
                            Scrivi "Differenziale Triplo   " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
                            ColoreTesto 1
                            Scrivi "***************************************************************************************"
                            ColoreTesto 0
                        End If
                    Next
                Next
            Next
        Next
    Next
End Sub


Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50
Option Explicit
Sub Main
    'TestoInBandaPassante "***** Progetto ARMONIA QUADRATICA by Fabarri, script by Salvo50 ****** ",1,3,0
    Scrivi
    Scrivi
    Dim r1,p1,p2,es,r2,estr1,estr2,clp,esq
    Dim fin,Ini,estr3,estr4,caso
    Dim idestr,col,esqcol
    Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
    Dim findiffor,findiffve,findiffin
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,fin)
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            For r2 = r1 + 1 To 11
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        estr1 = Estratto(es,r1,p1)
                        estr2 = Estratto(es,r1,p2)
                        estr3 = Estratto(es,r2,p1)
                        estr4 = Estratto(es,r2,p2)
                        If Differenza(estr1,estr4) Or Differenza(estr2,estr3) = 45 Then
                            'distanze orizzontali tra i due ambi
                            dist13or = Differenza(estr1,estr3)
                            dist24or = Differenza(estr2,estr4)
                            'distanze verticali tra i due ambi
                            dist12ve = Differenza(estr1,estr2)
                            dist34ve = Differenza(estr3,estr4)
                            'distanze incrociate tra i due ambi
                            dist14in = Differenza(estr1,estr4)
                            dist32in = Differenza(estr3,estr2)
                            'differenze finali
                            findiffor = Differenza(dist13or,dist24or)
                            findiffve = Differenza(dist12ve,dist34ve)
                            findiffin = Differenza(dist14in,dist32in)
                            Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                            Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & "   Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
                            Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
                            Scrivi "  " & Format2(estr1) & Space(1) & Format2(estr3) & Space(16) & Format2(dist13or) & Space(19) & Format2(dist12ve) & Space(19) & Format2(dist14in)
                            Scrivi "  " & Format2(estr2) & Space(1) & Format2(estr4) & Space(16) & Format2(dist24or) & Space(19) & Format2(dist34ve) & Space(19) & Format2(dist32in)
                            caso = caso + 1
                            Scrivi "--------------------------------------------------------------------------------------- " & caso
                            Scrivi "Differenziale Triplo   " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
                            ColoreTesto 1
                            Scrivi "***************************************************************************************"
                            ColoreTesto 0
                        End If
                    Next
                Next
            Next
        Next
    Next
End Sub
 

avio

Senior Member
ciao

f Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then

If Differenza(estr1,estr4) (qui non hai dichiarato niente) Or Differenza(estr2,estr3) = 45 Then

vedendo il primo esempio 15-69 ha usato la funzione "distanza" 69-15 =36 --- differenza 69-15=54

usa distanza e non differenza e vedi se ti trovi
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Avio!

If Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then

If Differenza(estr1,estr4) (qui non hai dichiarato niente) Or Differenza(estr2,estr3) = 45 Then

Quindi ogni condizione anche se le condizioni sono uguali, bisogna dichiarle ad una ad una.

Grazie!

Per il fatto di usare Differenza o Distanza li ho usati tutte e due perchè non ho capito il calcolo che fà il Fabarri e quindi ho sperimentato.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Volevo capire come il Fabarri fosse arrivato con i calcoli a modificare i due ambi messi in quadrato, ed ho cercato nei vari siti che trattano l'argomento e non nè ho trovato neanche uno che spiegasse passo passo come fare i calcoli, tutti ripetano come una cantilena questo passo

- e si moltiplicano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

anzi, modificato così

- e si modificano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

(quindi avevo intuito bene che non poteva essere moltiplicano),

e si riportano gli esempi del Fabarri, quindi ne deduco che nessuno ha capito come il Fabarri a fatto i cacoli, oppure qualcuno l'ha capito e non lo vuole dire.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Rabberto!

Ho seguito tutti i post, ma quegli script postati da Blackmore, Mike58 e Rosanna (per me tutti e tre come scripter sono dei mostri sacri) sono un pochino diversi da quello che ho fatto qui, li i calcoli richiesti sono specificati bene, non ci sono dubbi come procedere.

In questo periodo mi è venuto il pallino dei metodi di Fabarri, adesso sto facendo due altri script, uno su - IL COEFFICIENTE MEDIO INTEGRATORE - e l'altro sul - QUADRATO ARMONICO - appena li finisco li posto, di metodi del Fabarri ne ho anch'io parecchi, magari faccio un elenco di quelli che ho.
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Salvo,

Se posso permetermi, Fabarri essendo oltre che amante del Lotto,

anche Avvocato, non ha bisogno della mia difesa ... e neppure della mia interpretazione,

conoscendo da sè il significato delle parole e del modo di esprimersi.

Dunque, suppongo avesse voluto scrivere distanza non avrebbe scritto differenza.

Per quanto riguarda invece gli operatori logici seguono le regole Booleane.

Pur vero quanto scrive Avio: Il primo test era scritto in maniera errata.

Il mio consiglio comunque è quello di dividere i vari-test più linee di script.

Codice:
If (I° test = vero) Then
   If (II° test = vero) Then
        ' tutte due ... le condizioni sono verificate.
   End If
End If

Altrimenti concatenando i test con And ed Or e/o gli altri operatori logici

può accadere che il "risultato del codice" non corrisponda a quanto si vorrebbe.

Cioè che i test vengano eseguiti, secondo "altre" gerarchie-logiche,

pertanto, con altri schemi che conducono ad altri risultati, diversi da quelli voluti.

:)
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Joe!
joe;n2058599 ha scritto:
.

Dunque, suppongo avesse voluto scrivere distanza non avrebbe scritto differenza.

Anch'io la penso così, però il Fabarri nel primo esempio fa solo differenze, nel secondo esempio li mischia, li usa tutte e due, all'inizio l'avevo fatto solo con le differenze poi con le ricerche avevo visto che risultavano pochissimi casi, quindi ho provato con distanze e ne sono risultate molte di più, comunque penso che per rispettare il metodo, si dovrebbero cercare le differenze.

joe;n2058599 ha scritto:
.

Altrimenti concatenando i test con And ed Or e/o gli altri operatori logici

può accadere che il "risultato del codice" non corrisponda a quanto si vorrebbe.

Cioè che i test vengano eseguiti, secondo "altre" gerarchie-logiche,

cioè con altri schemi e perciò con risultati, diversi da quelli voluti.

Me ne sono accorto.
 

salvo50

Advanced Member >PLATINUM PLUS<
rabberto;n2058434 ha scritto:
Ciao salvo50 anche io sono un appassionate del grande Fabarri soprattutto per spunti ciclometrici , non so fare script pero' dai un occhiata in questa discussione vedi se trovi qualcosa di tuo interesse , ciao.

http://forum.lottoced.com/forum/lottoced/area-download/108149-per-gli-scripter-un-favore

Se hai bisogno di metodi del grande Fabarri fammi sapere ne ho parecchi , ciao.

Ciao Rabberto!

Ho controllato, i metodi del Fabarri in mio possesso e ho constatato che non ne ho molti, perche sono quasi tutti doppioni con titoli diversi, quindi se puoi farmeli avere te ne sarei grato.
 

Enplein

Super Member >PLATINUM<
Ciao a Tutti!

Volevo capire come il Fabarri fosse arrivato con i calcoli a modificare i due ambi messi in quadrato, ed ho cercato nei vari siti che trattano l'argomento e non nè ho trovato neanche uno che spiegasse passo passo come fare i calcoli, tutti ripetano come una cantilena questo passo

- e si moltiplicano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

anzi, modificato così

- e si modificano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

(quindi avevo intuito bene che non poteva essere moltiplicano),

e si riportano gli esempi del Fabarri, quindi ne deduco che nessuno ha capito come il Fabarri a fatto i cacoli, oppure qualcuno l'ha capito e non lo vuole dire.
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Ciao a Tutti, penso di aver capito il procedimento:

Prendo l'ultimo esempio 05.44 / 41.50
...........................Triplo differenziale
...........................Or. Vr. Dg
05 44..................39 36 45
41 50..................09 06 03
----------------------------------
...........................30 30 42

Per armonizzare il quadrato bisogna fare questi calcoli:
Ferno restante l'ambo diametrale 05.50, si opera sulle distanze orizzontali
di segno inverso (+39)-->(-39) e (-9)-->(+9), quindi otteniamo:
(5+90)=95-39=56
50+9=59
Ambi armonizzati sono: 05.56 o 50.59
L'esito dell'ambo 50.59 su PA armonizza il quadrato
.................................Or.Vr.Dg.
05 44.......................39 36 45
59.50.......................09 06 15
--------------------------------------
...............................30 30 30

Nella speranza di non aver commesso errori e di essere stato chiaro, saluto.

Ciao, Enplein.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao!

Visto e controllato, mi sembra un ottimo procedimento, devo vedere se funziona anche con il primo esempio

52 32
21 07
 

Enplein

Super Member >PLATINUM<
salvo50;n2059691 ha scritto:
Ciao!

Visto e controllato, mi sembra un ottimo procedimento, devo vedere se funziona anche con il primo esempio

52 32
21 07
Ciao salvo50, funziona con tutti casi ....

..............Or.Vr.Dg.
52.32.....20 31 45
21.07.....14 25 11
-----------------------
..............06 06 34

Calcolo per armonizzare il quadrato:
52+20=72 1° Ambo 52.72
(07+90)=97-14=83 2° Ambo 07.83

1° Quadrato
.............Or.Vr.Dg.
52.72....20 31 45
21.07....14 25 39
-----------------------
.............06 06 06

2° Quadrato
.............Or.Vr.Dg.
52.32....20 31 45
83.07....14 25 39
-----------------------
​​​​​​​.............06 06 06

Ciao, Enplein.
 

salvo50

Advanced Member >PLATINUM PLUS<
Benissimo, quello che non capisco è perche nel primo esempio 52 32....20, si deve sommare, la riga di sopra e nel secondo esempio 05 44 ......39, si deve sottrarre, lo so che l'hai già spiegato in queste righe
- si opera sulle distanze orizzontali di segno inverso (+39)-->(-39) e (-9)-->(+9) -
però non l'ho capito, vorrei capirlo bene, così posso modificare lo script.

Grazie!
 

Enplein

Super Member >PLATINUM<
salvo50;n2059720 ha scritto:
Benissimo, quello che non capisco è perche nel primo esempio 52 32....20, si deve sommare, la riga di sopra e nel secondo esempio 05 44 ......39, si deve sottrarre, lo so che l'hai già spiegato in queste righe
- si opera sulle distanze orizzontali di segno inverso (+39)-->(-39) e (-9)-->(+9) -
però non l'ho capito, vorrei capirlo bene, così posso modificare lo script.

Grazie!
...riporto l'esempio sopra postato...
52.32 dist.20
21.07 dist.14

il numero centrale è il 52, quindi la chiusura simmetrica è data dal [ 72 ] (+20) 52 (-20) 32
l'altro centrale e' il 07, quindi la sua chiusura simmetrica è data da 21 (+14) 07 (-14) [ 83 ]

1^ ambo 72.52
2^ ambo 07.83

Spero che questo esempio possa darti la possibilità di capire il meccanismo.

ciao, Enplein
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19
Alto