Novità

Lotteria MillionDay

Mike58

Advanced Member >PLATINUM<
Messaggi
1.995
Punti reazione
50
Punti
48
Incuriosito da questa nuova Lotteria, ho voluto creare uno script Griglia Visiva, in modo da vedere e analizzare in modo per ora visivo i numeri estratti, con una loro statistica in presenze e ritardi.

Vi posto il file fi testo delle estrazioni, da aggiornare seguendo la logica dei 3 punti
Numero estrazione Progressiva.
Data
Estratti

separati da carattere ","

Con lo script della Griglia Tabella.

Fatene buon uso e soprattutto si accettano idee e suggerimenti sulla Lotteria (solo basi Statistiche).

Codice:
Sub Main
 Dim nu(5),T,V,aN(55)
 Dim sFileBd
 Dim sChrSep
 sChrSep = ","
 sFileBd = ScegliFile("C:\Mike58\Desktop\.txt") ' Percorso FileTesto
 'Call ApriBaseDatiFT(sFileBd,6,sChrSep,90) ' x Sivicetutto
 'Call ApriBaseDatiFT(sFileBd,5,sChrSep,40) ' x VinciCasa
 Call ApriBaseDatiFT(sFileBd,5,sChrSep,55) ' x MillionDay
 Ini = 1' EstrazioniArchivioFT - 20
 fin = EstrazioniArchivioFT - 1
 fine = EstrazioniArchivioFT
 ReDim T(57)'--------------------------------------------------------
 T(1) = "info data"
 T(2) = "Estratti"
 For x = 1 To 55
  T(x + 2) = Format2(x)
 Next
 Call InitTabella(T)
 For es = Ini To fine
  'For r = 1 To 1
  ReDim V(57)'------------------------------------------------------
  V(1) = GetInfoEstrazioneFT(es)
  V(2) = StringaEstrattiFT(es)
  For xx = 1 To 55
   aN(xx) = ""
   'aN(xx) = xx
   For p = 1 To 5
    nu(p) = EstrattoFT(es,p)
    If nu(p) = xx Then aN(xx) = aN(xx) & nu(p)
    If nu(p) = xx Then kk = kk + 1
    V(xx + 2) = aN(xx)
   Next
  Next
  Call AddRigaTabella(V)
 Next
 ReDim VV(57)
 For xxx = 1 To 55
  aa = EstrattoFrequenzaFT(xxx,Ini,fine)
  VV(1) = "Presenze"
  VV(xxx + 2) = aa
 Next
 Call AddRigaTabella(VV,3)
 ReDim VVV(57)
 For xxx = 1 To 55
  aa = EstrattoRitardoFT(xxx,Ini,fine)
  VVV(1) = "Ritardo"
  VVV(xxx + 2) = aa
 Next
 Call AddRigaTabella(VVV,6)
 ReDim VVVv(57)
 For xxx = 1 To 55
  aa = EstrattoStoricoFT(xxx,Ini,fine)
  VVVv(1) = "Rit Storico"
  VVVv(xxx + 2) = aa
 Next
 Call AddRigaTabella(VVVv,7)
 Call SetTableWidth("100%")
 CreaTabella
 For y = 1 To 40
  n = EstrattoFrequenzaFT(y,Ini,fin)
  m = EstrattoRitardoFT(y,Ini,fin)
  o = EstrattoStoricoFT(y,Ini,fin)
  If n > 0 And m = o Then
   kn = kn + 1
   ReDim Preserve aNum(kn)
   aNum(kn) = y
   ReDim Preserve aRit(kn)
   aRit(kn) = m
   Call VerificaEsitoFT(aNum,fine,1,1,esito,,es1)
  End If
 Next
 Scrivi "Numeri per Gioco  : " & StringaNumeri(aNum,,1) & " ( " & kn & " )" & vbTab & esito & vbTab & es1,1
 Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
End Sub
Immagine




File di Testo.


Ciao
 

Allegati

antonio65

