Estrazioni in ordine di sortita al Superenalotto

« Older   Newer »
  Share  
icon1  view post Posted on 18/2/2024, 14:03     +1   -1

Adulto

Group:
Member
Posts:
122
Reputation:
+19

Status:


LOGOSILOP
==============
Salve a Tutti ,
=====================
apro questo thread per aggiornamenti vari
sull'archivio del Superenalotto con estratti in ordine di uscita
inizio dal 01/02/2014 ai giorni nostri.
Discussione iniziata qui:
https://wheels.forumcommunity.net/?t=62967608
======================
Buona continuazione.
=====================
Buona domenica a tutto il forum.
======================
stickman
A presto
Silop ;) ;) ;)
 
Contacts  Top
view post Posted on 18/2/2024, 19:04     +1   -1

Adolescente

Group:
Member
Posts:
67
Reputation:
+4

Status:


Ciao a tutti, complimenti Beppignello hai preso il 46 nell'ultima estrazione di sabato, anche se proposto in posizione ( averne 7 numeri x 1 in due colpi ).
Seguo con grande interesse l'evoluzione degli studi per quanto il mio contributo sia da poco più che spettatore. Allego comportamento dei punti verticali del tabellone analitico normale di pochi ultimi concorsi e un riferimento al precedente. naturalmente da questi dati si apre una serie di condizionamenti ad esempio i punti gemelli come veniva definito in alcuni soft , o altro. ciao Orion13. Ho ripostato qui , dopo avere scritto in " ciao forum" sezione lotto.

Download attachment
dinamici_analitico.xlsx ( Number of downloads: 15 )

 
Top
view post Posted on 19/2/2024, 09:26     +1   -1

Esperto

Group:
Member
Posts:
1,395
Reputation:
+387

Status:


questo è uno script che permette di mettere a video 50 situazione del tabellone Estratti Ritardo impostando il nconc di partenza a ritroso.

ricostruisce il tabellone dei ritardi
calcola le 6 colonne verticali e le relative posizione dei 90 estratti

sempre possibile lanciarlo con spaziometria


CODICE
Sub Main
 Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
 Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu
 Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b
 Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90)
 k = 1
 f = EstrazioniArchivioSE
 fpre = InputBox("Estrazione n.",,f)
 
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '''loop dell'archivio estrazioni superenalotto
 For b = 1 To f

 If b = 50 Then Exit Sub

 Fine= fpre-1
 Messaggio(fpre & " / " & Fine)
 fin1 = Fine - 89
 CICLOAMBIVERGINI = 380
 Vert1 = "":Vert2="":Vert3="":Vert4="":Vert5="":Vert6=""
 ColoreTesto 1
 Scrivi " Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine) & "......ult.estr.archivio..." & f,1
 Scrivi "                                                                                         Sestina Orig.          Elenco Ritardi    ",1
 Scrivi "Rit.     Estratti          Stella    Teo6     Teo90   Rea90   Numeri Ritardo          Rit.Min.    /  Rit.Max    10 09 08 07 06 05 04 03 02 01  "
 ColoreTesto 0
 ReDim aNum(90),stella(90),an(90),en(1)
 For k = 1 To Fine
    ''' calcola RitardoCombinazione
    For n = 1 To 90
       aNum(n) = aNum(n) + 1
       stella(n) = stella(n) + 1
    Next
    aNum(EstrattoSE(k,1)) = 0
    aNum(EstrattoSE(k,2)) = 0
    aNum(EstrattoSE(k,3)) = 0
    aNum(EstrattoSE(k,4)) = 0
    aNum(EstrattoSE(k,5)) = 0
    aNum(EstrattoSE(k,6)) = 0
    stella(EstrattoSE(k,8)) = 0
    '''''''''''''''''
    If k >= fin1 Then
       fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
       fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
       fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
       fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
       fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
       fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
    End If
    '''''''''''''''''
 Next
 ''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
 For x = 0 To 200
    riga = ""
     ReDim nun(6)
    For y = 1 To 90
       If x = aNum(y) Then
          riga = riga & Format2(y) & " "
          ctnpr = ctnpr + 1
        po = PosizioneSE(Fine - x,y)
        nun(po) = Format2(y)
       End If
    Next
    If x < 10 Then
       rit = "00" & x
    End If
    If x > 9 And x < 100 Then
       rit = "0" & x
    End If
    If x > 99 Then
       rit = x
    End If
    ReDim Orig(8)
    Orig(1) = Format2(EstrattoSE(Fine - x,1))
    Orig(2) = Format2(EstrattoSE(Fine - x,2))
    Orig(3) = Format2(EstrattoSE(Fine - x,3))
    Orig(4) = Format2(EstrattoSE(Fine - x,4))
    Orig(5) = Format2(EstrattoSE(Fine - x,5))
    Orig(6) = Format2(EstrattoSE(Fine - x,6))
    Orig(8) = Format2(EstrattoSE(Fine - x,8))
    Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
    riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
    '''elenco ritardi
    Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
    xqt = UBound(aRetRitardi)
    xq = xqt - 11 : rita = ""
    For xq = xq + 1 To xqt - 1
       rita = rita & Format2(aRetRitardi(xq)) & "."
    Next
    teo =((14/15)^rit)*6
    teo90 =((14/15)^rit)*90
    trenta = ""
    For y = 1 To 90
       If Int(aNum(y)) >= 31 Then
          trenta = trenta & Format2(y) & "."
       End If
    Next
    If riga <> "" Then
   
    '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
    Linea = ""
   
    For w1 = 1 To 6
    vv = 0
    For w2 = 1 To 6
    If nun(w2) = Orig(w1) Then
    Linea = Linea & Orig(w1) & " "
    If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
    If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
    If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
    If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
    If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
    If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
    vv = 1
    End If
    Next
     If vv <> 1 Then Linea = Linea & "-- "
    Next
         
       Scrivi rit & "......" & Format2(EstrattoSE(Fine - x,1)) & " " & Format2(EstrattoSE(Fine - x,2)) & " " & Format2(EstrattoSE(Fine - x,3)) & " " & Format2(EstrattoSE(Fine - x,4)) & " " & Format2(EstrattoSE(Fine - x,5)) & " " & Format2(EstrattoSE(Fine - x,6)) & " ( " & Format2(EstrattoSE(Fine - x,8)) & " ) " & "   " & FormattaStringa(teo,"0.0") & "      " & FormattaStringa(teo90,"00.00") & "    " & Format2(90 - ctnpr) & "     " & Linea & "         " & riga2 & "  /  " & FormatSpace(riga3,5) & "      " & rita
       ''''accumula estratti usciti verticali nelle 6 posizioni
       rigav(1,Orig(1)) = Orig(1)
       rigav(2,Orig(2)) = Orig(2)
       rigav(3,Orig(3)) = Orig(3)
       rigav(4,Orig(4)) = Orig(4)
       rigav(5,Orig(5)) = Orig(5)
       rigav(6,Orig(6)) = Orig(6)
       ''''
       If(90 - ctnpr) >= teo90 Then
          ReDim av(20),av5(90)
          Call SplitByChar(riga1," ",av)
          last = UBound(av)
          For t = 0 To last - 1
             If av(t) <> "" Then
                av5(t + 1) = av(t)
                q = q + 1
                an(q) = av(t)
             End If
          Next
          filtro = filtro & StringaNumeri(av5,".") & "."
       End If
    End If
 Next
 '''''''''''''''''''''''
 Scrivi "-------------------------------------------------------------------------------------"
 Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1
 Inizio = ""
 For a = 1 To 8
 Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
 Next
 Scrivi fpre & " " & DataEstrazione(fpre) & "  Sestina Estratta  " & Inizio,1
 fpre = fpre-1
 Scrivi "-------------------------------------------------------------------------------------"
 Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1
 Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1,2,3
 Scrivi Fine & "  Vert.1  :  " & Vert1,1
 Scrivi Fine & "  Vert.2  :  " & Vert2,1
 Scrivi Fine & "  Vert.3  :  " & Vert3,1
 Scrivi Fine & "  Vert.4  :  " & Vert4,1
 Scrivi Fine & "  Vert.5  :  " & Vert5,1
 Scrivi Fine & "  Vert.6  :  " & Vert6,1
 Scrivi "-------------------------------------------------------------------------------------"
 Scrivi
 
 Next
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
End Sub




da verificare sempre e segnalare eventuali anomalie.

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

questo script è uguale a quello sopra, con l'unica differenza che mette nell'output solo la sintesi che interessa con le 6 colonne verticale ed i numeri che sono relativi alle loro posizioni d'estrazione dalle venus

sempre impostando il nconc iniziale, alla ricostruzione di 50 tabelloni alla volta.



CODICE
Option Explicit
Sub Main
Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu
Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b
Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90)
k = 1
f = EstrazioniArchivioSE
fpre = InputBox("Estrazione n.",,f)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''loop dell'archivio estrazioni superenalotto
For b = 1 To f

If b = 50 Then Exit Sub

Fine = fpre - 1
Messaggio(fpre & " / " & Fine)
fin1 = Fine - 89
CICLOAMBIVERGINI = 380
Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""

ReDim aNum(90),stella(90),an(90),en(1)
For k = 1 To Fine
   ''' calcola RitardoCombinazione
   For n = 1 To 90
      aNum(n) = aNum(n) + 1
      stella(n) = stella(n) + 1
   Next
   aNum(EstrattoSE(k,1)) = 0
   aNum(EstrattoSE(k,2)) = 0
   aNum(EstrattoSE(k,3)) = 0
   aNum(EstrattoSE(k,4)) = 0
   aNum(EstrattoSE(k,5)) = 0
   aNum(EstrattoSE(k,6)) = 0
   stella(EstrattoSE(k,8)) = 0
   '''''''''''''''''
   If k >= fin1 Then
      fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
      fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
      fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
      fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
      fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
      fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
   End If
   '''''''''''''''''
Next
''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
For x = 0 To 200
   riga = ""
    ReDim nun(6)
   For y = 1 To 90
      If x = aNum(y) Then
         riga = riga & Format2(y) & " "
         ctnpr = ctnpr + 1
       po = PosizioneSE(Fine - x,y)
       nun(po) = Format2(y)
      End If
   Next
   If x < 10 Then
      rit = "00" & x
   End If
   If x > 9 And x < 100 Then
      rit = "0" & x
   End If
   If x > 99 Then
      rit = x
   End If
   ReDim Orig(8)
   Orig(1) = Format2(EstrattoSE(Fine - x,1))
   Orig(2) = Format2(EstrattoSE(Fine - x,2))
   Orig(3) = Format2(EstrattoSE(Fine - x,3))
   Orig(4) = Format2(EstrattoSE(Fine - x,4))
   Orig(5) = Format2(EstrattoSE(Fine - x,5))
   Orig(6) = Format2(EstrattoSE(Fine - x,6))
   Orig(8) = Format2(EstrattoSE(Fine - x,8))
   Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
   riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
   '''elenco ritardi
   Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
   xqt = UBound(aRetRitardi)
   xq = xqt - 11 : rita = ""
   For xq = xq + 1 To xqt - 1
      rita = rita & Format2(aRetRitardi(xq)) & "."
   Next
   teo =((14/15)^rit)*6
   teo90 =((14/15)^rit)*90
   trenta = ""
   For y = 1 To 90
      If Int(aNum(y)) >= 31 Then
         trenta = trenta & Format2(y) & "."
      End If
   Next
   If riga <> "" Then
 
   '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
   Linea = ""
 
   For w1 = 1 To 6
   vv = 0
   For w2 = 1 To 6
   If nun(w2) = Orig(w1) Then
   Linea = Linea & Orig(w1) & " "
   If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
   If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
   If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
   If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
   If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
   If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
   vv = 1
   End If
   Next
    If vv <> 1 Then Linea = Linea & "-- "
   Next
       
      ''''accumula estratti usciti verticali nelle 6 posizioni
      rigav(1,Orig(1)) = Orig(1)
      rigav(2,Orig(2)) = Orig(2)
      rigav(3,Orig(3)) = Orig(3)
      rigav(4,Orig(4)) = Orig(4)
      rigav(5,Orig(5)) = Orig(5)
      rigav(6,Orig(6)) = Orig(6)
      ''''
      If(90 - ctnpr) >= teo90 Then
         ReDim av(20),av5(90)
         Call SplitByChar(riga1," ",av)
         last = UBound(av)
         For t = 0 To last - 1
            If av(t) <> "" Then
               av5(t + 1) = av(t)
               q = q + 1
               an(q) = av(t)
            End If
         Next
         filtro = filtro & StringaNumeri(av5,".") & "."
      End If
   End If
Next
'''''''''''''''''''''''
Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4
Inizio = ""
For a = 1 To 8
Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
Next
Scrivi fpre & " " & DataEstrazione(fpre) & "  Sestina Estratta  " & Inizio,1,2,4
fpre = fpre - 1
Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2
Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1
Scrivi Fine & "  Vert.1  :  " & Vert1,1
Scrivi Fine & "  Vert.2  :  " & Vert2,1
Scrivi Fine & "  Vert.3  :  " & Vert3,1
Scrivi Fine & "  Vert.4  :  " & Vert4,1
Scrivi Fine & "  Vert.5  :  " & Vert5,1
Scrivi Fine & "  Vert.6  :  " & Vert6,1
Scrivi "-------------------------------------------------------------------------------------"
Scrivi

Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End Sub
 
Top
view post Posted on 19/2/2024, 09:59     +1   +1   -1

Esperto

Group:
Member
Posts:
1,395
Reputation:
+387

Status:


questo script calcola i punti realizzati dall'ultima sestina estratta rispetto alla sisposizione nel tabellone estrazione precedente

per ognuna delle 6 colonne verticali
name = TabelloneNuovoSe-3SinteticoPuntiColonne

CODICE
Option Explicit
Sub Main
Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu
Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b,punti1,punti2,punti3,punti4,punti5,punti6,h
Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90)
k = 1
f = EstrazioniArchivioSE
fpre = InputBox("Estrazione n.",,f)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''loop dell'archivio estrazioni superenalotto
For b = 1 To f

If b = 50 Then Exit Sub

Fine = fpre - 1
Messaggio(fpre & " / " & Fine)
fin1 = Fine - 89
CICLOAMBIVERGINI = 380
Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""

ReDim aNum(90),stella(90),an(90),en(1)
For k = 1 To Fine
   ''' calcola RitardoCombinazione
   For n = 1 To 90
      aNum(n) = aNum(n) + 1
      stella(n) = stella(n) + 1
   Next
   aNum(EstrattoSE(k,1)) = 0
   aNum(EstrattoSE(k,2)) = 0
   aNum(EstrattoSE(k,3)) = 0
   aNum(EstrattoSE(k,4)) = 0
   aNum(EstrattoSE(k,5)) = 0
   aNum(EstrattoSE(k,6)) = 0
   stella(EstrattoSE(k,8)) = 0
   '''''''''''''''''
   If k >= fin1 Then
      fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
      fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
      fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
      fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
      fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
      fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
   End If
   '''''''''''''''''
