richiesta script x statistica ambo rimanente

« Older Newer »

Limoneverde

Posted on 2/1/2024, 18:38

Curioso

Group:: Member

Posts:: 26

Status:

Buon Anno a tutti.

E' da tempo che ho in mente una statistica relativa a quello che io ho definito RIPETIZIONE DELL' AMBO RIMANENTE ma data la mia poca dimestichezza con i listati chiedo il vostro aiuto per uno script.

La base di partenza del listato è la ricerca a ruota di una cinquina contenente un terno di cadenza.

Esempio: 10.09.2016 Bari 04.73.13.89.23

Lo script poi dovrebbe cercare i ritardi attuali e storici a ruota della ripetizione dell'ambo rimanente
Ovviamente una quaterna o cinquina in CADENZA andrebbe esclusa dato che non esisterebbe alcun ambo rimanente.

Tale ricerca potrebbe essere estesa anche ai TERNI di DECINA, FIGURA E GEMELLARI.

Grazie e un saluto da Limoneverde

Gam73

Posted on 2/1/2024, 20:14

Top Member

Group:: Administrator

Posts:: 1,713

Status:

Ciao Limoneverde, puoi essere più chiaro? Forse ho qualcosa che fa al caso tuo. Ho bisogno però di un esempio completo dell'analisi che vuoi.

Fammi sapere.
Saluti

Limoneverde

Posted on 3/1/2024, 17:16

Curioso

Group:: Member

Posts:: 26

Status:

Ciao a tutti

Grazie Gam73 per la risposta e per l'interesse dimostrato alla mia personale statistica; provo ad essere più chiaro tornando al mio esempio :

estrazione del 10.09.2016 Bari 04.73.13.89.23

la condizione di ricerca è il terno in cadenza (73.13.23)

trovata la condizione rimetto in gioco i rimanenti estratti della cinquina ( 04.89 ) ossia l'ambo rimanente.

Da una mia verifica manuale l'ambo rimanente 04.89 è risortito a Bari dopo 848 estrazioni:

Pertanto il mio scopo sarebbe trovare gli attuali ambi rimanenti in essere e quelli già risortiti (storici) su ogni singola ruota o anche complessivamente ( i casi sono poco più di 6300)

Per fornire un esempio semplificato di quello che lo script dovrebbe estrarre ho provato manualmente a ricercare i ritardi attuali e storici degli ultimi 23 casi di ambo rimanente sulla ruota di Bari

Eccoli qua:

16.09.2021 Ba 74.49.82.32.42
20.11.2021 Ba 83.33.23.90.32
14.12.2022 Ba 80.27.30.74.40
20.01.2022 Ba 83.10.63.25.23
12.03.2022 Ba 07.17.77.76.86
15.03.2022 Ba 49.27.37.45.57
19.04.2022 Ba 36.56.61.73.86
28.04.2022 Ba 10.85.30.17.50
09.06.2022 Ba 66.60.49.29.89
02.07.2022 Ba 49.39.86.27.59
30.07.2022 Ba 14.24.28.64.58
26.11.2022 Ba 34.40.63.20.10
29.11.2022 Ba 30.62.81.31.71
03.12.2022 Ba 21.01.70.90.81
18.04.2023 Ba 54.83.84.24.35
16.05.2023 Ba 21.41.15.81.42
03.06.2023 Ba 35.09.59.25.05
29.06.2023 Ba 59.22.52.32.68
04.07.2023 Ba 11.51.12.01.68
07.07.2023 Ba 47.23.18.67.77
08.07.2023 Ba 83.33.60.72.63
14.09.2023 Ba 66.44.15.46.26
07.10.2023 Ba 49.75.35.65.07

Ritardi Attuali 13 casi