Super Member >PLATINUM<
Messaggi
372
Punti reazione
2
Punti
18
Buonasera Mike, grazie per il nuovo "script" un assaggino....questo conferma la tua bravura ....come mi hai detto sono un vulcano di idee....
puoi provare ad esempio nelle varie estrazioni del lotto tradizionali mi spiego...ricercando nelle varie ruote numeri che vengono sortiti da 1-55 ovviamente nella stessa ruota
e controllare poi successivamente cosa succede sul nuovo gioco...potrebbe essere una statistica se ben condizionata dalla differenza dei numeri....
 

solare

Advanced Member >PLATINUM<
Messaggi
1.379
Punti reazione
31
Punti
48
Ciao Mike58, Intanto complimenti per questo listato.
La mia idea è: Avere la possibilità di far statistica periodica analizzando le frequenze con possibilità di verifica del gg più frequente per determinati numeri. Sempre che sia possibile riuscire ad avere il ritardo minimo e max relativo al giorno. Capisco che adesso è prestino in quanto abbiamo poche estrazioni però si può intanto cominciare a vedere l'evoluzione con questo metodo statistico.
Quindi non il ritardo generale ma del singolo gg.
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.109
Punti reazione
54
Punti
48
Qualcuno ha quantificato se è + equo del lotto e se si, di quanto?
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.995
Punti reazione
50
Punti
48
Per Ora è meglio vedere solo statistiche reali, visto le estrazioni ridotte non è indicativo andare in singole analisi.

Per valutare se è equo possiamo solo vedere le combinazioni necessarie per sorte ed il relativo rapporto.

Tutto il resto bisogna aspettarlo.

Num CmB Rapp
1 55 11
2 1485 297
3 26235 5247
4 341055 68211
5 3478761 695752.2

intanto per chi vuole valutiamo la singola giocata per estrazioni.

Codice:
Sub Main
 Dim Nu(5),NP(55),aN(90),T,V,sFile
 sFile = ScegliFile("C:\Mike58\Desktop\MillionDay\.txt")
 Call ApriBaseDatiFT(sFile,5,",",55)
 T = Array(T,"Data Esstaz.","Estratti","Peso & ( F55 )","1-11","12-22","23-33","34-44","45-55","Esito","Punti","Vincita $$ ","Rit Prec","Freq Es")
 Call InitTabella(T)
 Ini = 1
 fin = EstrazioniArchivioFT
 d11 = ""
 d22 = ""
 d33 = ""
 d44 = ""
 d55 = ""
 riga = ""
 riga2 = ""
 For x = 1 To 1
  'NP(x) = Array(0,20,21,34,37,46)
  NP(X) = Array(0,11,15,22,36,44)
  Scrivi "Numeri in Gioco : " & StringaNumeri(NP(x)),1
  Scrivi "Giocata al MillionDay ",1,,,1,3,,1
  For es = Ini To fin
  k = k + 1
   For p = 1 To 5
    aN(p) = ""
    Nu(p) = EstrattoFT(es,p)
    aa = SommaEstrattiFT(es)
    bb = FuoriX(aa,55)
    If Nu(p) <= 11 Then d11 = d11 & Nu(p) & " "
    If Nu(p) > 11 And Nu(p) < 23 Then d22 = d22 & Nu(p) & " "
    If Nu(p) > 22 And Nu(p) < 34 Then d33 = d33 & Nu(p) & " "
    If Nu(p) > 33 And Nu(p) < 45 Then d44 = d44 & Nu(p) & " "
    If Nu(p) > 44 And Nu(p) < 56 Then d55 = d55 & Nu(p) & " "

    If Nu(p) <= 11 Then dd11 = dd11 + 1
    If Nu(p) > 11 And Nu(p) < 23 Then dd22 = dd22 + 1
    If Nu(p) > 22 And Nu(p) < 34 Then dd33 = dd33 + 1
    If Nu(p) > 33 And Nu(p) < 45 Then dd44 = dd44 + 1  
    If Nu(p) > 44 And Nu(p) < 56 Then dd55 = dd55 + 1

    rit = EstrattoRitardoFT(Nu(p),Ini,es - 1)
    fre = EstrattoFrequenzaFT(Nu(p),Ini,es)
    riga = riga & Format2(rit) & " "
    riga2 = riga2 & Format2(fre) & " "


   Next
   Call VerificaEsitoFT(NP(x),es,1,1,,,es1)
   pt = SerieFreqFT(es,es,NP(x),1)
   If pt = 0 Or pt = 1 Then vc = 0
   If pt = 2 Then vc = 2
   If pt = 3 Then vc = 50
   If pt = 4 Then vc = 100
   If pt = 5 Then vc = 1000000
   V = Array(V,GetInfoEstrazioneFT(es),StringaNumeri(Nu,,1),aa & " ( " & bb & " )",d11,d22,d33,d44,d55,es1,pt,vc,riga,riga2)
   Call AddRigaTabella(V)
   For xx = 4 To 8
   Call SetColoreCella((xx),6,0)
   If pt > 1 Then Call SetColoreCella(11,3,1)
   Call SetColoreCella(2,6,0)
   Next

   d11 = ""
   d22 = ""
   d33 = ""
   d44 = ""
   d55 = ""
   riga = ""
   riga2 = ""
  Next
 Next
 vv = Array(vv," "," ","Totali",dd11,dd22,dd33,dd44,dd55," "," "," "," "," ")
 Call AddRigaTabella(vv)
 CreaTabella