Next
''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
For x = 0 To 200
   riga = ""
    ReDim nun(6)
   For y = 1 To 90
      If x = aNum(y) Then
         riga = riga & Format2(y) & " "
         ctnpr = ctnpr + 1
       po = PosizioneSE(Fine - x,y)
       nun(po) = Format2(y)
      End If
   Next
   If x < 10 Then
      rit = "00" & x
   End If
   If x > 9 And x < 100 Then
      rit = "0" & x
   End If
   If x > 99 Then
      rit = x
   End If
   ReDim Orig(8)
   Orig(1) = Format2(EstrattoSE(Fine - x,1))
   Orig(2) = Format2(EstrattoSE(Fine - x,2))
   Orig(3) = Format2(EstrattoSE(Fine - x,3))
   Orig(4) = Format2(EstrattoSE(Fine - x,4))
   Orig(5) = Format2(EstrattoSE(Fine - x,5))
   Orig(6) = Format2(EstrattoSE(Fine - x,6))
   Orig(8) = Format2(EstrattoSE(Fine - x,8))
   Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
   riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
   '''elenco ritardi
   Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
   xqt = UBound(aRetRitardi)
   xq = xqt - 11 : rita = ""
   For xq = xq + 1 To xqt - 1
      rita = rita & Format2(aRetRitardi(xq)) & "."
   Next
   teo =((14/15)^rit)*6
   teo90 =((14/15)^rit)*90
   trenta = ""
   For y = 1 To 90
      If Int(aNum(y)) >= 31 Then
         trenta = trenta & Format2(y) & "."
      End If
   Next
   If riga <> "" Then
 
   '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
   Linea = ""
 
   For w1 = 1 To 6
   vv = 0
   For w2 = 1 To 6
   If nun(w2) = Orig(w1) Then
   Linea = Linea & Orig(w1) & " "
   If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
   If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
   If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
   If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
   If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
   If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
   vv = 1
   End If
   Next
    If vv <> 1 Then Linea = Linea & "-- "
   Next
       
      ''''accumula estratti usciti verticali nelle 6 posizioni
      rigav(1,Orig(1)) = Orig(1)
      rigav(2,Orig(2)) = Orig(2)
      rigav(3,Orig(3)) = Orig(3)
      rigav(4,Orig(4)) = Orig(4)
      rigav(5,Orig(5)) = Orig(5)
      rigav(6,Orig(6)) = Orig(6)
      ''''
      If(90 - ctnpr) >= teo90 Then
         ReDim av(20),av5(90)
         Call SplitByChar(riga1," ",av)
         last = UBound(av)
         For t = 0 To last - 1
            If av(t) <> "" Then
               av5(t + 1) = av(t)
               q = q + 1
               an(q) = av(t)
            End If
         Next
         filtro = filtro & StringaNumeri(av5,".") & "."
      End If
   End If
Next

Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4
Inizio = ""
ReDim nr(6)
For a = 1 To 6
Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
nr(a) = Format2(EstrattoSE(fpre,a))
Next
Scrivi fpre & " " & DataEstrazione(fpre) & "  Sestina Estratta  " & Inizio,1,2,4
fpre = fpre - 1
''''''''''''''''''''''''''1 colonna
         ReDim av1(50)
         Call SplitByChar(Vert1,".",av1)
         last = UBound(av1)-1
         punti1 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti1 = punti1 + 1
         Next
'''''''''''''''''''''''''2 colonna
         ReDim av1(50)
         Call SplitByChar(Vert2,".",av1)
         last = UBound(av1)-1
         punti2 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti2 = punti2 + 1
         Next
'''''''''''''''''''''''3 colonna
         ReDim av1(50)
         Call SplitByChar(Vert3,".",av1)
         last = UBound(av1)-1
         punti3 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti3 = punti3 + 1
         Next
''''''''''''''''''''''''''4 colonna
         ReDim av1(50)
         Call SplitByChar(Vert4,".",av1)
         last = UBound(av1)-1
         punti4 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti4 = punti4 + 1
         Next
''''''''''''''''''''''''''5 colonna
         ReDim av1(50)
         Call SplitByChar(Vert5,".",av1)
         last = UBound(av1)-1
         punti5 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti5 = punti5 + 1
         Next
''''''''''''''''''''''''6 colonna
         ReDim av1(50)
         Call SplitByChar(Vert6,".",av1)
         last = UBound(av1)-1
         punti6 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti6 = punti6 + 1
         Next
'''''''''''''''''''''''

Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2
Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1
Scrivi Fine & " Punti   " & punti1 & "  Vert.1  :  " & Vert1,1
Scrivi Fine & " Punti   " & punti2 & "  Vert.2  :  " & Vert2,1
Scrivi Fine & " Punti   " & punti3 & "  Vert.3  :  " & Vert3,1
Scrivi Fine & " Punti   " & punti4 & "  Vert.4  :  " & Vert4,1
Scrivi Fine & " Punti   " & punti5 & "  Vert.5  :  " & Vert5,1
Scrivi Fine & " Punti   " & punti6 & "  Vert.6  :  " & Vert6,1
Scrivi "-------------------------------------------------------------------------------------"
Scrivi

Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End Sub
 
Top
view post Posted on 19/2/2024, 10:41     +1   -1

Adolescente

Group:
Member
Posts:
97
Reputation:
+1

Status:


:o: :woot:
stasera ci sarà da fare!

EDIT:
Posso chiedere se qualcuno ha idea di quanti numeri al massimo ci sono stati nelle colonne vincenti che chiudono il ciclo?
 
Top
view post Posted on 19/2/2024, 12:12     +1   -1

Adolescente

Group:
Member
Posts:
67
Reputation:
+4

Status:


ciao a tutti, grazie Beppignello bella automazione, per mouse-66 no purtroppo non ne ho idea anche come concetto per me è nuovo, io ho una formazione più totocalcistica , diciamo che sono più portato alla ricerca della vincita a colpo , anche se onestamente non ho avuto grosse soddisfazioni con questo modus operandi. Ben venga quindi il cercare di percorrere altre strade. .....
 
Top
icon1  view post Posted on 19/2/2024, 12:13     +1   -1

Adulto

Group:
Member
Posts:
122
Reputation:
+19

Status:


LOGOSILOP
==============
Salve a Tutti ,
=====================
Grazie a Beppignello per i listati.

Sto controllando i scripts del bravo Beppignello
e le date delle sestine estratte non sono giuste, bisogna aggiungere [ SE ]
alle date nei TRE scripts.
Le date sono quelle che si trovano quasi in fondo ai 3 listati:
Vedi immagini :
=====================
stickman
SE1
======================
SE2
======================
Buona continuazione.
=====================
Buon lunedì a tutto il forum.
======================
stickman
A presto
Silop ;) ;) ;)
 
Contacts  Top
view post Posted on 19/2/2024, 12:33     +1   -1

Esperto

Group:
Member
Posts:
1,395
Reputation:
+387

Status:


Grazie silop


Adesso modifico in dataestrazioneSE
 
Top
view post Posted on 19/2/2024, 18:27     +1   -1

Adolescente

Group:
Member
Posts:
97
Reputation:
+1

Status:


CITAZIONE (Beppignello @ 19/2/2024, 09:59) 
questo script calcola i punti realizzati dall'ultima sestina estratta rispetto alla sisposizione nel tabellone estrazione precedente

per ognuna delle 6 colonne verticali
name = TabelloneNuovoSe-3SinteticoPuntiColonne

CODICE
Option Explicit
Sub Main
Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu
Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b,punti1,punti2,punti3,punti4,punti5,punti6,h
Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90)
k = 1
f = EstrazioniArchivioSE
fpre = InputBox("Estrazione n.",,f)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''loop dell'archivio estrazioni superenalotto
For b = 1 To f

If b = 50 Then Exit Sub

Fine = fpre - 1
Messaggio(fpre & " / " & Fine)
fin1 = Fine - 89
CICLOAMBIVERGINI = 380
Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""

ReDim aNum(90),stella(90),an(90),en(1)
For k = 1 To Fine
   ''' calcola RitardoCombinazione
   For n = 1 To 90
      aNum(n) = aNum(n) + 1
      stella(n) = stella(n) + 1
   Next
   aNum(EstrattoSE(k,1)) = 0
   aNum(EstrattoSE(k,2)) = 0
   aNum(EstrattoSE(k,3)) = 0
   aNum(EstrattoSE(k,4)) = 0
   aNum(EstrattoSE(k,5)) = 0
   aNum(EstrattoSE(k,6)) = 0
   stella(EstrattoSE(k,8)) = 0
   '''''''''''''''''
   If k >= fin1 Then
      fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
      fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
      fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
      fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
      fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
      fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
   End If
   '''''''''''''''''
Next
''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
For x = 0 To 200
   riga = ""
    ReDim nun(6)
   For y = 1 To 90
      If x = aNum(y) Then
         riga = riga & Format2(y) & " "
         ctnpr = ctnpr + 1
       po = PosizioneSE(Fine - x,y)
       nun(po) = Format2(y)
      End If
   Next
   If x < 10 Then
      rit = "00" & x
   End If
   If x > 9 And x < 100 Then
      rit = "0" & x
   End If
   If x > 99 Then
      rit = x
   End If
   ReDim Orig(8)
   Orig(1) = Format2(EstrattoSE(Fine - x,1))
   Orig(2) = Format2(EstrattoSE(Fine - x,2))
   Orig(3) = Format2(EstrattoSE(Fine - x,3))
   Orig(4) = Format2(EstrattoSE(Fine - x,4))
   Orig(5) = Format2(EstrattoSE(Fine - x,5))
   Orig(6) = Format2(EstrattoSE(Fine - x,6))
   Orig(8) = Format2(EstrattoSE(Fine - x,8))
   Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
   riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
   '''elenco ritardi
   Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
   xqt = UBound(aRetRitardi)
   xq = xqt - 11 : rita = ""
   For xq = xq + 1 To xqt - 1
      rita = rita & Format2(aRetRitardi(xq)) & "."
   Next
   teo =((14/15)^rit)*6
   teo90 =((14/15)^rit)*90
   trenta = ""
   For y = 1 To 90
      If Int(aNum(y)) >= 31 Then
         trenta = trenta & Format2(y) & "."
      End If
   Next
   If riga <> "" Then
 
   '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
   Linea = ""
 
   For w1 = 1 To 6
   vv = 0
   For w2 = 1 To 6
   If nun(w2) = Orig(w1) Then
   Linea = Linea & Orig(w1) & " "
   If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
   If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
   If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
   If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
   If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
   If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
   vv = 1
   End If
   Next
    If vv <> 1 Then Linea = Linea & "-- "
   Next
       
      ''''accumula estratti usciti verticali nelle 6 posizioni
      rigav(1,Orig(1)) = Orig(1)
      rigav(2,Orig(2)) = Orig(2)
      rigav(3,Orig(3)) = Orig(3)
      rigav(4,Orig(4)) = Orig(4)
      rigav(5,Orig(5)) = Orig(5)
      rigav(6,Orig(6)) = Orig(6)
      ''''
      If(90 - ctnpr) >= teo90 Then
         ReDim av(20),av5(90)
         Call SplitByChar(riga1," ",av)
         last = UBound(av)
         For t = 0 To last - 1
            If av(t) <> "" Then
               av5(t + 1) = av(t)
               q = q + 1
               an(q) = av(t)
            End If
         Next
         filtro = filtro & StringaNumeri(av5,".") & "."
      End If
   End If
Next

Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4
Inizio = ""
ReDim nr(6)
For a = 1 To 6
Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
nr(a) = Format2(EstrattoSE(fpre,a))
Next
Scrivi fpre & " " & DataEstrazione(fpre) & "  Sestina Estratta  " & Inizio,1,2,4
fpre = fpre - 1
''''''''''''''''''''''''''1 colonna
         ReDim av1(50)
         Call SplitByChar(Vert1,".",av1)
         last = UBound(av1)-1
         punti1 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti1 = punti1 + 1
         Next
'''''''''''''''''''''''''2 colonna
         ReDim av1(50)
         Call SplitByChar(Vert2,".",av1)
         last = UBound(av1)-1
         punti2 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti2 = punti2 + 1
         Next
'''''''''''''''''''''''3 colonna
         ReDim av1(50)
         Call SplitByChar(Vert3,".",av1)
         last = UBound(av1)-1
         punti3 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti3 = punti3 + 1
         Next
''''''''''''''''''''''''''4 colonna
         ReDim av1(50)
         Call SplitByChar(Vert4,".",av1)
         last = UBound(av1)-1
         punti4 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti4 = punti4 + 1
         Next
''''''''''''''''''''''''''5 colonna
         ReDim av1(50)
         Call SplitByChar(Vert5,".",av1)
         last = UBound(av1)-1
         punti5 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti5 = punti5 + 1
         Next
''''''''''''''''''''''''6 colonna
         ReDim av1(50)
         Call SplitByChar(Vert6,".",av1)
         last = UBound(av1)-1
         punti6 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti6 = punti6 + 1
         Next
