vERIFICA aRCHIVIO

[i legend]

Ciao
ho fatto come suggerito da joè
scaricato l archivio di silop e poi ho aggiornato
Ora i risultati coincidono con quelli di Joe
Grazie mille.
per le differenze negli archivi , bisogna capire quale fonte riporta dei dati inesatti, ma è una scelta personale.

ancora grazie mille Joè., e , a tutti i partecipanti al 3D

 

[joe]

Ciao
ho fatto come suggerito da joè
scaricato l archivio di silop e poi ho aggiornato
Ora i risultati coincidono con quelli di Joe
Grazie mille.
per le differenze negli archivi , bisogna capire quale fonte riporta dei dati inesatti, ma è una scelta personale.

ancora grazie mille Joè., e , a tutti i partecipanti al 3D

Ciao I legend,

effettivamente capire quali siti fossero da ritenere "migliori" nella qualità dei dati,

era uno degli scopi principali, di un progetto più ampio e rimasto parzialmente incompiuto.

Di positivo c'è che abbiamo archivi remoti e strumenti per accedervi con cui aggiornare i nostri.

Per il resto con speranza lo si rimanda al futuro.

Quello stesso futuro che è una incognita in una canzone di Ruggeri ... e che invece nella voce di Battisti, lo scopriremo solo vivendo.

Spero lo vedremo, prima o poi.

 

[i legend]

Ancora grazie per il suggerimento

 

[BaffoBlù]

Rispolvero questo post per pubblica utilità
Penso di avere un buon archivio corretto (ma non si sa mai)
Se può essere utile a confronti (e utile anche per me)

dal 14-01-39 al 05-10-2023 i miei dati sono coerenti con quelli di joe

Questi invece sono i dati del mio intero archivio fino al 5 dicembre

07.01.1871
05.12.2023
BA | 2315726
CA | 1546429
FI | 2353876
GE | 1545825
MI | 2354787
NA | 2355536
PA | 2351494
RO | 2361270
TO | 2352835
VE | 2368232
NZ | 657403

 

[bauman]

Buonasera a tutti, sono Bauman, ho letto il tread e se servono dati di confronto verifica archivio questi sono i miei, ho notato che con P1no c'è una differenza sulla ruota Nazionale di 76

07.01.1871
05.12.2023
BA | 2315726
CA | 1546429
FI | 2353876
GE | 1545825
MI | 2354787
NA | 2355536
PA | 2351494
RO | 2361270
TO | 2352835
VE | 2368232
NZ | 657327 <---

un saluto a tutti

 

[BaffoBlù]

Se ne conclude che c'è un errore.
fino al 05-10-2023 il mio archivio è coerente con quello di joe e altri, quindi fino a li ci siamo.

prova a far girare lo script così impostando in SPTM il fine rage estrazioni al 05-12-2023

Option Explicit
Sub Main
Dim Ini,Fin,Es,R,P,S
Ini = 10313 ' EstrazioneIni dal 06-10-2023
Fin = EstrazioneFin
Scrivi DataEstrazione(Ini)
Scrivi DataEstrazione(Fin)
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " | ",0,0
S = 0
For Es = Ini To Fin
For P = 1 To 5
S = S + Estratto(Es,R,P)
Next
Next
Scrivi S
Next
End Sub


06.10.2023
05.12.2023
BA | 8401
CA | 8156
FI | 8343
GE | 8612
MI | 8180
NA | 8359
PA | 7879
RO | 7722
TO | 7667
VE | 8000
NZ | 8214


se i tuo dati sono uguali a questi significa che l'errore e precedente, quindi fai la prova con lo script originale di joe con le stesse date
e se non è uguale al suo, l'errore e nel tuo archivio.

penso di escludere al 99,99% che dal 06-10-2023 al 05-12-2023 io abbia errori nel archivio
ma non si sa mai, non sono sovraumano, ma mi sembra talmente strano e improbabile.

 

[joe]

Ho risutati identici a quelli di P1no.

E' probabile che in fase di aggiornamento manuale,

copiando l'estrazione sia stata dimeticata una delle 2 cifre di un estratto della Nazionale,

oppure sia stato erronemente inserito un numero diverso da quello genricamente inteso come "più giusto".

Questa ipotesi si verifica (per confronto) come prima ipotesi con questa modifica dello script.