End Sub
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM<
Messaggi
1.995
Punti reazione
50
Punti
48
Per Ora solo scarobocchi.

Codice:
Sub Main
 Dim sFileBd
 Dim sChrSep
 sChrSep = ","
 sFileBd = ScegliFile("C:\Mike58\Desktop\.txt")
 Call ApriBaseDatiFT(sFileBd,5,sChrSep,55)
 '=================================================
 Dim T,V,Nu(1),Ru(1)
 Ini = 1'EstrazioneFin - estr
 fin = EstrazioniArchivioFT
 Tot = fin - Ini + 1
 Scrivi "Presenze MillionDay : " & scelta,1,1,,1,3,,1
 Scrivi "Range Inizio  : " & GetInfoEstrazioneFT(Ini)
 Scrivi "Range Fine    : " & GetInfoEstrazioneFT(fin)
 Scrivi "Totali Estraz.: " & Tot
 Scrivi
 T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
 Call InitTabella(T)
 For x = 0 To 55
  For n = 1 To 55
   Nu(1) = n
   If SerieFreqFT(Ini,fin,Nu,1) = x Then
    k = k + 1
    ReDim Preserve riga(k)
    riga(k) = n
    sr = SerieRitardoFT(ini,fin,riga,1)
    Call VerificaEsitoFT(riga,fin,1,,esito,,es1)
   End If
  Next
  If k > 0 Then
   V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
   Call AddRigaTabella(V)
  End If
  'riga = ""
  k = 0
 Next
 Call CreaTabella()
 Scrivi
 Scrivi
 Scrivi "Script By Mike58",1,,,1,2,,1
 T = Array(T,"N.Ritardo","Numeri","Q.tà","Freq Serie","Verifica","esito")
 Call InitTabella(T)
 For x = 0 To 55
  For n = 1 To 55
   Nu(1) = n
   'Ru(1) = 5
   If SerieRitardoFT(Ini,fin,Nu,1) = x Then
    k = k + 1
    ReDim Preserve riga(k)
    riga(k) = n
    sr = SerieFreqFT(ini,fin,riga,1)
    Call VerificaEsitoFT(riga,fin,1,,esito,,es1)
   End If
  Next
  If k > 0 Then
   V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
   Call AddRigaTabella(V)
  End If
  k = 0
 Next
 Call CreaTabella()
End Sub
 
Ultima modifica:

solare

Advanced Member >PLATINUM<
Messaggi
1.379
Punti reazione
31
Punti
48
Ciao, chiedo se potrebbe essere usato questo tuo listato con le opportune modifiche. Magari inserendo la possibilità della statistica giornaliera e perchè no anche mensile.
Questa ovviamente è una mia idea. segue listato [HR][/HR] [HR][/HR]
 