'''''''''''''''''''''''

Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2
Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1
Scrivi Fine & " Punti   " & punti1 & "  Vert.1  :  " & Vert1,1
Scrivi Fine & " Punti   " & punti2 & "  Vert.2  :  " & Vert2,1
Scrivi Fine & " Punti   " & punti3 & "  Vert.3  :  " & Vert3,1
Scrivi Fine & " Punti   " & punti4 & "  Vert.4  :  " & Vert4,1
Scrivi Fine & " Punti   " & punti5 & "  Vert.5  :  " & Vert5,1
Scrivi Fine & " Punti   " & punti6 & "  Vert.6  :  " & Vert6,1
Scrivi "-------------------------------------------------------------------------------------"
Scrivi

Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End Sub

Ho finito i pollici.
LAVORO MONUMENTALE

Grazie mille!!!!
 
Top
view post Posted on 20/2/2024, 08:54     +1   -1

Esperto

Group:
Member
Posts:
1,395
Reputation:
+387

Status:


questo è il sintetico con i punti totali sulle 6 col.verticali e le percentuali come si distribuiscono

TabelloneNuovoSe-4SinteticoPuntiColonne

Immagine%202024-02-20%20085326


CODICE
Option Explicit
Sub Main
  Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
  Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu,i1,i2,t1,t2
  Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b,punti1,punti2,punti3,punti4,punti5,punti6,h
  Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90),punteggio(7,7)
  Dim p1,p2,p3,p4,p5,p6
  k = 1
  f = EstrazioniArchivioSE
  fpre = InputBox("Estrazione n.",,f)
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  For t1 = 1 To 6
  For t2 = 1 To 6
  punteggio(t1,t2) = 0
  Next
  Next
 
  '''loop dell'archivio estrazioni superenalotto
  For b = 1 To f
     Fine = fpre - 1
     Messaggio(fpre & " / " & Fine)
     fin1 = Fine - 89
     CICLOAMBIVERGINI = 380
     Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""
     ReDim aNum(90),stella(90),an(90),en(1)
     For k = 1 To Fine
        ''' calcola RitardoCombinazione
        For n = 1 To 90
           aNum(n) = aNum(n) + 1
           stella(n) = stella(n) + 1
        Next
        aNum(EstrattoSE(k,1)) = 0
        aNum(EstrattoSE(k,2)) = 0
        aNum(EstrattoSE(k,3)) = 0
        aNum(EstrattoSE(k,4)) = 0
        aNum(EstrattoSE(k,5)) = 0
        aNum(EstrattoSE(k,6)) = 0
        stella(EstrattoSE(k,8)) = 0
        '''''''''''''''''
        If k >= fin1 Then
           fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
           fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
           fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
           fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
           fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
           fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
        End If
        '''''''''''''''''
     Next
     ''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
     For x = 0 To 200
        riga = ""
        ReDim nun(6)
        For y = 1 To 90
           If x = aNum(y) Then
              riga = riga & Format2(y) & " "
              ctnpr = ctnpr + 1
              po = PosizioneSE(Fine - x,y)
              nun(po) = Format2(y)
           End If
        Next
        If x < 10 Then
           rit = "00" & x
        End If
        If x > 9 And x < 100 Then
           rit = "0" & x
        End If
        If x > 99 Then
           rit = x
        End If
        ReDim Orig(8)
        Orig(1) = Format2(EstrattoSE(Fine - x,1))
        Orig(2) = Format2(EstrattoSE(Fine - x,2))
        Orig(3) = Format2(EstrattoSE(Fine - x,3))
        Orig(4) = Format2(EstrattoSE(Fine - x,4))
        Orig(5) = Format2(EstrattoSE(Fine - x,5))
        Orig(6) = Format2(EstrattoSE(Fine - x,6))
        Orig(8) = Format2(EstrattoSE(Fine - x,8))
        Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
        riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
        '   '''elenco ritardi
        '   Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
        '   xqt = UBound(aRetRitardi)
        '   xq = xqt - 11 : rita = ""
        '   For xq = xq + 1 To xqt - 1
        '      rita = rita & Format2(aRetRitardi(xq)) & "."
        '   Next
        teo =((14/15)^rit)*6
        teo90 =((14/15)^rit)*90
        trenta = ""
        For y = 1 To 90
           If Int(aNum(y)) >= 31 Then
              trenta = trenta & Format2(y) & "."
           End If
        Next
        If riga <> "" Then
           '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
           Linea = ""
           For w1 = 1 To 6
              vv = 0
              For w2 = 1 To 6
                 If nun(w2) = Orig(w1) Then
                    Linea = Linea & Orig(w1) & " "
                    If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
                    If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
                    If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
                    If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
                    If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
                    If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
                    vv = 1
                 End If
              Next
              If vv <> 1 Then Linea = Linea & "-- "
           Next
           ''''accumula estratti usciti verticali nelle 6 posizioni
           rigav(1,Orig(1)) = Orig(1)
           rigav(2,Orig(2)) = Orig(2)
           rigav(3,Orig(3)) = Orig(3)
           rigav(4,Orig(4)) = Orig(4)
           rigav(5,Orig(5)) = Orig(5)
           rigav(6,Orig(6)) = Orig(6)
           ''''
           If(90 - ctnpr) >= teo90 Then
              ReDim av(20),av5(90)
              Call SplitByChar(riga1," ",av)
              last = UBound(av)
              For t = 0 To last - 1
                 If av(t) <> "" Then
                    av5(t + 1) = av(t)
                    q = q + 1
                    an(q) = av(t)
                 End If
              Next
              filtro = filtro & StringaNumeri(av5,".") & "."
           End If
        End If
     Next
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4
     Inizio = ""
     ReDim nr(6)
     For a = 1 To 6
        Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
        nr(a) = Format2(EstrattoSE(fpre,a))
     Next
     Scrivi fpre & " " & DataEstrazioneSE(fpre) & "  Sestina Estratta  " & Inizio,1,2,4
     fpre = fpre - 1
     ''''''''''''''''''''''''''1 colonna
     ReDim av1(50)
     Call SplitByChar(Vert1,".",av1)
     last = UBound(av1) - 1
     punti1 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti1 = punti1 + 1
     Next
     punteggio(1,punti1) = punteggio(1,punti1) + 1
     '''''''''''''''''''''''''2 colonna
     ReDim av1(50)
     Call SplitByChar(Vert2,".",av1)
     last = UBound(av1) - 1
     punti2 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti2 = punti2 + 1
     Next
     punteggio(2,punti2) = punteggio(2,punti2) + 1
     '''''''''''''''''''''''3 colonna
     ReDim av1(50)
     Call SplitByChar(Vert3,".",av1)
     last = UBound(av1) - 1
     punti3 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti3 = punti3 + 1
     Next
     punteggio(3,punti3) = punteggio(3,punti3) + 1
     ''''''''''''''''''''''''''4 colonna
     ReDim av1(50)
     Call SplitByChar(Vert4,".",av1)
     last = UBound(av1) - 1
     punti4 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti4 = punti4 + 1
     Next
     punteggio(4,punti4) = punteggio(4,punti4) + 1
     ''''''''''''''''''''''''''5 colonna
     ReDim av1(50)
     Call SplitByChar(Vert5,".",av1)
     last = UBound(av1) - 1
     punti5 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti5 = punti5 + 1
     Next
     punteggio(5,punti5) = punteggio(5,punti5) + 1
     ''''''''''''''''''''''''6 colonna
     ReDim av1(50)
     Call SplitByChar(Vert6,".",av1)
     last = UBound(av1) - 1
     punti6 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti6 = punti6 + 1
     Next
     punteggio(6,punti6) = punteggio(6,punti6) + 1
     '''''''''''''''''''''''
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2
     Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1
     Scrivi Fine & " Punti   " & punti1 & "  Vert.1  :  " & Vert1,1
     Scrivi Fine & " Punti   " & punti2 & "  Vert.2  :  " & Vert2,1
     Scrivi Fine & " Punti   " & punti3 & "  Vert.3  :  " & Vert3,1
     Scrivi Fine & " Punti   " & punti4 & "  Vert.4  :  " & Vert4,1
     Scrivi Fine & " Punti   " & punti5 & "  Vert.5  :  " & Vert5,1
     Scrivi Fine & " Punti   " & punti6 & "  Vert.6  :  " & Vert6,1
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi
     If fpre = 50 Then Exit For
  Next
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '''riepilogo percentuali punteggi delle 6 colonne verticale
  Scrivi "Totale Estrazioni esaminate  " & f,1,2,4
  Scrivi "Riepilogo Percentuali punteggi delle 6 colonne verticali",1
  Scrivi "Col.Vert.  -01-   -02-   -03-   -04-   -05-   -06-"
  For i2 = 2 To 6
  Scrivi i2 & ")  Punti  " & FormattaStringa(punteggio(1,i2),"0000") & "   " & FormattaStringa(punteggio(2,i2),"0000") & "   " & FormattaStringa(punteggio(3,i2),"0000") & "   " & FormattaStringa(punteggio(4,i2),"0000") & "   " & FormattaStringa(punteggio(5,i2),"0000") & "   " & FormattaStringa(punteggio(6,i2),"0000")
  Next
  Scrivi
  Scrivi "Col.Vert.  - % -   - % -   - % -   - % -   - % -   - % -"

  For i2 = 2 To 6
  p1 = Round(punteggio(1,i2) / f,2)
  p2 = Round(punteggio(2,i2) / f,2)
  p3 = Round(punteggio(3,i2) / f,2)
  p4 = Round(punteggio(4,i2) / f,2)
  p5 = Round(punteggio(5,i2) / f,2)
  p6 = Round(punteggio(6,i2) / f,2)  
  Scrivi i2 & ")  Punti   " & Round(p1,2) & "    " & Round(p2,2) & "    " & Round(p3,2) & "    " & Round(p4,2) & "    " & Round(p5,2) & "    " & Round(p6,2)
  Next



End Sub
 
Top
view post Posted on 20/2/2024, 09:45     +1   -1

Adolescente

Group:
Member
Posts:
97
Reputation:
+1

Status:


Io invece sto ricopiando a manina tutte le stringhe...ci vorrà un bel po

PS nessuna news invece per le estrazioni 2009-2014?
 
Top
view post Posted on 20/2/2024, 10:15     +1   -1

Adolescente

Group:
Member
Posts:
67
Reputation:
+4

Status:


Ciao a tutti, che dire, Beppignello complimenti lavoro eccezionale ,per me impensabile. Mouse-66 tu come pensi di utilizzare una tale mole di dati in maniera pratica, mi spiego meglio ,sempre se vorrai rispondere, il tuo elaborato sui 90 numeri oggi quante colonne sviluppa e che percentuali di successo ottieni intendo 1 categoria. Ho una idea strana che mi gira per la testa già da tempo ma è proprio strana e poi ho alcune ritrosie... magari si rivela un "fuorigiri"
 
Top
view post Posted on 20/2/2024, 10:42     +1   -1

Adolescente

Group:
Member
Posts:
97
Reputation:
+1

Status:


Al momento vorrei sfruttare entrambe le statistiche, tagliando le percentuali più basse. II mio excel mi fornisce le due "strisce" di 6 colonne coi numeri in verticale. Appena chiudo con precisione le percentuali faccio un'elaborazione sui 90 e ti dico.
Per fare un esperimento grossolano ora lancio brutalmente uno 0,1,2,3 sulle colonne filtro per l'estrazione di stasera e ti dico quante colonne otteniamo.
Mi manca purtroppo la possibilità di filtrare anche le statistiche sulle stringhe dei risultati



CITAZIONE (Beppignello @ 20/2/2024, 08:54) 
questo è il sintetico con i punti totali sulle 6 col.verticali e le percentuali come si distribuiscono

TabelloneNuovoSe-4SinteticoPuntiColonne

Immagine%202024-02-20%20085326


CODICE
Option Explicit
Sub Main
  Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
  Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu,i1,i2,t1,t2
  Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b,punti1,punti2,punti3,punti4,punti5,punti6,h
  Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90),punteggio(7,7)
  Dim p1,p2,p3,p4,p5,p6
  k = 1
  f = EstrazioniArchivioSE
  fpre = InputBox("Estrazione n.",,f)
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  For t1 = 1 To 6
  For t2 = 1 To 6
  punteggio(t1,t2) = 0
  Next
  Next
 
  '''loop dell'archivio estrazioni superenalotto
  For b = 1 To f
     Fine = fpre - 1
     Messaggio(fpre & " / " & Fine)
     fin1 = Fine - 89
     CICLOAMBIVERGINI = 380
     Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""
     ReDim aNum(90),stella(90),an(90),en(1)
     For k = 1 To Fine
        ''' calcola RitardoCombinazione
        For n = 1 To 90
           aNum(n) = aNum(n) + 1
           stella(n) = stella(n) + 1
        Next
        aNum(EstrattoSE(k,1)) = 0
        aNum(EstrattoSE(k,2)) = 0
        aNum(EstrattoSE(k,3)) = 0
        aNum(EstrattoSE(k,4)) = 0
        aNum(EstrattoSE(k,5)) = 0
        aNum(EstrattoSE(k,6)) = 0
        stella(EstrattoSE(k,8)) = 0
        '''''''''''''''''
        If k >= fin1 Then
           fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
           fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
           fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
           fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
           fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
           fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
        End If
        '''''''''''''''''
     Next
     ''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
     For x = 0 To 200
        riga = ""
        ReDim nun(6)
        For y = 1 To 90
           If x = aNum(y) Then
              riga = riga & Format2(y) & " "
              ctnpr = ctnpr + 1
              po = PosizioneSE(Fine - x,y)
              nun(po) = Format2(y)
           End If
        Next
        If x < 10 Then
           rit = "00" & x
        End If
        If x > 9 And x < 100 Then
           rit = "0" & x
        End If
        If x > 99 Then
           rit = x
        End If
        ReDim Orig(8)
        Orig(1) = Format2(EstrattoSE(Fine - x,1))
        Orig(2) = Format2(EstrattoSE(Fine - x,2))
        Orig(3) = Format2(EstrattoSE(Fine - x,3))
        Orig(4) = Format2(EstrattoSE(Fine - x,4))
        Orig(5) = Format2(EstrattoSE(Fine - x,5))
        Orig(6) = Format2(EstrattoSE(Fine - x,6))
        Orig(8) = Format2(EstrattoSE(Fine - x,8))
        Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
        riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
        '   '''elenco ritardi
        '   Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
        '   xqt = UBound(aRetRitardi)
        '   xq = xqt - 11 : rita = ""
        '   For xq = xq + 1 To xqt - 1
        '      rita = rita & Format2(aRetRitardi(xq)) & "."
        '   Next
        teo =((14/15)^rit)*6
        teo90 =((14/15)^rit)*90
        trenta = ""
        For y = 1 To 90
           If Int(aNum(y)) >= 31 Then
              trenta = trenta & Format2(y) & "."
           End If
        Next
        If riga <> "" Then
           '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
           Linea = ""
           For w1 = 1 To 6
              vv = 0
              For w2 = 1 To 6
                 If nun(w2) = Orig(w1) Then
                    Linea = Linea & Orig(w1) & " "
                    If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
                    If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
                    If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
                    If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
                    If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
                    If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
                    vv = 1
                 End If
              Next
              If vv <> 1 Then Linea = Linea & "-- "
           Next
           ''''accumula estratti usciti verticali nelle 6 posizioni
           rigav(1,Orig(1)) = Orig(1)
           rigav(2,Orig(2)) = Orig(2)
           rigav(3,Orig(3)) = Orig(3)
           rigav(4,Orig(4)) = Orig(4)
           rigav(5,Orig(5)) = Orig(5)
           rigav(6,Orig(6)) = Orig(6)
           ''''
           If(90 - ctnpr) >= teo90 Then
              ReDim av(20),av5(90)
              Call SplitByChar(riga1," ",av)
              last = UBound(av)
              For t = 0 To last - 1
                 If av(t) <> "" Then
                    av5(t + 1) = av(t)
                    q = q + 1
                    an(q) = av(t)
                 End If
              Next
              filtro = filtro & StringaNumeri(av5,".") & "."
           End If
        End If
     Next
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4
     Inizio = ""
     ReDim nr(6)
     For a = 1 To 6
        Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
        nr(a) = Format2(EstrattoSE(fpre,a))
     Next
     Scrivi fpre & " " & DataEstrazioneSE(fpre) & "  Sestina Estratta  " & Inizio,1,2,4
     fpre = fpre - 1
     ''''''''''''''''''''''''''1 colonna
     ReDim av1(50)
     Call SplitByChar(Vert1,".",av1)
     last = UBound(av1) - 1
     punti1 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti1 = punti1 + 1
     Next
     punteggio(1,punti1) = punteggio(1,punti1) + 1
     '''''''''''''''''''''''''2 colonna
     ReDim av1(50)
     Call SplitByChar(Vert2,".",av1)
     last = UBound(av1) - 1
     punti2 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti2 = punti2 + 1
     Next
     punteggio(2,punti2) = punteggio(2,punti2) + 1
     '''''''''''''''''''''''3 colonna
     ReDim av1(50)
     Call SplitByChar(Vert3,".",av1)
     last = UBound(av1) - 1
     punti3 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti3 = punti3 + 1
     Next
     punteggio(3,punti3) = punteggio(3,punti3) + 1
     ''''''''''''''''''''''''''4 colonna
     ReDim av1(50)
     Call SplitByChar(Vert4,".",av1)
     last = UBound(av1) - 1
     punti4 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti4 = punti4 + 1
     Next
     punteggio(4,punti4) = punteggio(4,punti4) + 1
     ''''''''''''''''''''''''''5 colonna
     ReDim av1(50)
     Call SplitByChar(Vert5,".",av1)
     last = UBound(av1) - 1
     punti5 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti5 = punti5 + 1
     Next
     punteggio(5,punti5) = punteggio(5,punti5) + 1
     ''''''''''''''''''''''''6 colonna
     ReDim av1(50)
     Call SplitByChar(Vert6,".",av1)
     last = UBound(av1) - 1
     punti6 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti6 = punti6 + 1
     Next
     punteggio(6,punti6) = punteggio(6,punti6) + 1
     '''''''''''''''''''''''
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2
     Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1
     Scrivi Fine & " Punti   " & punti1 & "  Vert.1  :  " & Vert1,1
     Scrivi Fine & " Punti   " & punti2 & "  Vert.2  :  " & Vert2,1
     Scrivi Fine & " Punti   " & punti3 & "  Vert.3  :  " & Vert3,1
     Scrivi Fine & " Punti   " & punti4 & "  Vert.4  :  " & Vert4,1
     Scrivi Fine & " Punti   " & punti5 & "  Vert.5  :  " & Vert5,1
     Scrivi Fine & " Punti   " & punti6 & "  Vert.6  :  " & Vert6,1
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi
     If fpre = 50 Then Exit For
  Next
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '''riepilogo percentuali punteggi delle 6 colonne verticale
  Scrivi "Totale Estrazioni esaminate  " & f,1,2,4
  Scrivi "Riepilogo Percentuali punteggi delle 6 colonne verticali",1
  Scrivi "Col.Vert.  -01-   -02-   -03-   -04-   -05-   -06-"
  For i2 = 2 To 6
  Scrivi i2 & ")  Punti  " & FormattaStringa(punteggio(1,i2),"0000") & "   " & FormattaStringa(punteggio(2,i2),"0000") & "   " & FormattaStringa(punteggio(3,i2),"0000") & "   " & FormattaStringa(punteggio(4,i2),"0000") & "   " & FormattaStringa(punteggio(5,i2),"0000") & "   " & FormattaStringa(punteggio(6,i2),"0000")
  Next
  Scrivi
  Scrivi "Col.Vert.  - % -   - % -   - % -   - % -   - % -   - % -"

  For i2 = 2 To 6
  p1 = Round(punteggio(1,i2) / f,2)
  p2 = Round(punteggio(2,i2) / f,2)
  p3 = Round(punteggio(3,i2) / f,2)
  p4 = Round(punteggio(4,i2) / f,2)
  p5 = Round(punteggio(5,i2) / f,2)
  p6 = Round(punteggio(6,i2) / f,2)  
  Scrivi i2 & ")  Punti   " & Round(p1,2) & "    " & Round(p2,2) & "    " & Round(p3,2) & "    " & Round(p4,2) & "    " & Round(p5,2) & "    " & Round(p6,2)
  Next



End Sub

Ti chiedo, e me ne scuso, se è possibile avere dal programma un listato dei punteggi ottenuti, al momento ho i primi 100 a partire dall'ultima estrazione di sabato
0 2 1 3 0 0
1 0 1 1 2 1
0 3 0 1 2 0
0 3 1 1 1 0
1 1 1 2 0 1
1 1 1 1 0 2
1 1 0 1 2 1
1 0 1 2 1 1
2 2 1 0 1 0
0 0 0 1 2 3
0 0 2 2 2 0
0 1 1 1 1 2
1 1 1 1 1 1
2 1 1 0 2 0
1 1 1 1 0 2
0 2 0 2 1 1
1 2 1 0 1 1
1 1 1 1 2 0
3 1 1 0 1 0
1 0 1 1 2 1
0 2 0 2 0 2
2 0 0 2 1 1
1 2 1 1 0 1
1 0 2 2 0 1
1 1 1 1 1 1
0 2 3 0 0 1
2 0 2 1 1 0
1 0 1 1 2 1
2 1 0 0 1 2
3 2 0 0 0 1
1 0 0 1 3 1
0 1 1 2 0 2
1 2 1 2 0 0
1 1 2 0 1 1
1 1 0 1 2 1
0 1 3 0 0 2
2 1 1 1 0 1
2 1 1 1 0 1
2 0 2 0 0 2
1 1 1 0 2 1
1 1 2 0 2 0
0 1 0 1 3 1
1 1 2 2 0 0
0 3 1 1 0 1
1 0 2 0 2 1
1 0 0 1 1 3
1 0 1 2 0 2
0 1 2 1 2 0
1 1 0 3 0 1
1 1 3 0 1 0
1 0 3 1 0 1
0 1 0 1 3 1
0 2 2 1 1 0
2 1 0 1 1 1
1 2 1 0 1 1
1 1 1 2 0 1
0 1 0 0 1 4
0 1 1 0 2 2
3 1 0 0 1 1
1 1 1 2 0 1
1 0 1 2 1 1
0 2 1 1 2 0
0 2 0 0 2 2
1 2 0 1 1 1
1 1 0 1 1 2
1 1 2 1 1 0
2 2 0 0 1 1
1 3 1 1 0 0
1 0 0 2 1 2
2 1 1 0 1 1
1 2 2 0 1 0
0 1 1 1 1 2
3 0 1 1 1 0
0 1 0 2 2 1
2 1 1 0 0 2
2 1 0 1 2 0
1 1 0 2 1 1
1 1 1 1 0 2
1 2 1 0 2 0
0 0 1 3 2 0
1 1 0 0 1 3
0 0 0 3 2 1
2 0 1 1 1 1
2 0 3 1 0 0
2 2 0 0 1 1
0 1 1 0 2 2
1 1 0 1 1 2
0 2 2 1 0 1
2 1 1 1 1 0
1 1 0 2 2 0
0 0 2 2 1 1
0 1 0 0 2 3
2 0 2 1 0 1
2 2 0 1 1 0
0 2 2 0 2 0
2 0 2 0 2 0
0 1 2 2 1 0
2 0 2 0 1 1
0 1 2 1 1 1
1 1 0 2 1 1
 
Top
view post Posted on 20/2/2024, 11:25     +1   -1

Adolescente

Group:
Member
Posts:
97
Reputation:
+1

Status:


orion13
Questa è la riduzione utilizzando le colonne verticali sia progressive che in ordine di estrazione per questo concorso. Non ho impostato percentuali di presenza ne consecutività che ridurrebbero ancora un pochino le colonne

Attached Image: Screenshot 2024-02-20 112225

Screenshot 2024-02-20 112225

 
Top
view post Posted on 20/2/2024, 12:16     +1   -1

Esperto

Group:
Member
Posts:
1,395
Reputation:
+387

Status:


nestr e punteggi

CODICE
1581 punti  1 1 1 2 0 1
1580 punti  1 1 1 1 0 2
1579 punti  1 1 0 1 2 1
1578 punti  1 0 1 2 1 1
1577 punti  2 2 1 0 1 0
1576 punti  0 0 0 1 2 3
1575 punti  0 0 2 2 2 0
1574 punti  0 1 1 1 1 2
1573 punti  1 1 1 1 1 1
1572 punti  2 1 1 0 2 0
1571 punti  1 1 1 1 0 2
1570 punti  0 2 0 2 1 1
1569 punti  1 2 1 0 1 1
1568 punti  1 1 1 1 2 0
1567 punti  3 1 1 0 1 0
1566 punti  1 0 1 1 2 1
1565 punti  0 2 0 2 0 2
1564 punti  2 0 0 2 1 1
1563 punti  1 2 1 1 0 1
1562 punti  1 0 2 2 0 1
1561 punti  1 1 1 1 1 1
1560 punti  0 2 3 0 0 1
1559 punti  2 0 2 1 1 0
1558 punti  1 0 1 1 2 1
1557 punti  2 1 0 0 1 2
1556 punti  3 2 0 0 0 1
1555 punti  1 0 0 1 3 1
1554 punti  0 1 1 2 0 2
1553 punti  1 2 1 2 0 0
1552 punti  1 1 2 0 1 1
1551 punti  1 1 0 1 2 1
1550 punti  0 1 3 0 0 2
1549 punti  2 1 1 1 0 1
1548 punti  2 1 1 1 0 1
1547 punti  2 0 2 0 0 2
1546 punti  1 1 1 0 2 1
1545 punti  1 1 2 0 2 0
1544 punti  0 1 0 1 3 1
1543 punti  1 1 2 2 0 0
1542 punti  0 3 1 1 0 1
1541 punti  1 0 2 0 2 1
1540 punti  1 0 0 1 1 3
1539 punti  1 0 1 2 0 2
1538 punti  0 1 2 1 2 0
1537 punti  1 1 0 3 0 1
1536 punti  1 1 3 0 1 0
1535 punti  1 0 3 1 0 1
1534 punti  0 1 0 1 3 1
1533 punti  0 2 2 1 1 0
1532 punti  2 1 0 1 1 1
1531 punti  1 2 1 0 1 1
1530 punti  1 1 1 2 0 1
1529 punti  0 1 0 0 1 4
1528 punti  0 1 1 0 2 2
1527 punti  3 1 0 0 1 1
1526 punti  1 1 1 2 0 1
1525 punti  1 0 1 2 1 1
1524 punti  0 2 1 1 2 0
1523 punti  0 2 0 0 2 2
1522 punti  1 2 0 1 1 1
1521 punti  1 1 0 1 1 2
1520 punti  1 1 2 1 1 0
1519 punti  2 2 0 0 1 1
1518 punti  1 3 1 1 0 0
1517 punti  1 0 0 2 1 2
1516 punti  2 1 1 0 1 1
1515 punti  1 2 2 0 1 0
1514 punti  0 1 1 1 1 2
1513 punti  3 0 1 1 1 0
1512 punti  0 1 0 2 2 1
1511 punti  2 1 1 0 0 2
1510 punti  2 1 0 1 2 0
1509 punti  1 1 0 2 1 1
1508 punti  1 1 1 1 0 2
1507 punti  1 2 1 0 2 0
1506 punti  0 0 1 3 2 0
1505 punti  1 1 0 0 1 3
1504 punti  0 0 0 3 2 1
1503 punti  2 0 1 1 1 1
1502 punti  2 0 3 1 0 0
1501 punti  2 2 0 0 1 1
1500 punti  0 1 1 0 2 2
1499 punti  1 1 0 1 1 2
1498 punti  0 2 2 1 0 1
1497 punti  2 1 1 1 1 0
1496 punti  1 1 0 2 2 0
1495 punti  0 0 2 2 1 1
1494 punti  0 1 0 0 2 3
1493 punti  2 0 2 1 0 1
1492 punti  2 2 0 1 1 0
1491 punti  0 2 2 0 2 0
1490 punti  2 0 2 0 2 0
1489 punti  0 1 2 2 1 0
1488 punti  2 0 2 0 1 1
1487 punti  0 1 2 1 1 1
1486 punti  1 1 0 2 1 1
1485 punti  1 0 1 2 1 1
1484 punti  3 0 0 1 1 1
1483 punti  2 1 2 1 0 0
1482 punti  0 1 1 1 0 3
1481 punti  0 0 2 1 1 2
1480 punti  1 3 0 0 2 0
1479 punti  1 0 1 3 0 1
1478 punti  0 1 2 1 0 2
1477 punti  1 1 0 3 1 0
1476 punti  0 2 1 0 2 1
1475 punti  2 1 1 0 0 2
1474 punti  2 1 2 0 1 0
1473 punti  2 1 1 0 1 1
1472 punti  0 1 0 2 2 1
1471 punti  0 0 1 4 0 1
1470 punti  1 0 1 0 3 1
1469 punti  0 1 0 2 2 1
1468 punti  3 0 2 1 0 0
1467 punti  0 1 1 1 1 2
1466 punti  0 3 1 2 0 0
1465 punti  1 2 2 0 1 0
1464 punti  1 2 0 1 2 0
1463 punti  2 1 1 1 0 1
1462 punti  0 1 0 1 2 2
1461 punti  1 1 0 1 0 3
1460 punti  0 1 2 1 0 2
1459 punti  1 1 0 1 2 1
1458 punti  1 1 2 0 1 1
1457 punti  1 1 0 1 1 2
1456 punti  2 2 0 1 0 1
1455 punti  0 1 0 2 2 1
1454 punti  0 0 1 0 2 3
1453 punti  2 0 0 3 1 0
1452 punti  2 1 1 0 0 2
1451 punti  1 1 1 0 2 1
1450 punti  1 0 3 0 1 1
1449 punti  2 0 1 1 1 1
1448 punti  1 1 0 0 2 2
1447 punti  1 0 0 2 1 2
1446 punti  1 3 1 1 0 0
1445 punti  2 2 0 2 0 0
1444 punti  1 0 1 2 2 0
1443 punti  2 1 0 1 2 0
1442 punti  2 0 3 1 0 0
1441 punti  0 1 1 0 1 3
1440 punti  0 0 1 2 1 2
1439 punti  0 1 3 1 0 1
1438 punti  1 3 1 0 0 1
1437 punti  1 1 1 0 2 1
1436 punti  5 0 0 1 0 0
1435 punti  1 0 4 0 1 0
1434 punti  1 2 2 0 0 1
1433 punti  1 2 0 2 1 0
1432 punti  1 0 2 0 2 1
1431 punti  0 1 3 2 0 0
1430 punti  0 1 0 3 0 2
1429 punti  0 1 2 1 1 1
1428 punti  1 2 0 1 1 1
1427 punti  0 0 0 1 3 2
1426 punti  0 0 0 2 2 2
1425 punti  1 1 2 1 1 0
1424 punti  2 0 2 1 1 0
1423 punti  2 3 0 0 0 1
1422 punti  2 0 1 1 2 0
1421 punti  1 1 0 1 0 3
1420 punti  0 1 1 3 1 0
1419 punti  1 2 1 0 1 1
1418 punti  0 0 2 2 0 2
1417 punti  0 2 1 0 1 2
1416 punti  3 1 0 0 2 0
1415 punti  1 2 0 1 1 1
1414 punti  1 2 0 1 2 0
1413 punti  1 3 1 1 0 0
1412 punti  1 1 1 1 0 2
1411 punti  2 0 2 0 1 1
1410 punti  2 2 1 0 0 1
1409 punti  0 0 1 2 3 0
1408 punti  1 1 0 2 2 0
1407 punti  1 2 1 2 0 0
1406 punti  0 0 1 2 3 0
1405 punti  1 1 1 1 1 1
1404 punti  0 1 3 0 1 1
1403 punti  2 0 2 0 0 2
1402 punti  2 1 1 0 0 2
1401 punti  0 1 0 1 4 0
1400 punti  1 2 0 3 0 0
1399 punti  0 1 1 1 2 1
1398 punti  0 0 2 1 0 3
1397 punti  2 3 0 0 1 0
1396 punti  1 2 1 1 1 0
1395 punti  1 0 4 0 1 0
1394 punti  0 1 1 1 2 1
1393 punti  1 1 1 1 0 2
1392 punti  2 1 2 1 0 0
1391 punti  0 1 0 2 2 1
1390 punti  1 2 0 2 0 1
1389 punti  1 0 1 2 0 2
1388 punti  2 2 1 0 0 1
1387 punti  0 1 0 2 1 2
1386 punti  1 0 0 1 1 3
1385 punti  0 1 0 2 1 2
1384 punti  1 0 0 2 1 2
1383 punti  2 1 1 1 1 0
1382 punti  2 0 1 0 1 2
1381 punti  0 1 0 0 3 2
1380 punti  1 2 1 0 2 0
1379 punti  1 0 2 2 0 1
1378 punti  1 0 3 1 1 0
1377 punti  1 2 2 0 0 1
1376 punti  1 0 1 1 2 1
1375 punti  4 1 1 0 0 0
1374 punti  1 1 1 1 1 1
1373 punti  1 3 1 1 0 0
1372 punti  0 0 1 4 0 1
1371 punti  1 1 1 1 1 1
1370 punti  1 0 0 3 0 2
1369 punti  1 0 1 1 1 2
1368 punti  2 3 0 0 0 1
1367 punti  0 3 2 1 0 0
1366 punti  2 0 1 0 2 1
1365 punti  0 1 1 0 2 2
1364 punti  0 2 0 1 2 1
1363 punti  1 2 1 0 1 1
1362 punti  0 0 2 1 2 1
1361 punti  1 1 0 2 1 1
1360 punti  1 2 1 0 1 1
1359 punti  0 1 0 1 2 2
1358 punti  2 0 1 2 0 1
1357 punti  1 1 0 1 1 2
1356 punti  1 0 2 1 1 1
1355 punti  0 2 3 1 0 0
1354 punti  1 2 1 1 0 1
1353 punti  1 0 3 1 1 0
1352 punti  2 2 0 1 1 0
1351 punti  0 2 3 0 1 0
1350 punti  0 2 1 1 2 0
1349 punti  1 2 1 1 1 0
1348 punti  0 1 2 2 1 0
1347 punti  3 2 0 0 0 1
1346 punti  1 2 0 1 1 1
1345 punti  2 0 0 3 0 1
1344 punti  1 0 2 1 0 2
1343 punti  0 1 1 0 2 2
1342 punti  2 1 1 0 0 2
1341 punti  3 0 1 0 1 1
1340 punti  1 0 1 1 2 1
1339 punti  1 1 2 1 1 0
1338 punti  1 0 1 1 0 3
1337 punti  1 2 2 1 0 0
1336 punti  0 0 1 0 1 4
1335 punti  0 1 1 1 2 1
1334 punti  2 0 0 2 1 1
1333 punti  2 0 2 1 1 0
1332 punti  0 0 2 1 1 2
1331 punti  1 0 2 2 0 1
1330 punti  3 0 0 0 1 2
1329 punti  0 3 1 0 1 1
1328 punti  1 1 2 2 0 0
1327 punti  0 3 0 1 1 1
1326 punti  2 1 0 0 2 1
1325 punti  1 3 0 1 0 1
1324 punti  1 1 1 1 1 1
1323 punti  0 1 1 1 2 1
1322 punti  0 0 1 3 1 1
1321 punti  1 1 0 1 1 2
1320 punti  1 1 2 0 2 0
1319 punti  1 2 1 2 0 0
1318 punti  2 2 0 0 2 0
1317 punti  0 0 1 1 4 0
1316 punti  1 0 3 0 0 2
1315 punti  1 2 0 0 2 1
1314 punti  1 2 1 0 1 1
1313 punti  0 0 4 0 0 2
1312 punti  1 1 1 1 1 1
1311 punti  1 1 0 3 1 0
1310 punti  1 2 1 0 0 2
1309 punti  3 0 1 0 1 1
1308 punti  1 0 2 2 1 0
1307 punti  2 0 1 1 1 1
1306 punti  0 0 1 4 1 0
1305 punti  0 1 0 2 2 1
1304 punti  1 1 2 1 0 1
1303 punti  1 2 0 1 1 1
1302 punti  0 1 1 0 1 3
1301 punti  0 2 1 1 0 2
1300 punti  1 3 0 1 1 0
1299 punti  1 1 1 0 1 2
1298 punti  1 0 0 0 2 3
1297 punti  1 0 0 2 1 2
1296 punti  1 0 2 1 1 1
1295 punti  1 0 1 1 1 2
1294 punti  0 1 0 3 1 1
1293 punti  1 1 1 0 3 0
1292 punti  2 1 0 0 2 1
1291 punti  2 0 0 2 1 1
1290 punti  1 2 0 2 0 1
1289 punti  1 2 0 1 1 1
1288 punti  3 0 1 0 0 2
1287 punti  2 2 0 0 1 1
1286 punti  0 2 1 1 1 1
1285 punti  0 1 2 0 0 3
1284 punti  0 0 2 0 1 3
1283 punti  2 1 0 1 0 2
1282 punti  2 2 1 0 1 0
1281 punti  0 3 0 2 1 0
1280 punti  0 2 1 1 2 0
1279 punti  1 1 0 3 0 1
1278 punti  2 0 1 2 0 1
1277 punti  0 1 2 1 0 2
1276 punti  1 0 1 1 1 2
1275 punti  1 0 2 2 1 0
1274 punti  1 2 1 1 0 1
1273 punti  2 1 0 2 0 1
1272 punti  2 0 1 1 2 0
1271 punti  1 1 1 0 3 0
1270 punti  1 0 3 2 0 0
1269 punti  1 2 1 1 1 0
1268 punti  0 0 1 2 1 2
1267 punti  0 1 2 0 2 1
1266 punti  1 2 0 1 2 0
1265 punti  2 0 0 2 1 1
1264 punti  1 0 0 1 3 1
1263 punti  2 1 1 0 2 0
1262 punti  0 0 3 2 1 0
1261 punti  1 1 1 0 1 2
1260 punti  1 1 1 1 1 1
1259 punti  1 0 0 2 1 2
1258 punti  2 0 3 0 1 0
1257 punti  2 1 1 0 1 1
1256 punti  1 0 2 1 2 0
1255 punti  1 2 1 1 1 0
1254 punti  0 1 1 2 0 2
1253 punti  0 2 2 1 1 0
1252 punti  2 0 1 1 1 1
1251 punti  2 0 1 1 1 1
1250 punti  1 1 1 2 1 0
1249 punti  1 0 1 1 1 2
1248 punti  2 2 0 1 0 1
1247 punti  2 1 0 2 1 0
1246 punti  0 0 1 1 1 3
1245 punti  1 3 1 1 0 0
1244 punti  0 2 0 1 2 1
1243 punti  2 3 0 0 1 0
1242 punti  0 0 3 1 1 1
1241 punti  0 2 0 0 2 2
1240 punti  1 0 0 1 2 2
1239 punti  0 2 1 0 1 2
1238 punti  1 1 1 1 0 2
1237 punti  2 0 1 3 0 0
1236 punti  0 1 2 0 0 3
1235 punti  2 1 1 0 1 1
1234 punti  1 2 3 0 0 0
1233 punti  1 0 1 1 1 2
1232 punti  2 0 0 3 1 0
1231 punti  0 2 0 0 2 2
1230 punti  1 1 1 0 2 1
1229 punti  1 2 1 2 0 0
1228 punti  3 0 1 0 0 2
1227 punti  1 1 2 2 0 0
1226 punti  1 0 4 1 0 0
1225 punti  2 2 1 1 0 0
1224 punti  1 1 1 3 0 0
1223 punti  1 1 0 4 0 0
1222 punti  0 0 0 1 3 2
1221 punti  1 2 0 0 2 1
1220 punti  1 2 1 1 1 0
1219 punti  1 1 1 0 2 1
1218 punti  2 1 0 0 2 1
1217 punti  2 1 0 1 1 1
1216 punti  0 1 1 1 3 0
1215 punti  0 0 1 2 0 3
1214 punti  1 1 0 1 1 2
1213 punti  0 0 2 3 1 0
1212 punti  1 2 1 0 0 2
1211 punti  0 2 4 0 0 0
1210 punti  1 2 0 0 2 1
1209 punti  0 1 2 1 2 0
1208 punti  3 0 1 0 2 0
1207 punti  0 0 1 3 2 0
1206 punti  1 3 0 2 0 0
1205 punti  0 1 1 0 3 1
1204 punti  1 0 3 1 0 1
1203 punti  0 3 2 0 1 0
1202 punti  2 1 0 0 2 1
1201 punti  1 1 0 1 1 2
1200 punti  2 2 0 0 1 1
1199 punti  2 1 1 1 1 0
1198 punti  2 1 2 0 0 1
1197 punti  1 1 1 3 0 0
1196 punti  0 1 0 1 3 1
1195 punti  1 1 0 0 2 2
1194 punti  1 2 1 1 0 1
1193 punti  1 0 0 2 0 3
1192 punti  1 0 1 1 2 1
1191 punti  0 1 1 1 2 1
1190 punti  1 1 1 2 0 1
1189 punti  0 1 1 2 0 2
1188 punti  2 1 1 0 0 2
1187 punti  2 1 0 1 2 0
1186 punti  2 1 1 1 1 0
1185 punti  1 1 2 0 2 0
1184 punti  0 1 2 1 0 2
1183 punti  1 1 3 1 0 0
1182 punti  2 1 0 0 2 1
1181 punti  1 1 1 1 0 2
1180 punti  2 0 0 0 2 2
1179 punti  0 0 1 3 2 0
1178 punti  2 1 0 1 1 1
1177 punti  0 0 2 4 0 0
1176 punti  2 1 0 0 2 1
1175 punti  2 1 0 1 1 1
1174 punti  1 2 1 0 1 1
1173 punti  1 1 1 2 0 1
1172 punti  2 0 1 3 0 0
1171 punti  0 2 0 0 3 1
1170 punti  0 0 3 0 1 2
1169 punti  0 0 2 3 1 0
1168 punti  1 1 1 0 1 2
1167 punti  0 0 1 1 1 3
1166 punti  1 1 1 0 2 1
1165 punti  1 0 3 1 0 1
1164 punti  0 3 1 1 1 0
1163 punti  0 1 0 4 0 1
1162 punti  1 0 1 0 2 2
1161 punti  1 0 2 2 0 1
1160 punti  3 1 0 0 1 1
1159 punti  2 1 1 1 0 1
1158 punti  1 2 1 0 0 2
1157 punti  2 1 1 2 0 0
1156 punti  0 1 0 0 5 0
1155 punti  0 0 1 1 1 3
1154 punti  2 1 0 3 0 0
1153 punti  0 3 0 2 1 0
1152 punti  1 0 0 1 2 2
1151 punti  1 1 1 1 2 0
1150 punti  0 1 2 1 1 1
1149 punti  1 1 1 1 2 0
1148 punti  1 1 0 1 1 2
1147 punti  0 1 1 0 1 3
1146 punti  1 1 2 0 0 2
1145 punti  1 2 3 0 0 0
1144 punti  1 0 2 1 1 1
1143 punti  0 1 2 0 2 1
1142 punti  4 0 1 0 0 1
1141 punti  0 2 1 2 1 0
1140 punti  1 1 1 0 2 1
1139 punti  2 2 1 1 0 0
1138 punti  0 2 0 2 2 0
1137 punti  1 0 3 0 1 1
1136 punti  0 0 2 1 1 2
1135 punti  0 2 1 2 1 0
1134 punti  0 0 3 1 1 1
1133 punti  1 0 1 1 1 2
1132 punti  1 2 0 0 2 1
1131 punti  1 3 1 0 1 0
1130 punti  2 2 0 1 0 1
1129 punti  2 1 0 0 1 2
1128 punti  1 0 2 0 3 0
1127 punti  3 1 1 0 0 1
1126 punti  1 1 1 0 0 3
1125 punti  0 1 1 2 2 0
1124 punti  2 1 1 0 1 1
1123 punti  2 0 2 1 1 0
1122 punti  1 0 2 0 1 2
1121 punti  1 3 0 1 0 1
1120 punti  2 0 0 1 0 3
1119 punti  0 0 1 1 2 2
1118 punti  0 0 1 2 3 0
1117 punti  0 1 0 4 0 1
1116 punti  0 2 2 1 1 0
1115 punti  2 1 0 1 2 0
1114 punti  0 2 2 1 0 1
1113 punti  0 1 1 1 1 2
1112 punti  0 4 0 0 1 1
1111 punti  2 1 1 0 0 2
1110 punti  1 0 1 3 1 0
1109 punti  1 0 2 0 1 2
1108 punti  2 2 1 0 0 1
1107 punti  1 0 0 1 2 2
1106 punti  0 1 1 1 2 1
1105 punti  0 2 0 3 1 0
1104 punti  1 1 2 0 1 1
1103 punti  0 2 0 1 1 2
1102 punti  1 0 0 3 2 0
1101 punti  3 1 1 1 0 0
1100 punti  0 2 1 0 0 3
1099 punti  0 2 0 2 0 2
1098 punti  0 0 1 2 2 1
1097 punti  2 0 1 0 2 1
1096 punti  1 3 0 1 1 0
1095 punti  1 1 2 1 0 1
1094 punti  0 1 2 2 0 1
1093 punti  1 0 2 2 1 0
1092 punti  3 1 1 0 0 1
1091 punti  2 0 0 1 2 1
1090 punti  3 0 2 0 0 1
1089 punti  0 0 2 1 1 2
1088 punti  0 2 0 2 1 1
1087 punti  1 2 2 0 0 1
1086 punti  3 0 0 2 0 1
1085 punti  0 1 2 1 1 1
1084 punti  2 1 1 1 1 0
1083 punti  1 0 1 1 1 2
1082 punti  1 1 1 2 1 0
1081 punti  2 2 0 1 1 0
1080 punti  2 2 0 0 1 1
1079 punti  1 1 0 1 2 1
1078 punti  0 1 1 1 2 1
1077 punti  0 2 0 0 3 1
1076 punti  2 0 1 2 1 0
1075 punti  0 2 3 1 0 0
1074 punti  1 2 0 0 1 2
1073 punti  2 1 1 1 0 1
1072 punti  0 2 1 1 1 1
1071 punti  4 0 0 0 2 0
1070 punti  2 1 2 0 1 0
1069 punti  2 0 2 1 0 1
1068 punti  0 2 0 2 1 1
1067 punti  2 0 1 0 2 1
1066 punti  0 2 1 1 2 0
1065 punti  1 0 1 1 1 2
1064 punti  1 2 1 0 0 2
1063 punti  0 4 0 0 0 2
1062 punti  0 1 0 2 2 1
1061 punti  1 1 1 2 0 1
1060 punti  1 1 1 1 2 0
1059 punti  2 1 1 2 0 0
1058 punti  2 2 1 0 1 0
1057 punti  2 0 0 2 0 2
1056 punti  0 2 2 1 0 1
1055 punti  0 2 2 0 1 1
1054 punti  0 0 1 0 4 1
1053 punti  4 0 2 0 0 0
1052 punti  0 1 1 1 0 3
1051 punti  0 1 1 0 3 1
1050 punti  2 0 1 1 0 2
1049 punti  0 0 2 1 1 2
1048 punti  0 0 2 3 0 1
1047 punti  0 2 0 1 0 3
1046 punti  2 1 0 1 2 0
1045 punti  1 2 2 0 0 1
1044 punti  1 2 1 1 1 0
1043 punti  1 1 2 1 1 0
1042 punti  2 0 1 1 0 2
1041 punti  0 1 2 1 2 0
1040 punti  0 1 1 1 1 2
1039 punti  0 1 2 0 3 0
1038 punti  0 0 2 2 0 2
1037 punti  1 0 1 1 1 2
1036 punti  1 0 1 3 0 1
1035 punti  2 1 2 0 0 1
1034 punti  2 0 1 2 1 0
1033 punti  2 1 0 3 0 0
1032 punti  1 1 2 1 1 0
1031 punti  2 0 1 2 0 1
1030 punti  0 2 0 0 2 2
1029 punti  0 0 2 2 2 0
1028 punti  1 0 1 1 2 1
1027 punti  1 0 2 0 3 0
1026 punti  0 0 0 1 1 4
1025 punti  2 0 0 1 1 2
1024 punti  0 2 2 0 0 2
1023 punti  2 1 1 1 1 0
1022 punti  2 2 0 1 1 0
1021 punti  1 2 1 0 2 0
1020 punti  1 2 0 0 3 0
1019 punti  1 0 2 2 1 0
1018 punti  0 2 0 1 2 1
1017 punti  1 0 2 2 1 0
1016 punti  2 1 0 0 1 2
1015 punti  0 2 1 1 1 1
1014 punti  2 0 0 1 0 3
1013 punti  1 2 2 0 0 1
1012 punti  1 0 2 1 1 1
1011 punti  0 0 1 3 1 1
1010 punti  0 1 1 0 2 2
1009 punti  0 0 3 1 0 2
1008 punti  0 1 1 2 1 1
1007 punti  2 1 1 0 2 0
1006 punti  1 0 0 3 1 1
1005 punti  1 1 2 0 1 1
1004 punti  2 1 1 0 1 1
1003 punti  0 2 1 0 3 0
1002 punti  1 2 0 0 3 0
1001 punti  0 0 2 2 1 1
1000 punti  2 3 0 1 0 0
999 punti  0 2 0 1 1 2
998 punti  4 0 0 1 0 1
997 punti  0 1 3 1 1 0
996 punti  0 2 0 1 1 2
995 punti  0 1 2 0 1 2
994 punti  1 0 1 2 1 1
993 punti  2 1 1 1 1 0
992 punti  0 2 0 2 1 1
991 punti  2 0 0 1 2 1
990 punti  0 1 2 2 0 1
989 punti  0 2 0 2 0 2
988 punti  2 1 0 1 0 2
987 punti  1 2 0 1 1 1
986 punti  3 0 1 0 1 1
985 punti  1 0 1 0 2 2
984 punti  2 0 0 3 0 1
983 punti  1 2 1 1 1 0
982 punti  0 1 2 1 1 1
981 punti  3 0 1 1 1 0
980 punti  0 4 1 1 0 0
979 punti  1 1 1 0 1 2
978 punti  1 2 0 1 2 0
977 punti  4 1 1 0 0 0
976 punti  1 0 1 0 1 3
975 punti  0 1 1 2 2 0
974 punti  1 1 2 0 1 1
973 punti  1 0 1 1 2 1
972 punti  1 0 2 1 1 1
971 punti  0 1 1 3 1 0
970 punti  0 2 0 1 1 2
969 punti  0 1 1 2 1 1
968 punti  1 0 1 2 1 1
967 punti  0 2 0 2 1 1
966 punti  2 1 1 0 0 2
965 punti  0 0 0 1 3 2
964 punti  3 3 0 0 0 0
963 punti  0 3 1 0 1 1
962 punti  1 0 2 0 1 2
961 punti  0 1 1 1 1 2
960 punti  0 1 2 0 1 2
959 punti  2 0 2 1 1 0
958 punti  2 1 0 2 0 1
957 punti  0 1 1 1 1 2
956 punti  1 1 2 0 1 1
955 punti  0 1 2 1 1 1
954 punti  3 2 0 0 1 0
953 punti  1 2 1 1 1 0
952 punti  1 0 0 3 1 1
951 punti  2 1 1 1 1 0
950 punti  0 2 1 1 0 2
949 punti  0 1 2 1 1 1
948 punti  1 1 0 1 1 2
947 punti  1 1 0 2 1 1
946 punti  3 0 0 0 1 2
945 punti  0 1 3 2 0 0
944 punti  0 0 2 0 3 1
943 punti  1 3 1 0 1 0
942 punti  0 1 0 2 1 2
941 punti  0 1 1 1 2 1
940 punti  3 1 0 0 0 2
939 punti  0 1 2 2 0 1
938 punti  0 2 1 3 0 0
937 punti  2 1 1 1 0 1
936 punti  2 2 0 0 1 1
935 punti  0 0 2 1 1 2
934 punti  0 1 2 0 2 1
933 punti  2 0 1 0 0 3
932 punti  1 0 0 2 1 2
931 punti  1 1 0 2 1 1
930 punti  1 2 1 0 1 1
929 punti  0 1 0 0 3 2
928 punti  2 0 0 0 3 1
927 punti  0 3 1 0 2 0
926 punti  0 1 3 1 0 1
925 punti  1 1 2 2 0 0
924 punti  2 2 1 1 0 0
923 punti  1 0 0 1 4 0
922 punti  1 2 2 0 0 1
921 punti  0 0 2 2 2 0
920 punti  2 1 0 1 1 1
919 punti  1 1 1 1 1 1
918 punti  2 1 1 1 1 0
917 punti  0 2 0 0 1 3
916 punti  1 0 3 1 0 1
915 punti  0 1 1 2 0 2
914 punti  1 0 2 2 0 1
913 punti  3 1 1 0 0 1
912 punti  2 1 2 0 1 0
911 punti  0 1 3 1 1 0
910 punti  3 0 0 1 1 1
909 punti  1 0 0 0 2 3
908 punti  0 3 0 3 0 0
907 punti  0 0 3 1 1 1
906 punti  1 3 0 0 1 1
905 punti  3 1 0 1 1 0
904 punti  2 0 1 1 1 1
903 punti  2 1 2 1 0 0
902 punti  1 0 2 0 0 3
901 punti  1 0 0 1 3 1
900 punti  2 1 1 0 1 1
899 punti  0 0 0 4 2 0
898 punti  1 2 1 1 1 0
897 punti  1 0 2 2 0 1
896 punti  0 3 0 2 0 1
895 punti  1 1 0 0 1 3
894 punti  0 1 2 0 2 1
893 punti  2 1 0 1 1 1
892 punti  2 0 1 1 0 2
891 punti  2 0 1 1 1 1
890 punti  1 1 1 3 0 0
889 punti  0 1 1 2 1 1
888 punti  2 1 0 1 2 0
887 punti  2 0 1 1 1 1
886 punti  0 1 1 0 2 2
885 punti  1 2 1 1 1 0
884 punti  0 2 1 1 2 0
883 punti  1 3 0 2 0 0
882 punti  1 1 2 0 1 1
881 punti  1 2 1 1 0 1
880 punti  1 1 0 1 2 1
879 punti  0 0 2 2 1 1
878 punti  0 2 1 1 0 2
877 punti  1 0 1 2 1 1
876 punti  0 0 2 1 2 1
875 punti  0 1 0 2 0 3
874 punti  2 1 0 2 1 0
873 punti  0 2 2 1 0 1
872 punti  0 1 2 0 0 3
871 punti  0 0 0 4 0 2
870 punti  1 1 1 2 0 1
869 punti  0 0 1 1 2 2
868 punti  2 1 1 1 1 0
867 punti  1 2 1 1 1 0
866 punti  1 2 1 1 1 0
865 punti  3 0 1 1 0 1
864 punti  2 1 1 0 1 1
863 punti  2 0 3 0 1 0
862 punti  0 1 4 0 1 0
861 punti  2 0 0 1 0 3
860 punti  0 0 1 2 3 0
859 punti  0 1 1 1 2 1
858 punti  1 0 0 2 1 2
857 punti  1 2 1 1 1 0
856 punti  2 1 0 1 1 1
855 punti  2 1 1 0 0 2
854 punti  1 3 1 1 0 0
853 punti  2 0 1 1 1 1
852 punti  0 1 1 2 1 1
851 punti  0 1 2 1 2 0
850 punti  2 0 1 1 1 1
849 punti  1 2 1 0 1 1
848 punti  0 1 0 3 1 1
847 punti  0 2 1 2 0 1
846 punti  1 0 0 1 3 1
845 punti  3 0 0 1 0 2
844 punti  1 0 2 2 0 1
843 punti  2 2 2 0 0 0
842 punti  1 1 0 2 0 2
841 punti  2 0 1 1 0 2
840 punti  1 2 0 1 1 1
839 punti  1 2 2 1 0 0
838 punti  2 1 0 1 1 1
837 punti  0 2 1 1 2 0
836 punti  1 1 0 0 2 2
835 punti  0 1 2 1 2 0
834 punti  0 0 2 1 3 0
833 punti  1 1 2 0 0 2
832 punti  0 1 1 0 1 3
831 punti  2 1 0 0 3 0
830 punti  2 0 0 1 3 0
829 punti  1 1 1 0 1 2
828 punti  2 3 0 0 0 1
827 punti  1 1 1 0 2 1
826 punti  0 1 0 1 3 1
825 punti  1 1 3 1 0 0
824 punti  0 1 1 3 1 0
823 punti  1 1 2 0 2 0
822 punti  3 1 0 0 0 2
821 punti  0 2 1 0 1 2
820 punti  1 0 1 1 2 1
819 punti  0 1 2 2 0 1
818 punti  1 2 2 0 1 0
817 punti  0 2 2 1 0 1
816 punti  1 2 1 1 0 1
815 punti  0 1 2 1 2 0
814 punti  0 1 0 2 1 2
813 punti  2 1 0 1 0 2
812 punti  1 0 2 0 0 3
811 punti  1 0 2 0 2 1
810 punti  0 1 2 1 1 1
809 punti  1 1 0 0 2 2
808 punti  1 0 1 2 2 0
807 punti  1 2 0 2 1 0
806 punti  1 2 1 1 1 0
805 punti  0 0 1 2 2 1
804 punti  0 3 0 0 2 1
803 punti  0 1 1 1 2 1
802 punti  2 0 1 0 2 1
801 punti  2 0 2 1 0 1
800 punti  1 0 1 1 0 3
799 punti  1 0 2 1 1 1
798 punti  1 0 0 2 2 1
797 punti  0 2 0 2 2 0
796 punti  2 1 1 1 1 0
795 punti  0 0 1 1 1 3
794 punti  2 0 1 0 2 1
793 punti  1 2 1 1 1 0
792 punti  1 1 0 3 1 0
791 punti  1 1 2 1 0 1
790 punti  1 1 2 0 2 0
789 punti  2 0 1 1 1 1
788 punti  2 2 1 1 0 0
787 punti  1 2 2 1 0 0
786 punti  0 1 1 3 0 1
785 punti  2 1 0 2 0 1
784 punti  3 0 2 0 0 1
783 punti  0 1 0 1 0 4
782 punti  1 1 1 1 1 1
781 punti  0 1 2 1 0 2
780 punti  1 0 0 2 1 2
779 punti  1 2 0 0 2 1
778 punti  1 1 1 0 2 1
777 punti  1 3 0 0 1 1
776 punti  2 1 0 0 2 1
775 punti  0 0 2 2 1 1
774 punti  1 1 2 1 1 0
773 punti  3 0 0 2 1 0
772 punti  2 3 0 0 1 0
771 punti  0 0 1 0 2 3
770 punti  3 0 2 1 0 0
769 punti  0 2 1 1 0 2
768 punti  1 1 1 2 1 0
767 punti  3 0 0 1 0 2
766 punti  0 1 0 4 1 0
765 punti  0 3 1 1 1 0
764 punti  1 1 3 0 0 1
763 punti  0 3 1 1 1 0
762 punti  0 2 2 0 2 0
761 punti  1 1 1 1 2 0
760 punti  0 1 1 2 0 2
759 punti  2 2 0 2 0 0
758 punti  2 1 1 0 1 1
757 punti  1 1 1 0 1 2
756 punti  1 0 1 0 1 3
755 punti  2 0 1 2 0 1
754 punti  0 1 1 1 3 0
753 punti  1 0 0 1 3 1
752 punti  1 1 1 0 2 1
751 punti  0 3 1 0 0 2
750 punti  1 0 0 1 1 3
749 punti  0 0 0 3 2 1
748 punti  0 0 1 1 0 4
747 punti  2 0 1 1 0 2
746 punti  0 0 2 2 1 1
745 punti  2 2 1 0 0 1
744 punti  2 0 1 0 2 1
743 punti  1 0 1 3 1 0
742 punti  2 2 1 0 0 1
741 punti  1 1 0 0 3 1
740 punti  1 1 2 0 2 0
739 punti  1 0 2 1 1 1
738 punti  2 2 0 1 1 0
737 punti  2 0 1 0 2 1
736 punti  0 4 0 1 0 1
735 punti  0 1 1 2 2 0
734 punti  2 0 3 0 0 1
733 punti  1 1 1 1 1 1
732 punti  2 0 1 0 1 2
731 punti  2 1 1 0 2 0
730 punti  1 0 2 1 2 0
729 punti  1 2 1 1 0 1
728 punti  0 1 0 2 1 2
727 punti  2 3 0 1 0 0
726 punti  2 0 1 1 1 1
725 punti  0 2 1 1 1 1
724 punti  1 1 1 0 3 0
723 punti  2 2 1 0 0 1
722 punti  0 1 2 2 0 1
721 punti  0 1 0 2 2 1
720 punti  1 1 0 2 2 0
719 punti  1 0 2 3 0 0
718 punti  0 3 2 0 0 1
717 punti  1 0 1 2 0 2
716 punti  0 3 2 0 0 1
715 punti  1 2 2 1 0 0
714 punti  3 0 0 0 1 2
713 punti  2 3 0 0 0 1
712 punti  0 0 2 0 2 2
711 punti  1 1 1 2 1 0
710 punti  1 0 0 0 2 3
709 punti  1 2 1 0 1 1
708 punti  1 0 3 0 1 1
707 punti  0 1 1 4 0 0
706 punti  2 0 1 2 1 0
705 punti  2 1 2 1 0 0
704 punti  0 0 1 3 0 2
703 punti  0 2 1 2 1 0
702 punti  1 1 1 2 1 0
701 punti  1 1 0 3 1 0
700 punti  0 1 0 1 2 2
699 punti  3 2 1 0 0 0
698 punti  1 1 1 1 1 1
697 punti  1 1 0 2 1 1
696 punti  0 2 2 1 1 0
695 punti  2 0 1 0 0 3
694 punti  0 1 1 0 1 3
693 punti  0 2 0 1 1 2
692 punti  2 0 2 0 1 1
691 punti  1 3 1 0 1 0
690 punti  1 1 1 1 2 0
689 punti  1 0 0 2 2 1
688 punti  0 1 0 3 1 1
687 punti  1 0 2 0 1 2
686 punti  1 2 0 1 2 0
685 punti  0 2 0 1 2 1
684 punti  3 0 2 0 0 1
683 punti  0 0 1 2 2 1
682 punti  0 1 1 1 1 2
681 punti  1 1 1 1 1 1
680 punti  2 1 2 0 0 1
679 punti  0 0 1 2 2 1
678 punti  1 0 1 1 2 1
677 punti  1 0 0 3 2 0
676 punti  1 3 0 0 1 1
675 punti  0 1 2 1 0 2
674 punti  2 0 1 1 0 2
673 punti  2 0 1 1 1 1
672 punti  1 2 0 1 0 2
671 punti  1 2 2 1 0 0
670 punti  0 0 2 1 1 2
669 punti  3 0 0 2 1 0
668 punti  1 1 2 0 1 1
667 punti  2 1 2 0 0 1
666 punti  2 0 1 0 1 2
665 punti  0 2 1 0 2 1
664 punti  0 1 2 0 2 1
663 punti  1 1 1 2 1 0
662 punti  0 3 0 2 1 0
661 punti  2 0 1 1 1 1
660 punti  1 1 1 1 2 0
659 punti  1 0 3 0 0 2
658 punti  1 2 2 0 0 1
657 punti  2 0 1 1 1 1
656 punti  2 1 1 0 1 1
655 punti  1 0 2 1 1 1
654 punti  1 2 1 1 1 0
653 punti  2 2 0 0 2 0
652 punti  1 1 0 2 0 2
651 punti  1 1 1 0 1 2
650 punti  1 1 2 1 1 0
649 punti  2 1 1 0 1 1
648 punti  0 1 0 2 1 2
647 punti  1 0 1 1 1 2
646 punti  0 0 1 0 2 3
645 punti  0 1 3 0 2 0
644 punti  2 1 0 0 3 0
643 punti  1 0 1 2 1 1
642 punti  1 2 1 2 0 0
641 punti  0 1 0 3 2 0
640 punti  1 0 1 3 0 1
639 punti  0 1 2 0 1 2
638 punti  0 3 0 3 0 0
637 punti  3 0 1 1 0 1
636 punti  2 0 1 1 1 1
635 punti  1 0 0 1 2 2
634 punti  1 0 2 1 1 1
633 punti  1 3 0 1 0 1
632 punti  1 2 0 0 2 1
631 punti  2 1 1 1 1 0
630 punti  0 2 2 0 2 0
629 punti  1 0 2 1 2 0
628 punti  0 5 0 1 0 0
627 punti  0 0 1 2 2 1
626 punti  0 2 2 0 0 2
625 punti  3 0 1 0 1 1
624 punti  1 0 2 1 2 0
623 punti  0 0 2 1 2 1
622 punti  1 0 1 1 1 2
621 punti  0 4 1 0 1 0
620 punti  1 0 0 2 1 2
619 punti  2 2 0 0 2 0
618 punti  1 0 1 0 2 2
617 punti  0 1 0 1 2 2
616 punti  0 1 1 3 0 1
615 punti  2 0 1 2 0 1
614 punti  1 0 2 0 1 2
613 punti  0 0 0 3 2 1
612 punti  0 2 0 1 1 2
611 punti  0 2 2 0 0 2
610 punti  1 1 0 2 1 1
609 punti  0 1 2 0 0 3
608 punti  1 1 0 1 0 3
607 punti  0 3 0 1 2 0
606 punti  1 1 0 1 2 1
605 punti  1 1 0 1 1 2
604 punti  2 1 0 0 2 1
603 punti  1 0 2 0 1 2
602 punti  0 1 1 1 1 2
601 punti  0 1 1 2 1 1
600 punti  2 0 2 1 0 1
599 punti  3 0 1 1 1 0
598 punti  1 1 0 1 1 2
597 punti  0 1 0 2 2 1
596 punti  1 2 1 1 0 1
595 punti  0 1 0 3 1 1
594 punti  2 1 3 0 0 0
593 punti  3 0 1 0 0 2
592 punti  1 0 1 2 1 1
591 punti  2 0 2 1 1 0
590 punti  1 2 1 2 0 0
589 punti  1 2 2 0 1 0
588 punti  1 0 3 0 2 0
587 punti  0 1 3 2 0 0
586 punti  1 0 0 2 2 1
585 punti  2 2 1 1 0 0
584 punti  1 1 0 2 1 1
583 punti  1 0 1 0 2 2
582 punti  1 0 0 3 0 2
581 punti  0 1 2 1 1 1
580 punti  2 3 1 0 0 0
579 punti  0 3 1 0 1 1
578 punti  1 1 1 1 2 0
577 punti  1 0 2 1 2 0
576 punti  1 1 1 2 1 0
575 punti  0 2 1 0 1 2
574 punti  0 2 1 0 2 1
573 punti  2 0 1 1 0 2
572 punti  2 0 1 2 1 0
571 punti  1 3 1 0 1 0
570 punti  0 2 0 1 1 2
569 punti  1 1 0 3 1 0
568 punti  0 1 1 2 0 2
567 punti  0 2 1 2 1 0
566 punti  0 1 1 3 0 1
565 punti  1 0 1 1 3 0
564 punti  0 0 2 1 2 1
563 punti  2 0 1 2 0 1
562 punti  0 2 1 2 0 1
561 punti  1 1 2 0 1 1
560 punti  1 0 0 1 3 1
559 punti  2 0 0 1 2 1
558 punti  1 2 0 0 0 3
557 punti  1 0 3 0 2 0
556 punti  0 2 1 1 1 1
555 punti  1 1 0 2 1 1
554 punti  2 1 1 0 1 1
553 punti  1 1 0 1 0 3
552 punti  0 1 2 2 0 1
551 punti  0 2 1 0 3 0
550 punti  1 0 2 0 1 2
549 punti  2 0 0 1 2 1
548 punti  1 1 2 2 0 0
547 punti  2 0 1 2 1 0
546 punti  0 2 1 2 1 0
545 punti  2 1 2 0 0 1
544 punti  2 3 0 0 0 1
543 punti  0 1 2 1 1 1
542 punti  2 0 0 1 0 3
541 punti  1 2 0 1 1 1
540 punti  0 0 0 1 3 2
539 punti  1 1 0 1 1 2
538 punti  1 1 0 2 0 2
537 punti  1 0 2 1 1 1
536 punti  0 3 1 1 0 1
535 punti  0 3 1 0 0 2
534 punti  1 1 1 1 1 1
533 punti  2 0 1 0 2 1
532 punti  1 2 1 0 1 1
531 punti  1 1 2 1 0 1
530 punti  2 1 0 1 1 1
529 punti  1 1 2 0 1 1
528 punti  2 0 0 1 1 2
527 punti  2 0 1 0 2 1
526 punti  0 1 2 2 1 0
525 punti  2 0 1 2 1 0
524 punti  3 1 0 1 1 0
523 punti  2 1 0 1 0 2
522 punti  2 1 1 1 1 0
521 punti  1 0 3 0 1 1
520 punti  0 1 4 0 0 1
519 punti  2 0 2 0 1 1
518 punti  1 1 1 1 1 1
517 punti  1 3 0 0 0 2
516 punti  1 2 1 0 1 1
515 punti  0 2 2 1 0 1
514 punti  0 2 0 2 2 0
513 punti  2 0 3 0 1 0
512 punti  1 1 0 0 2 2
511 punti  0 2 1 2 0 1
510 punti  2 3 1 0 0 0
509 punti  1 0 0 3 1 1
508 punti  0 1 3 1 0 1
507 punti  2 1 1 1 1 0
506 punti  0 2 1 0 1 2
505 punti  0 0 2 1 1 2
504 punti  1 0 2 2 0 1
503 punti  1 1 0 1 1 2
502 punti  1 0 1 0 3 1
501 punti  0 1 0 2 3 0
500 punti  0 0 0 1 3 2
499 punti  1 0 2 0 2 1
498 punti  0 1 0 2 2 1
497 punti  1 0 0 2 3 0
496 punti  0 2 0 1 1 2
495 punti  1 2 0 1 2 0
494 punti  1 1 2 1 1 0
493 punti  2 1 1 0 0 2
492 punti  1 2 0 2 1 0
491 punti  2 0 0 1 2 1
490 punti  1 0 0 2 0 3
489 punti  1 3 2 0 0 0
488 punti  1 1 1 1 2 0
487 punti  1 0 0 2 1 2
486 punti  2 0 2 2 0 0
485 punti  1 1 2 1 0 1
484 punti  0 1 1 1 1 2
483 punti  1 1 0 3 0 1
482 punti  3 0 1 0 1 1
481 punti  1 2 0 1 2 0
480 punti  2 2 0 0 1 1
479 punti  1 0 1 4 0 0
478 punti  2 2 0 0 1 1
477 punti  1 1 2 0 1 1
476 punti  3 0 0 0 2 1
475 punti  2 0 2 0 0 2
474 punti  1 1 0 2 1 1
473 punti  0 1 3 1 1 0
472 punti  1 0 3 0 1 1
471 punti  3 0 0 0 1 2
470 punti  1 1 0 0 2 2
469 punti  0 1 0 3 0 2
468 punti  0 2 2 1 0 1
467 punti  2 0 2 0 1 1
466 punti  1 1 1 1 0 2
465 punti  0 1 1 1 3 0
464 punti  1 0 0 2 2 1
463 punti  2 2 1 0 1 0
462 punti  0 0 1 0 3 2
461 punti  0 1 2 1 1 1
460 punti  2 4 0 0 0 0
459 punti  3 1 1 0 0 1
458 punti  2 2 0 0 1 1
457 punti  2 0 1 2 1 0
456 punti  1 2 1 1 0 1
455 punti  1 1 1 1 0 2
454 punti  0 1 2 2 0 1
453 punti  0 2 1 2 1 0
452 punti  1 1 2 1 1 0
451 punti  2 0 1 0 1 2
450 punti  0 2 1 1 0 2
449 punti  3 0 0 0 2 1
448 punti  1 1 1 2 1 0
447 punti  1 0 1 1 0 3
446 punti  1 1 1 1 2 0
445 punti  1 0 2 2 0 1
444 punti  1 1 1 1 0 2
443 punti  2 0 1 1 1 1
442 punti  1 1 1 2 1 0
441 punti  0 2 1 0 1 2
440 punti  0 1 2 1 1 1
439 punti  1 0 0 2 2 1
438 punti  2 1 1 2 0 0
437 punti  1 1 0 2 2 0
436 punti  0 3 1 1 0 1
435 punti  2 1 1 1 1 0
434 punti  1 2 2 1 0 0
433 punti  0 2 1 1 1 1
432 punti  0 1 0 2 1 2
431 punti  1 2 1 0 2 0
430 punti  0 0 3 1 0 2
429 punti  1 2 2 1 0 0
428 punti  0 1 0 1 4 0
427 punti  0 1 1 2 1 1
426 punti  1 2 1 0 1 1
425 punti  0 2 1 2 0 1
424 punti  2 0 2 0 0 2
423 punti  1 1 0 1 2 1
422 punti  1 0 2 0 2 1
421 punti  0 1 3 1 1 0
420 punti  2 0 1 0 1 2
419 punti  2 2 0 0 1 1
418 punti  1 0 1 0 2 2
417 punti  0 1 0 2 0 3
416 punti  3 0 0 1 1 1
415 punti  1 0 1 2 1 1
414 punti  3 1 0 1 1 0
413 punti  0 3 0 1 1 1
412 punti  0 2 1 0 2 1
411 punti  3 1 0 1 0 1
410 punti  1 2 2 1 0 0
409 punti  1 1 1 3 0 0
408 punti  0 1 1 1 2 1
407 punti  0 2 1 2 0 1
406 punti  2 0 2 0 0 2
405 punti  2 1 2 0 1 0
404 punti  1 0 0 1 2 2
403 punti  0 1 1 2 2 0
402 punti  1 0 2 1 1 1
401 punti  1 0 0 3 1 1
400 punti  0 1 2 0 2 1
399 punti  0 2 0 2 1 1
398 punti  1 1 1 1 2 0
397 punti  1 2 1 0 1 1
396 punti  0 0 0 2 3 1
395 punti  0 1 2 0 1 2
394 punti  2 0 1 1 1 1
393 punti  2 0 2 0 1 1
392 punti  2 1 1 1 1 0
391 punti  0 1 2 0 1 2
390 punti  2 1 0 2 1 0
389 punti  1 0 1 2 1 1
388 punti  0 2 1 0 1 2
387 punti  1 1 2 0 1 1
386 punti  1 0 0 2 1 2
385 punti  1 0 2 3 0 0
384 punti  1 0 1 1 1 2
383 punti  1 1 1 0 2 1
382 punti  1 2 1 2 0 0
381 punti  0 2 1 2 1 0
380 punti  1 2 0 2 0 1
379 punti  0 2 1 0 2 1
378 punti  2 2 0 1 0 1
377 punti  0 1 0 1 3 1
376 punti  0 1 2 2 0 1
375 punti  0 1 1 1 2 1
374 punti  1 1 1 1 0 2
373 punti  1 0 1 1 1 2
372 punti  1 1 0 0 2 2
371 punti  1 1 1 2 1 0
370 punti  1 2 1 0 0 2
369 punti  2 0 1 0 1 2
368 punti  1 0 0 0 3 2
367 punti  1 0 2 0 0 3
366 punti  1 0 2 2 1 0
365 punti  1 3 0 1 0 1
364 punti  2 0 1 2 0 1
363 punti  1 1 1 1 2 0
362 punti  2 0 1 1 2 0
361 punti  0 1 1 1 2 1
360 punti  0 1 3 0 0 2
359 punti  0 0 3 3 0 0
358 punti  1 2 1 0 1 1
357 punti  1 1 2 0 1 1
356 punti  1 1 1 0 1 2
355 punti  2 0 2 0 0 2
354 punti  1 1 1 1 2 0
353 punti  2 0 3 1 0 0
352 punti  1 0 1 1 2 1
351 punti  3 2 0 0 0 1
350 punti  1 3 1 0 0 1
349 punti  1 2 1 1 1 0
348 punti  1 0 0 1 4 0
347 punti  1 1 2 0 0 2
346 punti  2 2 1 1 0 0
345 punti  0 2 0 0 1 3
344 punti  2 1 1 1 1 0
343 punti  1 2 1 0 1 1
342 punti  0 1 2 2 1 0
341 punti  2 1 0 0 2 1
340 punti  0 1 2 0 1 2
339 punti  0 1 1 0 1 3
338 punti  0 1 0 3 1 1
337 punti  0 1 0 3 0 2
336 punti  0 1 2 3 0 0
335 punti  1 2 0 1 1 1
334 punti  1 2 1 0 0 2
333 punti  0 1 1 3 1 0
332 punti  0 0 1 2 1 2
331 punti  1 0 0 0 4 1
330 punti  3 0 1 2 0 0
329 punti  2 0 0 3 1 0
328 punti  1 2 1 0 2 0
327 punti  1 1 2 1 1 0
326 punti  1 0 1 0 2 2
325 punti  0 1 2 0 2 1
324 punti  1 0 3 0 2 0
323 punti  1 0 2 3 0 0
322 punti  1 1 1 1 1 1
321 punti  1 3 0 0 1 1
320 punti  1 0 2 1 2 0
319 punti  1 1 2 1 0 1
318 punti  2 0 0 1 1 2
317 punti  2 2 0 1 1 0
316 punti  3 0 1 1 0 1
315 punti  1 0 2 0 2 1
314 punti  1 0 1 3 1 0
313 punti  1 0 1 1 0 3
312 punti  1 1 1 0 2 1
311 punti  0 2 2 0 0 2
310 punti  0 3 0 1 1 1
309 punti  1 1 0 0 2 2
308 punti  0 3 0 1 1 1
307 punti  1 2 0 2 0 1
306 punti  1 3 1 1 0 0
305 punti  0 1 4 0 1 0
304 punti  3 0 1 2 0 0
303 punti  1 0 2 0 0 3
302 punti  2 3 1 0 0 0
301 punti  1 0 3 1 0 1
300 punti  2 1 1 0 1 1
299 punti  0 0 0 3 0 3
298 punti  0 0 1 1 1 3
297 punti  0 0 2 0 4 1
296 punti  1 3 0 1 0 1
295 punti  0 1 2 2 1 0
294 punti  1 0 1 1 0 3
293 punti  3 1 1 0 0 1
292 punti  2 1 1 1 1 0
291 punti  1 2 2 0 0 1
290 punti  0 1 1 2 2 0
289 punti  0 1 0 2 3 0
288 punti  1 3 0 0 1 1
287 punti  2 2 1 0 1 0
286 punti  0 2 0 1 2 1
285 punti  2 0 0 1 2 1
284 punti  2 1 0 0 2 1
283 punti  1 2 1 1 0 1
282 punti  1 1 2 0 0 2
281 punti  2 0 1 2 1 0
280 punti  2 2 0 0 2 0
279 punti  1 1 1 2 0 1
278 punti  1 0 0 2 1 2
277 punti  1 0 1 1 1 2
276 punti  1 1 0 1 0 3
275 punti  1 0 2 2 0 1
274 punti  1 2 0 2 1 0
273 punti  0 2 0 2 2 0
272 punti  1 1 0 1 1 2
271 punti  1 1 0 0 2 2
270 punti  2 0 0 2 2 0
269 punti  0 0 1 4 0 1
268 punti  1 0 2 1 0 2
267 punti  1 1 1 1 1 1
266 punti  2 0 1 1 1 1
265 punti  1 1 1 1 1 1
264 punti  1 1 1 2 1 0
263 punti  3 1 1 0 0 1
262 punti  1 1 1 0 2 1
261 punti  2 0 1 0 2 1
260 punti  0 1 0 3 0 2
259 punti  0 3 2 0 0 1
258 punti  0 1 1 1 1 2
257 punti  0 1 0 1 3 1
256 punti  0 1 4 0 0 1
255 punti  0 2 1 0 1 2
254 punti  1 0 1 2 1 1
253 punti  2 1 0 1 1 1
252 punti  0 2 2 1 0 1
251 punti  1 0 2 1 1 1
250 punti  2 0 2 0 1 1
249 punti  0 1 2 2 1 0
248 punti  0 1 0 1 2 2
247 punti  2 2 1 1 0 0
246 punti  3 2 0 0 1 0
245 punti  0 3 2 0 0 1
244 punti  0 1 0 2 1 2
243 punti  2 1 1 0 1 1
242 punti  0 2 0 1 2 1
241 punti  3 1 0 1 1 0
240 punti  1 0 2 0 2 1
239 punti  0 3 0 1 1 1
238 punti  0 1 2 1 1 1
237 punti  0 2 1 1 0 2
236 punti  1 0 1 2 0 2
235 punti  1 0 2 1 2 0
234 punti  0 2 1 1 1 1
233 punti  3 0 0 2 1 0
232 punti  0 2 0 0 4 0
231 punti  2 1 1 0 1 1
230 punti  1 1 0 2 1 1
229 punti  1 0 1 3 0 1
228 punti  1 1 2 1 1 0
227 punti  0 0 0 1 0 5
226 punti  2 0 0 1 1 2
225 punti  1 1 1 2 1 0
224 punti  0 2 1 1 0 2
223 punti  0 0 3 0 3 0
222 punti  2 1 1 1 1 0
221 punti  2 1 1 1 0 1
220 punti  1 1 2 0 2 0
219 punti  1 0 0 1 2 2
218 punti  1 0 0 1 2 2
217 punti  0 0 3 1 1 1
216 punti  1 3 1 1 0 0
215 punti  0 0 1 4 0 1
214 punti  2 1 0 1 2 0
213 punti  0 2 2 1 1 0
212 punti  1 2 0 2 1 0
211 punti  2 2 0 1 1 0
210 punti  2 0 1 1 1 1
209 punti  1 0 3 1 1 0
208 punti  0 1 3 0 1 1
207 punti  1 1 2 1 0 1
206 punti  1 1 0 0 2 2
205 punti  0 4 1 0 0 1
204 punti  1 1 0 1 2 1
203 punti  0 1 2 0 1 2
202 punti  2 0 0 3 1 0
201 punti  1 0 1 1 2 1
200 punti  1 0 1 2 1 1
199 punti  0 0 3 2 1 0
198 punti  1 1 1 0 1 2
197 punti  2 0 1 1 2 0
196 punti  1 3 1 0 0 1
195 punti  0 2 0 2 0 2
194 punti  2 0 2 1 0 1
193 punti  0 1 0 2 1 2
192 punti  2 1 0 1 1 1
191 punti  0 2 2 1 0 1
190 punti  3 1 0 1 0 1
189 punti  2 1 1 0 2 0
188 punti  3 0 0 1 2 0
187 punti  1 1 1 0 1 2
186 punti  1 1 0 1 3 0
185 punti  1 1 0 2 1 1
184 punti  0 0 3 1 0 2
183 punti  0 2 0 1 3 0
182 punti  3 2 0 0 1 0
181 punti  1 1 1 1 2 0
180 punti  0 1 0 1 1 3
179 punti  1 1 1 1 1 1
178 punti  2 0 1 1 1 1
177 punti  2 0 1 1 0 2
176 punti  0 1 4 0 1 0
175 punti  0 0 0 3 1 2
174 punti  1 2 2 0 1 0
173 punti  0 1 1 3 1 0
172 punti  0 2 0 0 1 3
171 punti  0 2 2 1 0 1
170 punti  1 2 3 0 0 0
169 punti  0 2 1 2 0 1
168 punti  0 1 0 1 2 2
167 punti  2 0 1 1 0 2
166 punti  0 1 1 0 1 3
165 punti  1 1 1 0 3 0
164 punti  0 1 2 2 0 1
163 punti  1 0 1 1 1 2
162 punti  2 0 2 1 1 0
161 punti  1 2 1 0 2 0
160 punti  1 1 1 1 1 1
159 punti  1 1 2 1 1 0
158 punti  1 0 0 1 2 2
157 punti  4 0 0 2 0 0
156 punti  0 2 0 0 2 2
155 punti  0 0 0 5 1 0
154 punti  2 1 2 0 1 0
153 punti  0 2 2 0 0 2
152 punti  2 0 0 2 1 1
151 punti  1 2 0 1 1 1
150 punti  0 1 1 2 1 1
149 punti  2 2 0 1 0 1
148 punti  2 0 1 1 0 2
147 punti  0 3 2 0 1 0
146 punti  3 0 0 1 1 1
145 punti  2 2 0 0 1 1
144 punti  0 1 0 1 2 2
143 punti  1 1 1 0 3 0
142 punti  1 0 2 1 0 2
141 punti  1 2 1 0 1 1
140 punti  1 0 0 2 2 1
139 punti  1 0 0 2 0 3
138 punti  1 1 0 3 0 1
137 punti  1 2 0 0 0 3
136 punti  2 2 1 1 0 0
135 punti  1 1 1 0 2 1
134 punti  1 1 2 1 1 0
133 punti  1 0 1 1 0 3
132 punti  1 1 0 0 2 2
131 punti  0 0 4 0 1 1
130 punti  0 0 3 1 2 0
129 punti  2 2 0 1 1 0
128 punti  1 1 0 1 0 3
127 punti  1 1 1 2 1 0
126 punti  1 2 0 0 1 2
125 punti  2 0 2 1 0 1
124 punti  0 0 0 3 2 1
123 punti  0 0 2 3 1 0
122 punti  1 2 0 0 3 0
121 punti  1 1 1 1 0 2
120 punti  0 0 1 3 2 0
119 punti  0 1 2 0 1 2
118 punti  1 0 1 0 2 2
117 punti  2 1 1 1 0 1
116 punti  1 1 2 0 1 1
115 punti  0 1 0 2 3 0
114 punti  0 1 2 0 1 2
113 punti  2 2 1 0 0 1
112 punti  2 1 0 1 2 0
111 punti  0 2 0 2 0 2
110 punti  1 0 0 1 3 1
109 punti  0 1 2 2 1 0
108 punti  0 2 0 0 3 1
107 punti  3 1 1 1 0 0
106 punti  0 2 3 1 0 0
105 punti  0 3 3 0 0 0
104 punti  1 1 0 1 2 1
103 punti  1 1 0 2 1 1
102 punti  2 0 1 3 0 0
101 punti  0 2 2 1 0 1
100 punti  1 2 1 0 2 0
99 punti  3 0 0 0 1 2
98 punti  1 0 1 2 2 0
97 punti  0 3 1 0 1 1
96 punti  1 0 3 0 1 1
95 punti  3 0 1 1 1 0
94 punti  2 1 2 0 0 1
93 punti  1 3 1 0 0 1
92 punti  2 1 0 1 0 2
91 punti  2 0 0 2 1 1
90 punti  0 2 1 1 0 2
89 punti  1 1 1 0 2 1
88 punti  0 0 1 4 1 0
87 punti  1 0 2 1 2 0
86 punti  1 1 0 0 1 3
85 punti  1 1 1 1 1 1
84 punti  1 3 1 0 1 0
83 punti  0 1 0 2 1 2
82 punti  1 1 0 1 1 2
81 punti  1 0 2 1 2 0
80 punti  1 0 2 0 0 3
79 punti  1 1 1 1 1 1
78 punti  2 0 1 0 0 2
77 punti  1 3 1 0 0 1
76 punti  1 1 1 2 0 1
75 punti  1 1 1 1 2 0
74 punti  2 0 0 1 2 1
73 punti  1 0 1 1 2 1
72 punti  3 0 2 0 0 1
71 punti  1 2 0 1 2 0
70 punti  1 0 0 3 1 1
69 punti  1 0 2 1 1 1
68 punti  0 3 0 1 0 2
67 punti  2 2 0 2 0 0
66 punti  2 1 1 1 1 0
65 punti  0 0 1 0 2 2
64 punti  1 2 2 0 1 0
63 punti  4 0 0 2 0 0
62 punti  0 1 2 2 0 1
61 punti  1 2 0 2 0 1
60 punti  1 0 0 2 1 2
59 punti  0 1 1 0 2 2
58 punti  2 1 0 1 0 2
57 punti  1 1 3 1 0 0
56 punti  0 0 0 0 3 2
55 punti  1 0 1 1 2 1
54 punti  1 0 0 1 1 2
53 punti  2 0 1 1 1 1
52 punti  0 0 3 0 0 3
51 punti  0 2 1 1 1 1
50 punti  1 1 0 1 1 2



non sono riuscito ad allegare file punteggi.txt, ma come si fa?

grazie silop,
ormai la memoria inizia a far cilecca.

Edited by Beppignello - 20/2/2024, 12:47

Download attachment
Punteggi.txt ( Number of downloads: 6 )

 
Top
25 replies since 18/2/2024, 14:03   490 views
  Share