20.01.2022 Ba 83.10.63.25.23 - estr 331 ** superato precedente storico
15.03.2022 Ba 49.27.37.45.57 - estr 308
19.04.2022 Ba 36.56.61.73.86 - estr 293
02.07.2022 Ba 49.39.86.27.59 - estr 261
30.07.2022 Ba 14.24.28.64.58 - estr 249
03.12.2022 Ba 21.01.70.90.81 - estr 195
18.04.2023 Ba 54.83.84.24.35 - estr 137
16.05.2023 Ba 21.41.15.81.42 - estr 125
03.06.2023 Ba 35.09.59.25.05 - estr 117
29.06.2023 Ba 59.22.52.32.68 - estr 106
07.07.2023 Ba 47.23.18.67.77 - estr 102
14.09.2023 Ba 66.44.15.46.26 - estr 063
07.10.2023 Ba 49.75.35.65.07 - estr 049

Ambi rimanenti risortiti 10 casi

16.09.2021 Ba 74.49.82.32.42 - estr 315
14.12.2022 Ba 80.27.30.74.40 - estr 312
28.04.2022 Ba 10.85.30.17.50 - estr 180
29.11.2022 Ba 30.62.81.31.71 - estr 093
09.06.2022 Ba 66.60.49.29.89 - estr 088
26.11.2022 Ba 34.40.63.20.10 - estr 088
20.11.2021 Ba 83.33.23.90.32 - estr 075
12.03.2022 Ba 07.17.77.76.86 - estr 067
08.07.2023 Ba 83.33.60.72.63 - estr 047
04.07.2023 Ba 11.51.12.01.68 - estr 011

Ovviamente questi dati sono da verificare dato il controllo effettuato manualmente.

Sperando di essere stato sufficientemente chiaro
un saluto da Limoneverde

mike58

Posted on 3/1/2024, 20:51

Top Member

Group:: Member

Posts:: 559

Status:

Ciao A Tutti del forum e un buon anno 2024.
Limomeverde, ho fatto ex novo uno script che gira su spaziometria, che rintraccia il terno in cadenza e l'ambo rimanente, sul quale poi ne verifico la sortita e non , con i colpi di esito che deteminano lo srtorico o l'attuale ritardo.

Lo script è in Tabella ordinabile per filtrare i dati ricavati secondo l'uso che si vuole vedere.

SPOILER (clicca per visualizzare)

Sub Main
Dim Nu(3),Ru(1),aN(5),T
Ini = EstrazioneFin - 800
fin = EstrazioneFin
T = Array(T,"Conta","Info Data","Ruota","Estratti","Terno In Cadenza","Ambo Rimanete","Verifica","colpo","id","Rit.Att/Sto")
Call InitTabella(T,0,,,5,"Arial Black")
'
For es = Ini To fin
For r = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
Ru(1) = r
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es+1,2,1000,,esito,clp,esa,id)
If esito = "" Then Testo = "Rit.Attuale"
If esito <> "" Then Testo = "Rit.Storico"

T = Array(T,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nu,,1),StringaNumeri(aN,,1),esa,clp,GetInfoEstrazione(id),Testo )
Call AddRigaTabella(T)
End If
Next
Next
Next
Next
Next
'
Call SetTableTitle ("**** Cliccare sulle colonne per ordinamento ascendente - discendente **** ")
CreaTabellaOrdinabile
End Sub

Limoneverde

Posted on 4/1/2024, 16:00

Curioso

Group:: Member

Posts:: 26

Status:

Bravissimo mike58

la tabella è veramente chiara e utile per le mie ricerche

L'unico problema che ho riscontrato è che riesco a controllare l'archivio solo per 2600 estrazioni a ritroso modificando questi due parametri del listato

Ini = Estrazionefin - 2600
Call Verificaesito (aN,Ru,es +1,2,3000,,esito,cip,esa,id)

in quanto con un range più alto mi da un warning " 7 - Out of memory" ma forse dipende dal mio pc.

Comunque grazie mille per l'aiuto

da Limoneverde.

mike58

Posted on 4/1/2024, 19:52

Top Member

Group:: Member