Sub Main
   Dim Ini,Fin,Es,R,P,S(5)
   Ini = 7440 ' EstrazioneIni dal 06-10-2023
   Fin = EstrazioneFin
   Scrivi DataEstrazione(Ini)
   Scrivi DataEstrazione(Fin)
   For R = 12 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & " | ",0,0
      'S = 0
      For Es = Ini To Fin
         For P = 1 To 5
            S(P) = S(P) + Estratto(Es,R,P)
         Next
      Next
      Scrivi StringaNumeri(S,"+",True) & " = ",0,0
   Next
   R = 0
   For P = 1 To 5
      R = R + S(P)
   Next
   Scrivi R,1
End Sub

che retsituisce

04.05.2005
05.12.2023
NZ | 132855+132029+131501+131964+129054 = 657403

 

[BaffoBlù]

stesso identico risultato di joe

bauman devi controllare il tuo archivio

 

[bauman]

Notte tarda......,
04.05.2005
05.12.2023
NZ | 132855+132029+131501+131964+128978 = 657327
^ qui mi da errore
come posso correggere l'archivio, grazie e buona notte a domani.
un saluto a tutti, ciao

 

[bauman]

Notte tarda......,
04.05.2005
05.12.2023
NZ | 132855+132029+131501+131964+128978 = 657327
......................................................................... ^ qui mi da errore
come posso correggere l'archivio, grazie e buona notte a domani.
un saluto a tutti, ciao

 

[bauman]

Buongiorno a tutti,
ho risolto il problema, troncando l'archivio dal 06/10/2023, riaggiornato e fatto la verifica, questo è il risultato

06.10.2023
05.12.2023
BA | 8401
CA | 8156
FI | 8343
GE | 8612
MI | 8180
NA | 8359
PA | 7879
RO | 7722
TO | 7667
VE | 8000
NZ | 8214

ora anche io sono allineato ai vostri archivi, grazie a tutti

 

[Padre_Maronno]

buongiorno,non sono molto pratico , è corretto questo valore?

 

[joe]

Come in prima ipotesi, probabilmente in un aggiornamento

avevi incollatsolo solo la prima cifra del 5° Estratto della Nazionale.

Hai risolto con metodo drastico.

Buona domenica a tute/I.

 

[joe]

Sub Main
   Dim Ini,Fin,Es,R,P,T
   Ini = 7440
   Fin = EstrazioneFin
   Scrivi DataEstrazione(Ini)
   Scrivi DataEstrazione(Fin)
   For R = 12 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & " | ",0
      ReDim S(5)
      For Es = Ini To Fin
         For P = 1 To 5
            S(P) = S(P) + Estratto(Es,R,P)
         Next
         If Es Mod 100 = 0 Then
            Scrivi FormatSpace(Es,5) & " ",0,0
            For P = 1 To 5
               Scrivi FormatSpace(S(P),7,1),0,0
            Next
            Scrivi
            ReDim S(5)
         End If
      Next
   Next
   Scrivi(Fin) & "  ",0,0
   Scrivi StringaNumeri(S,"+",True) & " = ",0,0
   T = 0
   For P = 1 To 5
      T = T + S(P)
   Next
   Scrivi T,1
End Sub

Questo script permette di sezionare l'archivio in blocchi di 100 estrazioni.

Sempre per confronto con il risultato si questo di può delimitate il periodo in cui iniziano le differenze.

 

[Padre_Maronno]

qualcuno puo' condividere i file base dati 1 .2.3.4.5 corretti ,grazie

 

[bauman]

x la cosa

Ecco i risultati aggiornati dopo la verifica finale

07.01.1871
09.12.2023
BA | 2316233
CA | 1546857
FI | 2354209
GE | 1546229
MI | 2355228
NA | 2356078
PA | 2352007
RO | 2361571
TO | 2353266
VE | 2368857
NZ | 657884

un saluto a tutti

 

[Padre_Maronno]

grazie @bauman questa parte l'ho risolta fatto un reset completo di spaziometria , con archivi puliti e reinstallati .
ora tutto quadra.
mi mancano solo i plugin di spaziometria

potresti condividere la cartella plugin competa in zip che l'aggiungo grazie

 

[Padre_Maronno]

grazie @bauman questa parte l'ho risolta fatto un reset completo di spaziometria , con archivi puliti e reinstallati .
ora tutto quadra.
mi mancano solo i plugin di spaziometria
Vedi l'allegato 2273636
potresti condividere la cartella plugin competa in zip che l'aggiungo grazie

trovati ho risolto

 

[joe]

Ringrazio Ilegend e gli altri partecipanti la discussione.

Ho modificato un pochino lo script al messaggio 34 delimitando piu precisamente i periodi.