Ultima modifica:

solare

Advanced Member >PLATINUM<
Messaggi
1.379
Punti reazione
31
Punti
48
Sub Main()
Dim nua(4005,16),nn(2)
'ee = DataEstrToIdEstr (31,12,2009)

ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","31/12/2009")
ms = CInt(InputBox("In quale mese? ",,1))
If ms = "" Then Exit Sub
'r = CInt(InputBox("Di quale ruota? ",,5))
'If r = "" Then Exit Sub
'ru(1) = r
q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
If q = "" Then Exit Sub
'
ReDim ru(0)
r = ScegliRuote(ru)
fin = EstrazioneFin
ResetTimer
'------------init tabella ------------------
ReDim atitoli(15)
atitoli(1) = " "
atitoli(2) = " Numero "
atitoli(3) = " Frequenza "
atitoli(4) = " Ritardo Attuale "
atitoli(5) = " Anno_2016 "
atitoli(6) = " Anno_2015 "
atitoli(7) = " Anno 2014 "
atitoli(8) = " Anno 2013 "
atitoli(9) = " Anno 2012 "
atitoli(10) = " Anno 2011 "
atitoli(11) = " Anno 2010 "
atitoli(12) = " Anno 2017 "
atitoli(13) = " Anno 2018 "
atitoli(14) = " Rit Sto "
atitoli(15) = " "
Call InitTabella(atitoli,1,,3,5)
For es = PrimaSuccessiva(ee) To fin
If Mese(es) = ms Then
co = 0
'For x = 1 To 89
'x = cg
'For y = x + 1 To 90
For x = 1 To 90
'If x <> y Then
co = co + 1
nua(co,1) = co
nua(co,2) = x
'nua(co,3) = y
nn(1) = x
'nn(2) = y
k = SerieFreqTurbo(es,es,nn,ru,1)
rt = SerieRitardoTurbo(Ini,fin,nn,ru,1)
rs = SerieStoricoTurbo(Ini,fin,nn,ru,1)
nua(co,4) = nua(co,4) + k
nua(co,5) = rt
nua(co,15) = rs
k1 = 0
If Anno(es) = 2016 Then k1 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,6) = nua(co,6) + k1
k2 = 0
If Anno(es) = 2015 Then k2 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,7) = nua(co,7) + k2
k3 = 0
If Anno(es) = 2014 Then k3 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,8) = nua(co,8) + k3
k4 = 0
If Anno(es) = 2013 Then k4 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,9) = nua(co,9) + k4
k5 = 0
If Anno(es) = 2012 Then k5 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,10) = nua(co,10) + k5
k6 = 0
If Anno(es) = 2011 Then k6 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,11) = nua(co,11) + k6
k7 = 0
If Anno(es) = 2010 Then k7 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,12) = nua(co,12) + k7
k8 = 0
If Anno(es) = 2017 Then k8 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,13) = nua(co,13) + k8
k9 = 0
If Anno(es) = 2018 Then k9 = SerieFreqTurbo(es,es,nn,ru,1)
nua(co,14) = nua(co,14) + k9


Next
'Next
End If
Next
OrdinaMatrice nua,- 1,4
ColoreTesto 2
Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),1
ColoreTesto 0
Scrivi "I " & q & " Numeri più frequenti " & " a " & StringaRuote(ru) & " nel mese di " & MeseNome(ms),1
Scrivi
For z = 1 To q
ReDim avalori(15)
avalori(1) = " "
avalori(2) = nua(z,2)
avalori(3) = nua(z,4)
avalori(4) = nua(z,5)
avalori(5) = nua(z,6)
avalori(6) = nua(z,7)
avalori(7) = nua(z,8)
avalori(8) = nua(z,9)
avalori(9) = nua(z,10)
avalori(10) = nua(z,11)
avalori(11) = nua(z,12)
avalori(12) = nua(z,13)
avalori(13) = nua(z,14)
avalori(14) = nua(z,15)
avalori(15) = " "
Call AddRigaTabella(avalori,,,3)
For xx = 5 To 12
Call SetColoreCella((xx),4,1)

