Novità

Script di MIKE58

Marcorun

Advanced Member >GOLD<
Sub Main()
'presenze su cicli di 5 estrazioni"
Dim ruote(1)
Dim nm(1)
r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,16)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
ruote(1) = r
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & NomeRuota(ruote(1)),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
ritardatario = PiuRitardatario(ultima,ruote(1))
rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
ColoreTesto 2
Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub


questo bellissimo script che MIKE58 mi (ci) ha regalato .......chiedevo se x caso fosse possibile modificarlo x elaborare le superfrequenze non solo su ruota (così com'è) ma su 2 ruote a scelta.....e se non chiedo troppo un'altro modificato in modo che elaborasse le estrazioni 1 del martedi...2 del giovedi..3 del sabato ,GRAZIE...
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Script molto datato, ho fatto al volo la modifica di scelta + ruote devi poi scegliere tu il range di ciclo + adatto.

Sub Main() 'presenze su cicli di 5 estrazioni" ReDim ruote(0) Dim nm(1) 'r = InputBox("Ruota richiesta",,1) periodo = InputBox("Periodo estrazione indietro",,12) ultima = InputBox("Estrazione ultima",,EstrazioneFin) ult0 = Int(periodo/4) ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0) 'ruote(1) = r ScegliRuote(ruote) Scrivi "-------------------------------------------------------------------------" Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3 Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni" Scrivi " Ruota di Richerca " & StringaRuote(ruote),- 1,7,3 Scrivi " Partenza della statistica a ritroso dal...." & Ultima Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo Scrivi " Durata ultimo ciclo " & ult 'Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3 ReDim T(18) T(1) = " Numero " T(2) = " Freq. Totale " T(3) = " Ultimo Ciclo " T(4) = " ciclo 2 " T(5) = " ciclo 3 " T(6) = " ciclo 4 " T(7) = " ciclo 5 " T(8) = " Ritardo Att " T(9) = " Ritardo Sto " T(10) = " Caldi " T(11) = " Esito " T(12) = " RP1 " T(13) = " RP2 " T(14) = " RP3 " T(15) = " Rp4 " T(16) = " Rp5 " T(17) = " Sm Rit " T(18) = " Md Rit " Call InitTabella(T,2,,3,5,"Arial Black") Inizio = EstrazioneIni fine = EstrazioneFin dal1 =(ultima + 1) - ult al1 = ultima dal2 = dal1 - periodo al2 = dal1 - 1 dal3 = dal2 - periodo al3 = dal2 - 1 dal4 = dal3 - periodo al4 = dal3 - 1 dal5 = dal4 - periodo al5 = dal4 - 1 ColoreTesto 1 Scrivi "______________________________________________________________________________________________________",2 Scrivi"" Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3 Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3 Scrivi "______________________________________________________________________________________________________",2 'dal5 = ultima + 1 - 5 For x = 1 To 90 nm(1) = x Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id) '------- calcolo ritardi precedenti------------ 'For q = 1 To UBound(num) ReDim rp(6) InizioR = EstrazioneIni fineR = EstrazioneFin somrit = 0 For z = 1 To 6 rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1) fineR = fineR -(rp(z) + 1) somrit = somrit + rp(z) Medrit = Int(somrit/z) Next ' fine calcolo---------------------------------- a = SerieFreq(dal1,al1,nm,ruote,1) b = SerieFreq(dal2,al2,nm,ruote,1) c = SerieFreq(dal3,al3,nm,ruote,1) d = SerieFreq(dal4,al4,nm,ruote,1) e = SerieFreq(dal5,al5,nm,ruote,1) If a >= 0 Then If b >= 1 Then If c >= 1 Then If d >= 1 Then If e >= 1 Then kk = kk + 1 'rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine) 'rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine) rit = SerieRitardo(Inizio,fine,nm,ruote,1) rs = SerieStorico(Inizio,fine,nm,ruote,1) fre = a + b + c + d + e ReDim V(18) V(1) = nm(1) V(2) = fre V(3) = a V(4) = b V(5) = c V(6) = d V(7) = e V(8) = rit V(9) = rs If V(3) = 0 Then V(10) = V(1) If V(3) <> 0 Then V(10) = " -- " V(11) = estratti V(12) = rp(2) V(13) = rp(3) V(14) = rp(4) V(15) = rp(5) V(16) = rp(6) V(17) = somrit V(18) = Medrit 'k1 = 0 Call AddRigaTabella(V,,,3,,"Arial Black") Call SetColoreCella(1,2,4) Call SetColoreCella(10,7,5) For xy = 3 To 7 Call SetColoreCella((xy),4,0) Next For y = 12 To 16 Call SetColoreCella((y),4,0) Next If a = 0 Then Call SetColoreCella(1,3,1) If a = 0 Then Call SetColoreCella(3,3,1) If rit = 0 Then Call SetColoreCella(8,3,0) End If End If End If End If End If Next Call SetTableWidth("100%") Call CreaTabella(2) Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3 Scrivi "Totali Numeri Rintracciati... " & kk,1 Scrivi "_____________________________________________________________________________________________________",1 'ritardatario = PiuRitardatari(ultima,r) 'rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine) 'ColoreTesto 2 'Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4 End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Codice:
Sub Main()
'presenze su cicli di 5 estrazioni"
ReDim ruote(0)
Dim nm(1)
'r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,12)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
'ruote(1) = r
ScegliRuote(ruote)
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & StringaRuote(ruote),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
'Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
'rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
'rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
rit = SerieRitardo(Inizio,fine,nm,ruote,1)
rs = SerieStorico(Inizio,fine,nm,ruote,1)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
'ritardatario = PiuRitardatari(ultima,r)
'rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
'ColoreTesto 2
'Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub
 