Posts:: 559

Status:

Si !!! Limoneverde non è un tuo errore, ho scelto di metterlo in tabella per agire meglio sugli ordinamenti, ma in tabella c'è un limite di righe che si possono produrre se non erro non oltre le 1300 righe.
Purtroppo riprodurlo in txt si può fare ma è molto più complesso in scrittura e poi gli ordinamenti si devono scegliere a monte dell'elaborazione.
Spero ti vada bene in Tabella altrimenti se ti necessita proverò a riprodurlo in txt per scrivere tutte le estrazioni che si vogliono vedere.

Ciao

mike58

Posted on 4/1/2024, 20:51

Top Member

Group:: Member

Posts:: 559

Status:

LimoneVerde prova il formato Txt , è chiaro ha bisogno di più tempo ma elabora le estrazioni volute.
Resta anche inteso che la scrittura va allineata alla meglio, ma intanto vedi se riesci a performarlo in output ed intanto prova i dati raccolti.

SPOILER (clicca per visualizzare)

Sub Main
Dim Nu(3),Ru(1),aN(5),T,Mat(4005,10)
Ini = EstrazioneFin - 4800
fin = EstrazioneFin
'T = Array(T,"Conta","Info Data","Ruota","Estratti","Terno In Cadenza","Ambo Rimanente","Verifica","colpo","id","Rit.Att/Sto")
'Call InitTabella(T,0,,,5,"Arial Black")
'
For es = Ini To fin
For r = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
Ru(1) = r
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es + 1,2,5000,,esito,clp,esa,id)
If esito = "" Then Testo = "Rit.Attuale"
If esito <> "" Then Testo = "Rit.Storico"
If esito = "" Then esa = "<> --.--.--.--.--"
'
Mat(k,1) = k
Mat(k,2) = GetInfoEstrazione(es)
Mat(k,3) = SiglaRuota(r)
Mat(k,4) = StringaEstratti(es,r,"-")
Mat(k,5) = StringaNumeri(Nu,"-",1)
Mat(k,6) = StringaNumeri(aN,"-",1)
Mat(k,7) = esa
Mat(k,8) = clp
Mat(k,9) = GetInfoEstrazione(id)
Mat(k,10) = Testo

' T = Array(T,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nu,,1),StringaNumeri(aN,,1),esa,clp,GetInfoEstrazione(id),Testo)
' Call AddRigaTabella(T)
End If
Next
Next
Next
Next
Call OrdinaMatrice(Mat,-1,8)
Next
'
ScriviMatrice(Mat)
'Call SetTableTitle("**** Cliccare sulle colonne per ordinamento ascendente - discendente **** ")
'CreaTabellaOrdinabile
End Sub

Limoneverde

Posted on 5/1/2024, 16:16

Curioso

Group:: Member

Posts:: 26

Status:

Grazie Mike58

ho provato anche con il formato Txt ma oltre una certa data non si va.

Probabilmente i dati da elaborare sono troppi e non si riescono ad estrarre tutti insieme
Comunque lo script è ottimo mi fornisce archivi parziali impostando le date.
Pertanto trasferendo i dati parziali in Excel è usando i filtri lo storico lo trovo.

Un saluto da Limoneverde

mike58

Posted on 5/1/2024, 19:07

Top Member

Group:: Member

Posts:: 559

Status:

Chiaramente io ho impostato la Matrice che contiene i Dati a 4005 e chiaro che se forzi + estrazioni oltre questo limite va in errore, puoi vedere di impostarla a 117480 così... quanti sono le combinazioni per i terni da rilevare.

Mat(117480,10)

prova a vedere cosa ottien... è inteso che bisogna modificare anche gli altri parametri collegati quali i colpi etc.etc.

Limoneverde

Posted on 9/1/2024, 18:15

Curioso

Group:: Member

Posts:: 26

Status:

Ciao a tutti

finalmente sono riuscito ad avere una statistica dal 1939 sulle 10 ruote .

Mike 58 dopo innumerevoli prove con tempi d'attesa enormi ho impostato il tuo script con questi
parametri :

Dim Nu(3),Ru(1),aN(5),T,Mat(9000,10)

Ini = EstrazioneFin - 6791 ( numero estrazioni dal 08-07.1939 al 08.01.2024 )

Call VerificaEsito(aN,Ru,es + 1,2,7000,,esito,clp,esa,id)

Poi ho dovuto manualmente elaborare il file .txt togliendo tutte le quaterne e cinquine in cadenza che non potevano essere prese in considerazione per la mancanza dell'ambo rimanente.

Alla fine su 4205 terni elaborati solo 22 volte l'ambo rimanente e andato oltre le 2000 estrazioni :

[05568]---24.09.1977---NA---17-63-13-28-43---17-28---2890---[08458]---19.11.2011--Rit.Storico
[07755]---24.05.2007---CA---88-42-11-22-72---88-11---2610---Rit.Attuale
[05114]---11.01.1969---PA---59-89-64-87-39---64-87---2600---[07714]---17.02.2007
[05312]---28.10.1972---NA---26-07-05-46-86---07-05---2596---[07908]---15.05.2008
[03837]---15.07.1944---GE---40-90-36-50-59---36-59---2475---[06312]---28.12.1991
[03847]---23.09.1944---PA---04-40-74-75-44---40-75---2439---[06286]---29.06.1991
[04120]---17.12.1949---NA---72-11-30-62-82---11-30---2426---[06546]---22.06.1996
[04395]---26.03.1955---NA---17-12-87-80-77---12-80---2251---[06646]---15.10.1997
[04368]---18.09.1954---MI---70-75-38-25-55---70-38---2235---[06603]---17.05.1997
[05983]---07.09.1985---GE---16-36-42-09-26---42-09---2224---[08207]---13.04.2010
[07092]---19.01.2002---VE---72-52-06-12-20---06-20---2222---[09314]---09.05.2017
[08143]---14.11.2009---MI---13-33-51-73-19---51-19---2222---Rit.Attuale
[08023]---07.02.2009---FI ---76-56-55-75-36---55-75---2211---[10235]---11.05.2023
[07629]---03.08.2006---NA---25-90-05-34-85---90-34 ---2167---[09796]---18.07.2020
[08200]---27.03.2010---FI ---21-51-15-23-01---15-23---2165---Rit.Attuale
[04353]---05.06.1954---FI ---11-43-31-01-59---43-59---2149---[06502]---19.08.1995
[06774]---07.01.1999---NA---34-10-70-20-58---34-58---2111---[08885]---12.08.2014
[07697]---09.01.2007---GE---58-87-37-35-07---58-35---2107---[09804]---06.08.2020
[05673]---29.09.1979---MI---50-55-25-65-86---50-86---2100---[07773]---05.07.2007
[07743]---26.04.2007---FI ---75-55-82-17-35---82-17---2015---[09758]---10.03.2020
[06849]---25.09.1999---CA---61-67-29-59-49---61-67---2014---[08863]---21.06.2014
[04261]---30.08.1952---FI ---19-89-44-87-39---44-87---2003---[06264]---26.01.1991

Un saluto da Limoneverde

mike58

Posted on 9/1/2024, 22:28

Top Member

Group:: Member

Posts:: 559

Status:

Ciao Limone purtroppo con OrdinaMatrice e le raccolte in Matrice i tempi si allungano di tanto.
Pensando come rielaboralo ed in Tabella si può mettere un filtro di output i scrittura cosi da non far scrivere tutte le righe trovate ma solo quelle che vogliamo vedere ossia i massimi storici o attuali.
Cosi con pochi secondi elaboriamo delle risultanze gestendo il filtro magari min e massimo.
Con pochi secondi trova i tuoi 21 ambi rimanenti con filtro sup a 2000 e con inizio da 3950 (estrazione con tutte le ruote)
prova

SPOILER (clicca per visualizzare)

Sub Main
Dim Nu(3),Ru(1),aN(5),T
Ini = 3950'EstrazioneFin - 6800
fin = EstrazioneFin
Tot = fin - Ini + 1
T = Array(T,"Conta","Info Data","Ruota","Estratti","Terno In Cadenza","Ambo Rimanente","Verifica","colpo","id","Rit.Att/Sto")
Call InitTabella(T,0,,,5,"Arial Black")
'
ResetTimer
For es = Ini To fin
For r = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
Ru(1) = r
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es + 1,2,Tot,,esito,clp,esa,id)
If esito = "" Then Testo = "Rit.Attuale"
If esito <> "" Then Testo = "Rit.Storico"
If clp > 2000 Then
kk = kk + 1
T = Array(T,kk,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nu,,1),StringaNumeri(aN,,1),esa,clp,GetInfoEstrazione(id),Testo)
Call AddRigaTabella(T)
End If
End If
Next
Next
Next
Next
Next
'
Scrivi "Tempo di Elabrazione : " & TempoTrascorso & Space(20) & "Filtro Impostato = 2000"
Call SetTableTitle("**** Cliccare sulle colonne per ordinamento ascendente - discendente **** ")
CreaTabellaOrdinabile
End Sub

Gam73

Posted on 10/1/2024, 11:04

Top Member

Group:: Administrator

Posts:: 1,713

Status:

Un saluto a Limoneverde e a mike58,
sulla base degli script creati da Mike, ho adattato la versione che segue, che spero vada incontro alle esigenze della ricerca.

Ho cercato di velocizzare il tutto limitando al minimo le info in output.
In testa allo script ho segnato tutte le modifiche/aggiunte fatte.

Unico "limite" è quello di dover fare un copia incolla in Excel per riuscire a ordinare per rit. max.
Credo però che a fronte di 30 secondi di elaborazione (dal 1871) ci possa stare.

Ecco lo script

SPOILER (clicca per visualizzare)

' (#entry669401292)
' Script creato da Mike58 su richiesta di LimoneVerde il 04.01.2024 v. 1.0 - modificato da Gam il 10.01.2024
'
' Aggiunto AvanzamentoElab + InterruzioneScript + ricerca ambo su TUTTE + eliminato casi con CS con Quaterna/Cinquina in Cadenza + TempoTrascorso
'
' Lo script rileva su una ruota la sortita di un TERNO in cadenza e valuta il ritardo STO e ATT dell'ambo residuo su Ruota o a TUTTE
'
Sub Main
Dim Nu(3),Ru(1),aN(5)
Dim eIni,eFin,es
Dim r,p1,p2,p3
Dim a,b,c,k,esito,caso,fine
Dim esa,clp,Testo,id
Dim Statistica_a_TUTTE,Colpi

' 3575 = Archivio dal 08.07.1939 [Lotto a 10 Ruote]
' 3950 = Archivio dal 14.09.1946 [Archivio privo di buchi estrazionali]
' 7440 = Archivio dal 04.05.2005 [ruota N
' 8117 = Archivio dal 15.09.2009 [Tutte le estrazioni con Venus accentrate a MI-NA-RO]

' Max STO a TT = (dal 1871 al 10.10.2024) = 431
' Max STO a TT = (dal 1946 al 10.10.2024) = 323
' Max STO a TT = (dal 2009 al 10.10.2024) = 140

' Max STO a Ruota = (dal 1871 al 10.01.2024) = 3534
' Max STO a Ruota = (dal 1946 al 10.01.2024) = 2612 *** in corso (2600 precedente)

eIni = 3575'8117'10117' EstrazioneFin - 4800
eFin = EstrazioneFin

Statistica_a_TUTTE = 0 'se = 0 ==> Ricerca sortita ambo a Ruota | se = 1 ==> Ricerca sortita ambo a TUTTE

Colpi = 3800 'rimodulare in base al max storico per velocizzare ricerca

For es = eIni To eFin
If ScriptInterrotto Then Exit Sub
Call Messaggio(es)
Call AvanzamentoElab(eIni,eFin,es)
For r = 1 To 12
If r = 11 Then r = 12
caso = 0
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
If caso > 0 Then Exit For
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If a = 0 Then Exit For
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
If Statistica_a_TUTTE = 0 Then
Ru(1) = r
Else
Ru(1) = 11
End If
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es + 1,2,Colpi,,esito,clp,esa,id)
If esito = "" Then Testo = "ATT" & vbTab & "***"
If esito <> "" Then Testo = "STO"
If esito = "" Then esa = "<> --.--.--.--.--"
'
Scrivi FormattaStringa(es,"00000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,"-") & " " & StringaNumeri(Nu,"-",1) & " " & StringaNumeri(aN,"-",1) & " " & FormattaStringa(clp,"0000") & " " & Testo
caso = caso + 1

End If
Next
Next
Next
Next
Next
Scrivi TempoTrascorso
End Sub

I dati sembrano collimare con quelli vostri.
Lo script valuta solo i casi in cui nella CS sia presente un solo TERNO in cadenza, eliminando quindi casi con QUATERNE ecc.
Saluti

mike58

Posted on 10/1/2024, 13:33

Top Member

Group:: Member

Posts:: 559

Status:

Bravo Gam hai velocizzato di tanto (senza indagare dove...) lo metto in matrice con l'ordina matrice i tempi restano validi.

Trovati.... 4560
00:00:20

SPOILER (clicca per visualizzare)

Sub Main
Dim Nu(3),Ru(1),aN(5)
Dim eIni,eFin,es
Dim r,p1,p2,p3
Dim a,b,c,k,esito,caso,fine
Dim esa,clp,Testo,id
Dim Statistica_a_TUTTE,Colpi
Dim Mat(12000,10)

' 3575 = Archivio dal 08.07.1939 [Lotto a 10 Ruote]
' 3950 = Archivio dal 14.09.1946 [Archivio privo di buchi estrazionali]
' 7440 = Archivio dal 04.05.2005 [ruota N
' 8117 = Archivio dal 15.09.2009 [Tutte le estrazioni con Venus accentrate a MI-NA-RO]

' Max STO a TT = (dal 1871 al 10.10.2024) = 431
' Max STO a TT = (dal 1946 al 10.10.2024) = 323
' Max STO a TT = (dal 2009 al 10.10.2024) = 140

' Max STO a Ruota = (dal 1871 al 10.01.2024) = 3534
' Max STO a Ruota = (dal 1946 al 10.01.2024) = 2612 *** in corso (2600 precedente)

eIni = 3575'8117'10117' EstrazioneFin - 4800
eFin = EstrazioneFin
Tot = eFin-eIni+1
Statistica_a_TUTTE = 0 'se = 0 ==> Ricerca sortita ambo a Ruota | se = 1 ==> Ricerca sortita ambo a TUTTE

'Colpi = 3800 'rimodulare in base al max storico per velocizzare ricerca
Titolo = Space(12) & "Info Data di Rilevamento" & Space(10) & "Ru - Estratti" & Space(5) & "Terno in Cad" & Space(1) & "AmboRimasto" & Space(2) & "Colpo" & Space(3) & "ATT/STO"
Scrivi Titolo,1
For es = eIni To eFin
If ScriptInterrotto Then Exit Sub
Call Messaggio(es)
Call AvanzamentoElab(eIni,eFin,es)
For r = 1 To 12
If r = 11 Then r = 12
caso = 0
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
If caso > 0 Then Exit For
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If a = 0 Then Exit For
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
If Statistica_a_TUTTE = 0 Then
Ru(1) = r
Else
Ru(1) = 11
End If
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es + 1,2,tot,,esito,clp,esa,id)
If esito = "" Then Testo = "ATT" & vbTab & "***"
If esito <> "" Then Testo = "STO"
If esito = "" Then esa = "<> --.--.--.--.--"
'
If clp > 0 Then
kk = kk + 1
Mat(kk,1) = FormattaStringa(es,"00000")
Mat(kk,2) = GetInfoEstrazione(es) & " | "
Mat(kk,3) = SiglaRuota(r)
Mat(kk,4) = StringaEstratti(es,r,"-") & " | "
Mat(kk,5) = StringaNumeri(Nu,"-",1) & " | "
Mat(kk,6) = StringaNumeri(aN,"-",1) & " | "
Mat(kk,7) = FormattaStringa(clp,"0000")
Mat(kk,8) = " | " & Testo

'Scrivi FormattaStringa(es,"00000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,"-") & " " & StringaNumeri(Nu,"-",1) & " " & StringaNumeri(aN,"-",1) & " " & FormattaStringa(clp,"0000") & " " & Testo
caso = caso + 1
End If

End If
Next
Next
Next
Next
Next
Call OrdinaMatrice(Mat,-1,7)
ScriviMatrice(Mat)
Scrivi "Trovati.... " & kk,1
Scrivi TempoTrascorso
End Sub

Gam73

Posted on 10/1/2024, 14:10

Top Member

Group:: Administrator

Posts:: 1,713

Status:

Ma come hai fatto? :woot:

Come è possibile? :f:

Meglio così, alla grande dai!

Un saluto

Limoneverde

Posted on 11/1/2024, 18:30

Curioso

Group:: Member

Posts:: 26

Status:

Buonasera a tutti

Non posso che ringraziare Mike58 e Gam per i loro script.

Siete veramente bravissimi !!!

Ho potuto così elaborare un po' di statistiche dal 1939 degli ambi rimanenti su terno di cadenza (C) e poi sono andato a modificare il parametro nello script da cadenza a decina (D) e poi anche figura (F) avendo così complessivamente un maggior numero di dati statistici.

Ecco i risultati :

5416 [05416]---F-----26.10.1974---GE----06-30-69-78-39---06-69-78---30-39---3463 STO
5606 [05606]---F-----17.06.1978---RO----26-19-17-13-89---26-17-89---19-13---3009 STO
5292 [05292]---F-----10.06.1972---BA----01-65-47-74-20---65-47-74---01-20---2981 STO
7431 [07431]---D---- 02.04.2005---RO----07-57-76-08-06---07-08-06---57-76---2935 ATT ***"
4898 [04898]---F-----21.11.1964---CA----77-14-34-23-27---77-14-23---34-27---2910 STO
5558 [05558]---D-----16.07.1977---TO----71-03-39-31-35---39-31-35---71-03---2910 STO
5568 [05568]---C-----24.09.1977---NA----17-63-13-28-43---63-13-43---17-28---2890 STO
6629 [06629]---F-----16.08.1997---TO----77-05-17-04-86---77-05-86---17-04---2728 STO
7755 [07755]---C---- 24.05.2007---CA----88-42-11-22-72---42-22-72---88-11---2611 ATT ***"
3973 [03973]---D---- 22.02.1947---BA----43-10-08-05-03---08-05-03---43-10---2605 STO
4929 [04929]---F-----26.06.1965---TO----61-18-29-38-83---29-38-83---61-18---2600 STO
5114 [05114]---C---- 11.01.1969---PA----59-89-64-87-39---59-89-39---64-87---2600 STO

Come potete notare lo storico dal 1939 appartiene agli ambi rimanenti generati da terni in Figura.

Abbiamo invece lo storico dell'ambo rimanente generato da terni in decina Roma 57-76
che pongo alla Vostra attenzione dato che la circostanza attuale lo vede in ritardo anche a tutte con 100 estrazioni.

Un saluto da Limoneverde

17 replies since 2/1/2024, 18:38 574 views