If avalori(5) > 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 And avalori(10) > 0 And avalori(11) > 0 And avalori(12) > 0 Then
Call SetColoreCella((xx),6,1)
Call SetColoreCella(2,6,1)
End If
Next
'If avalori(5) = 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 Then Call SetColoreCella(2,vbGreen)
'If avalori(5) > 0 Then Call SetColoreCella(2,2,4)
'If rit = 0 Then Call SetColoreCella(4,3,2)
If avalori(4) = 0 Then Call SetColoreCella(4,3,2)
Call SetColoreCella(1,1,0)
Call SetColoreCella(15,1,0)
k11 = k11 + avalori(5)
k12 = k12 + avalori(6)
k13 = k13 + avalori(7)
k14 = k14 + avalori(8)
k15 = k15 + avalori(9)
k16 = k16 + avalori(10)
k17 = k17 + avalori(11)
k18 = k18 + avalori(12)
k19 = k19 + avalori(13)
'riga = Format2(nua(z,2)) & "-" & Format2(nua(z,3)) & Space(3) & Format2(nua(z,4)) & Space(10) & Format2(nua(z,5))
'Scrivi Space(10) & riga,1
'riga = ""
Next
ReDim avalori1(15)
avalori1(1) = " "
avalori1(5) = k11
avalori1(6) = k12
avalori1(7) = k13
avalori1(8) = k14
avalori1(9) = k15
avalori1(10) = k16
avalori1(11) = k17
avalori1(12) = k18
avalori1(13) = k19
Call AddRigaTabella(avalori1,1,,3,5)
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi "Tempo di Elaborazione : " & TempoTrascorso
Scrivi " Tabella listed by Mike58 ",1,- 1,3
End Sub
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM<
Messaggi
1.995
Punti reazione
50
Punti
48
Ciao Solare come ho detto sopra per ora visto le estrazioni ridotte e riferite ad appena 2 mesi, questo tipo di raccolta ancora non è proponibile, poi non saprei addirittura giornaliera per giorno che valenza potrebbe avere.

Tutto è possibile, ma per ora cerchiamo di raccogliere dati in maniera globale, poi con il susseguirsi delle estrazioni, sarà possibile filtrare come e dove si vorrà.

Ciao.

P.s. sarebbe sempre meglio non mettere listati creati per altri scopi in modo da non confondere il possibile costrutto è sempre gradito e più indicato elencare l'iter nel suo dettaglio.
 

ppaaoolloo

Super Member >PLATINUM<
Messaggi
289
Punti reazione
3
Punti
18
ciao

ho provato a cercare in rete ma non ho trovato niente,
si potrebbe avere il tabellone analitico del milion day

grazie
ciao
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.995
Punti reazione
50
Punti
48
Eccolo


Codice:
Sub Main
 Dim nu(5),sfile
 sfile = ScegliFile("C:\Mike58\Desktop\.txt")
 Call ApriBaseDatiFT(sfile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 Scrivi Space(15) & " ************* TABELLONE ANALITICO Million Day ************** ",1,1,,1,3
 Scrivi
 For es = fin To Ini Step - 1
  nk = nk + 1
  For p = 1 To 5
   nu(p) = EstrattoFT(es,p)
   If EstrattoFrequenzaFT(nu(p),es,fin) > 1 Then nu(p) = "__"
   If nu(p) <> "__" Then kk = kk + 1
  Next
  If kk > 0 Then
   Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
   Scrivi nk - 1 & vbTab,0,0
   Scrivi StringaNumeri(nu,,1) & vbTab & "  Caduti... " & 5 - kk & vbTab & " Rimasti... " & kk,1
   kk = 0
  End If
 Next
End Sub
 
Ultima modifica:

edesimone

Super Member >PLATINUM<
Messaggi
456
Punti reazione
2
Punti
18
Buona sera Mike58
volevo chiederti se voglio utilizzare questo mio file archivio,
con queste caratteristiche,faccio presente che ci sono ; dove
si deve intervenire sullo script.

1;7/2/2018;7 16 43 44 51
2;8/2/2018;15 26 27 38 53
3;9/2/2018;2 13 31 43 45
4;10/2/2018;28 44 46 47 49
5;11/2/2018;5 33 39 40 46
6;12/2/2018;5 21 26 41 53
7;13/2/2018;3 34 43 46 50
8;14/2/2018;15 18 40 53 54
9;15/2/2018;1 12 19 32 47
10;16/2/2018;40 41 44 46 48
11;17/2/2018;10 15 18 52 55
12;18/2/2018;13 20 29 42 51
13;19/2/2018;1 6 25 29 44
14;20/2/2018;10 35 37 42 54
15;21/2/2018;6 16 23 29 31
16;22/2/2018;5 19 21 29 37
17;23/2/2018;7 16 17 35 48
18;24/2/2018;12 15 20 23 46
19;25/2/2018;6 10 14 29 35
20;26/2/2018;4 25 34 37 48
21;27/2/2018;11 16 43 46 47
22;28/2/2018;2 25 26 31 52
23;1/3/2018;1 20 47 48 52
24;2/3/2018;8 18 23 32 34
25;3/3/2018;5 14 28 43 46
26;4/3/2018;3 9 15 34 55
27;5/3/2018;16 28 32 40 54

un saluto edesimone
 

magia

Super Member >PLATINUM<
Messaggi
482
Punti reazione
15
Punti
18
Buongiorno , Salutando gli intervenuti ,
In attesa di Mike58 ,
Rispondiamo salutando, Edesimone .
L' archivio da lei postato va benissimo , deve solo uniformare il divisore dei dati .
Ovvero , ho sostituisce gli " " con " ; " , o il contrario .
Quindi i divisori devono essere uniformi .
Per ultimo , se utilizza , questi listati deve anche modificare questa linea :
Codice:
Call ApriBaseDatiFT(sfile,5,",",55)
Inseendo il separatore adatto, da lei utilizzato .
Salvo errori ed omissis .
 

edesimone

Super Member >PLATINUM<
Messaggi
456
Punti reazione
2
Punti
18
Grazie magia
io voglio utilizzare il mio file con quelle caratteristiche, mi puoi modificare lo script,
con il mio archivio.
grazie edesimone
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.995
Punti reazione
50
Punti
48
Ciao Magia, ben ritrovato e grazie per l'intervento alla domanda di edesimone.

Purtroppo edesimone cosi come è strutturato il tuo archivio non risulta leggibile dai file fi testo, in quanto non presenta caratteri comuni.

Puoi mettere tutti i separatori che si desiderano ma devono essere uguali per tutti i parametri e richiamarli con l'istruzione suggerita da Magia.

ossia
Numero progressivo
data formattata con "/"
Numeri estratti separati con lo stesso separatore utilizzato

esempio carattere ;

1;01/01/2018;11;22;33;44;55

Ciao
 
Ultima modifica:

edesimone

Super Member >PLATINUM<
Messaggi
456
Punti reazione
2
Punti
18
Grazie mike58
era solo per praticità, mi ritrovo un programma MillionDay che aggiorna l'archivio con quelle caratteristiche.
un saluto edesimone
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 15 febbraio 2020
    Bari
    30
    83
    35
    44
    75
    Cagliari
    23
    88
    76
    57
    72
    Firenze
    22
    69
    27
    04
    83
    Genova
    75
    87
    40
    50
    16
    Milano
    37
    42
    17
    71
    51
    Napoli
    43
    71
    19
    47
    44
    Palermo
    43
    20
    24
    28
    32
    Roma
    68
    74
    81
    50
    09
    Torino
    22
    76
    90
    77
    61
    Venezia
    31
    32
    72
    24
    74
    Nazionale
    80
    74
    01
    39
    77
Alto