Marcorun

Advanced Member >GOLD<
Disponibile come sempre....GRAZIE...sarà anche datato il tuo script,ma bello ci lavoro moltissimo...e con questo modificato avrò ancora più da divertirmi...:))
Per quanto riguarda la scelta dei giorni della settimana,ho provato ad impostare l'archivio nei vari giorni ma non funziona bene....credo che debba essere scritto nello script il giorno....GRAZIE ancora..CIAO
 

vincenzo4221

Advanced Member >PLATINUM<
PER MIKE sarebbe possibile modificare questi script per ottenere i dati di cui al mio post "diagramma delle frequenze", mi sembra di capire che si dovrebbe solo fare in modo che si possano ottenere più dei 5 cicli che si formano con quello attuale...tutto il resto sembra che vada bene , anzi integra con nuovi dati ....ciao
 

Mike58

Advanced Member >PLATINUM PLUS<
Raga,il tempo manca per concentrarsi negli script (stasera turno notte)

Per Marcorun per filtrare le estrazioni del girono potrebbe essere usato un If then con il codice giorno(es) = a ???
ma dovrei verificarlo.

Per Vincenzo tutto si può fare con indicazioni precise, ma ora mi manca il tempo e la lucidità se trovo queste... magari posso provare.

Ciao
 

vincenzo4221

Advanced Member >PLATINUM<
marco è soddisfatto bene x lui .....io invece a quanto pare chiedo cose difficili da farsi...parlo anche in merito ad altre richieste al sito.. non soddisfatte ...si preferisce perder tempo con teorie caballistiche ed altre fregnacce invece di lavorare sulla statistica seria...boh???
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao ILegend , un grazie per l'apprezzamento, lo stesso vale per te.

Per Marcorun, lo script in cicli in esame è abbastanza rigido e fine a se stesso ossia i 5 cicli stabiliti con range e ultimo ciclo ridimensionato di 1/3, per il filtraggio dei giorni purtroppo è più complicato, bisogna creare una routine allo scopo, ma in questo script ha poca valenza.

Ti posto un altro mio script che stabilito un numero verifica quante uscite per giorno di estrazione.
Cosi puoi vedere come devono agire i codici date e giorni, per poi utilizzali alle occasioni volute.

Codice:
Sub Main()
   'Sabato, martedi, giovedi
   Dim nu(1),ru(1)
   num = InputBox("Quale numero cercare ",,90)
   rt = InputBox("Quale ruota ",,1)
   et = CInt(InputBox("Quante estrazioni",,300))
   nu(1) = num
   ru(1) = rt
   For Es = EstrazioneFin - et To EstrazioneFin
      aps = Posizione(es,rt,num)
      If Sabato(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            sab = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & aps
            co = co + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co & " Volte al Sabato " & " è Ritarda da... " & sab,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apg = Posizione(es,rt,num)
      If giovedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            gio = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apg
            co1 = co1 + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co1 & " Volte al giovedì" & " è Ritarda da... " & gio,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apm = Posizione(es,rt,num)
      If martedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            mar = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apm
            co2 = co2 + 1
            sr = SerieRitardo(es,EstrazioneFin,nu,ru,1)
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co2 & " Volte al martedì " & " è Ritarda da... " & mar,1
   ColoreTesto 0
   Scrivi
   tt = co + co1 + co2
   ColoreTesto 2
   Scrivi "Totali di volte uscito.... " & tt & " Ritarda da... " & sr & " Dalla data ultima... " & DataEstrazione(EstrazioneFin - sr,1),1
   ColoreTesto 0
End Sub
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Function giovedi(Es)
   giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then giovedi = True
End Function
Function martedi(Es)
   martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then martedi = True
End Function
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Vincenzo, posso capire che molte volte le richieste passano inosservate e non evase, ma devi anche capire che sono pochi quelli che si dilettano a fare script e non sempre si trova il tempo, la voglia e soprattutto la via per il giusto costrutto.
Come ti dicevo nell'altro trhend a me stuzzicano un pochetto gli script statistici e come hai visto avevo simulato la schermata postata, ma poi lo script e la richiesta cambia direzione e si vuole tutto un altro script ed un altro costrutto il chè rimetterci le mani nella logica stessa del costrutto diventa complicato.

Il tutto per dire che la tua richiesta è fattibile basta avere pazienza e lavorarci insieme ad un determinato progetto.
I modi di costrutti sono diversi e tanti basta prendere l giusta direzione.



Abbi pazienza nessuno e contro nessuno e noi appassionati che ci delettiamo a fare script facciamo quello che il tempo a la voglia ci porta a fare.


P.s cancellato script di ilegend ( come richiesta sottostante)

ciao
 
Ultima modifica:

i legend

Premium Member
Ciao Mike hai riesumato uno script datatissimo ahahahaha,
era fatto su richiesta di un utente,pertanto una statistica particolare di una sua personale interpretazione , a mio avviso non è corretta. potresti toglierlo per favore?
 

Marcorun

Advanced Member >GOLD<
GRAZIE MIKE58 .........

saluto anche Vincenzo ,del lotto ,script,statistiche,numeri casuali,fregnacce.....apprezzo tutto...tanto che mi son messo anche in gioco senza paura nella gara ambate............................ciao,buono studio a tutti!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto