Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
- Stato
L
LuigiB
Guest
Ciao, con la nuova versione 1.2.46 si puo far girare questo
nuovo script che volendo puo esportare anche i dati in
excel (penso funzioni anche per chi ha openoffice).
Inoltre a differenza dell'altro questo script considera
il range impostato nel programma si per il limite
inferiore che per quello superiore.
Cio' produce risultati diversi nel calcolo delle decine storiche
ma ovviamente non ha impatto sulle decine da giocare i cui
ritardi sono sempre considerati a partire dalla fine
nuovo script che volendo puo esportare anche i dati in
excel (penso funzioni anche per chi ha openoffice).
Inoltre a differenza dell'altro questo script considera
il range impostato nel programma si per il limite
inferiore che per quello superiore.
Cio' produce risultati diversi nel calcolo delle decine storiche
ma ovviamente non ha impatto sulle decine da giocare i cui
ritardi sono sempre considerati a partire dalla fine
Codice:
Option Explicit
Class clsCombinazione
Public Classe ' numeri contenuti nella formazione
Public aNumeri ' numeri che compongono la combinazione
Public aRitardi ' i ritardi negli ultimi cicli voluti dall'utente
Public aRitardiGlob ' ritardi globali della combinazione calcolati da 1 al maxRange
Public aIdEstrRitardi ' contiene gli id delle estrazioni alle quali si è calcolato il ritardo
Public nIdPrimoRitCons ' indice per l'array aRitardiGlob che indica il punto di inizio della serie consecutiva
Public nIdUltimoRitCons' indice per l'array aRitardiGlob che indica il punto di fine della serie consecutiva
Public nSommaUltim5
Public bUltimi5ritMaggDi11
Public bRitCorrMinoreDi12
Public Ruota
Public nRitConsecutiviMax
Public nIdEstrIni ' id Estrazione da cui parrte la serie consecutiva storica
Public nIdEstrFin ' id Estrazione in cui termina la serie consecutiva storica
Sub SetNumeriFromRigaCsv(sRiga)
Dim k
ReDim aV(0)
Call SplitByChar(sRiga,";",aV)
ReDim aNumeri(10)
For k = 1 To 10
If k <= UBound(aV) Then
If IsNumeric(aV(k)) Then
If isNumeroValidoLotto(aV(k)) Then
aNumeri(k) = CInt(aV(k))
Classe = Classe + 1
End If
Else
aNumeri(k) = 0
End If
End If
Next
End Sub
Sub CalcolaTuttiRitardi(inizio,fine,Sorte,aRuote)
ReDim aRitardiGlob(0)
ReDim aIdEstrRitardi(0)
Call ElencoRitardi(aNumeri,aRuote,Sorte,inizio,fine,aRitardiGlob,aIdEstrRitardi)
End Sub
Sub CalcolaRitardi(inizio,fine,Sorte,aRuote,RitardoMinimo,CicliDiRitardo,UltimiRitardiDaConsiderare)
Dim nCicli
Dim k,n
Dim nRitTrovati
Call CalcolaTuttiRitardi(inizio,fine,Sorte,aRuote)
Call GetRitardiConsecMaggioriDiX(RitardoMinimo)
nRitTrovati = UBound(aRitardiGlob)
ReDim aRitardi(CiclidiRitardo)
nCicli = nRitTrovati
For k = CicliDiRitardo To 1 Step - 1
aRitardi(k) = aRitardiGlob(nCicli)
nCicli = nCicli - 1
If nCicli = 0 Then Exit For
Next
nSommaUltim5 = 0
bUltimi5ritMaggDi11 = True
n = 0
For k = CicliDiRitardo - UltimiRitardiDaConsiderare To CicliDiRitardo - 1
n = n + 1
If aRitardi(k) <= RitardoMinimo Then
bUltimi5ritMaggDi11 = False
End If
nSommaUltim5 = nSommaUltim5 + aRitardi(k)
Next
If n < UltimiRitardiDaConsiderare Then
bUltimi5ritMaggDi11 = False
End If
If aRitardi(CicliDiRitardo) > RitardoMinimo Then
bRitCorrMinoreDi12 = False
Else
bRitCorrMinoreDi12 = True
End If
End Sub
Sub GetRitardiConsecMaggioriDiX(RitardoMinimo)
Dim k
Dim nConsec
Dim nConsecMax
Dim nIdEstrA,nIdEstrB
Dim nIdRitA,nIdRitB
Dim nIdEstrATmp,nIdEstrBTmp
Dim nIdRitATmp,nIdRitBTmp
For k = 1 To UBound(aRitardiGlob)
If aRitardiGlob(k) > RitardoMinimo Then
nIdEstrATmp = aIdEstrRitardi(k)
nIdRitATmp = k
nConsec = 0
Do While aRitardiGlob(k) > RitardoMinimo
nConsec = nConsec + 1
nIdEstrBTmp = aIdEstrRitardi(k)
nIdRitBTmp = k
k = k + 1
If k > UBound(aRitardiGlob) Then Exit Do
Loop
If nConsec > nConsecMax Then
nConsecMax = nConsec
nIdEstrA = nIdEstrATmp
nIdEstrB = nIdEstrBTmp
nIdRitA = nIdRitATmp
nIdRitB = nIdRitBTmp
End If
k = k - 1
End If
If ScriptInterrotto Then Exit For
Next
nRitConsecutiviMax = nConsecMax
nIdEstrIni = nIdEstrA
nIdEstrFin = nIdEstrB
nIdPrimoRitCons = nIdRitA
nIdUltimoRitCons = nIdRitB
End Sub
End Class
Sub Main
Dim CollDecine
Dim Ruota,sorte
Dim RangeInizio,RangeFine
Dim RitardoMi
Un grazie a tutti soprattutto al bravissimo LuigiB . Devo dire che non mi aspettavo
un interesse a questo argomento così attivo e mi fa piacere in modo da stimolarmi
a rendere questo tipo di ricerca sempre più importante anche perché aggiornando
il programma ho notato che LuigiB ha implementato questo tipo di ricerca nel
programma stesso e non mi resta che ringraziarlo. La vincita è solo una conseguenza
della ricerca statistica del mondo dei numeri e che può dare diverse soddisfazioni se
affrontato in modo corretto. Ad esempio l’ambo 52.84 era in qualche modo prevedibile?
Si poteva restringere la decina in quartina o cinquina non escludendo nessuno dei
2 numeri? Poi lo vedremo .Adesso concentriamoci a rendere ancora più funzionale
questo gioiellino di programma . Come dicevo prima ho notato che nell’elenco delle
3700 decine ci sono diverse copie ( cioè sono riportate 2 volte) ci sarebbe qualcuno in
grado di scovarle in modo da eliminarle ed Avere solo tutte decine diverse ? Sono in un
elenco Excel. Poi per LuigiB l’ultima cosa da fare allo script per essere perfetto:
si deve capire quando il rit. Max ( che sarebbe meglio si chiamasse Rit. Storico) coincide
con l’ultima serie dei ritardi della decina in questione oppure lo si è avuto in altra
data cioè lo storico dovrebbe essere calcolato escludendo quello in corso perché io
devo sapere la che quella decina prima di quel momento non è mai andata oltre quella
lunghezza di cicli consecutivi e andrebbe differenziata con la dicitura Storico “ in corso”.
Esempio: andando su cicli di ritardo in Spaziometria mettendo la spunta su test e
rit. Min. 11 e ultimi cicli 10 la prima decina che mostra ha un ritardo max di 6 ma
che coincide a quello di adesso ma prima di adesso non ha mai fatto uno storico
di 6 ma di 5 e questo lo si deve capire con “Rit. Storico 5” e magari un’altra colonna “In corso 6” .
Saluti
un interesse a questo argomento così attivo e mi fa piacere in modo da stimolarmi
a rendere questo tipo di ricerca sempre più importante anche perché aggiornando
il programma ho notato che LuigiB ha implementato questo tipo di ricerca nel
programma stesso e non mi resta che ringraziarlo. La vincita è solo una conseguenza
della ricerca statistica del mondo dei numeri e che può dare diverse soddisfazioni se
affrontato in modo corretto. Ad esempio l’ambo 52.84 era in qualche modo prevedibile?
Si poteva restringere la decina in quartina o cinquina non escludendo nessuno dei
2 numeri? Poi lo vedremo .Adesso concentriamoci a rendere ancora più funzionale
questo gioiellino di programma . Come dicevo prima ho notato che nell’elenco delle
3700 decine ci sono diverse copie ( cioè sono riportate 2 volte) ci sarebbe qualcuno in
grado di scovarle in modo da eliminarle ed Avere solo tutte decine diverse ? Sono in un
elenco Excel. Poi per LuigiB l’ultima cosa da fare allo script per essere perfetto:
si deve capire quando il rit. Max ( che sarebbe meglio si chiamasse Rit. Storico) coincide
con l’ultima serie dei ritardi della decina in questione oppure lo si è avuto in altra
data cioè lo storico dovrebbe essere calcolato escludendo quello in corso perché io
devo sapere la che quella decina prima di quel momento non è mai andata oltre quella
lunghezza di cicli consecutivi e andrebbe differenziata con la dicitura Storico “ in corso”.
Esempio: andando su cicli di ritardo in Spaziometria mettendo la spunta su test e
rit. Min. 11 e ultimi cicli 10 la prima decina che mostra ha un ritardo max di 6 ma
che coincide a quello di adesso ma prima di adesso non ha mai fatto uno storico
di 6 ma di 5 e questo lo si deve capire con “Rit. Storico 5” e magari un’altra colonna “In corso 6” .
Saluti
L
LuigiB
Guest
ancora una variante
- mostra se i rit consecutivi attuali coincidono con i valori storici
- esclude automaticamente le combinazioni ripetute anche se queste sono presenti nel file input
per Claudio : non ho capito ...
- mostra se i rit consecutivi attuali coincidono con i valori storici
- esclude automaticamente le combinazioni ripetute anche se queste sono presenti nel file input
per Claudio : non ho capito ...
Codice:
Option Explicit
Class clsCombinazione
Public Classe ' numeri contenuti nella formazione
Public aNumeri ' numeri che compongono la combinazione
Public aRitardi ' i ritardi negli ultimi cicli voluti dall'utente
Public aRitardiGlob ' ritardi globali della combinazione calcolati da 1 al maxRange
Public aIdEstrRitardi ' contiene gli id delle estrazioni alle quali si è calcolato il ritardo
Public nIdPrimoRitCons ' indice per l'array aRitardiGlob che indica il punto di inizio della serie consecutiva
Public nIdUltimoRitCons' indice per l'array aRitardiGlob che indica il punto di fine della serie consecutiva
Public nSommaUltim5
Public bUltimi5ritMaggDi11
Public bRitCorrMinoreDi12
Public Ruota
Public nRitConsecutiviMax
Public nIdEstrIni ' id Estrazione da cui parrte la serie consecutiva storica
Public nIdEstrFin ' id Estrazione in cui termina la serie consecutiva storica
Public EstrazioneInizio
Public EstrazioneFine
Public UltimiRitCons
Sub SetNumeriFromRigaCsv(sRiga)
Dim k
ReDim aV(0)
Call SplitByChar(sRiga,";",aV)
ReDim aNumeri(10)
For k = 1 To 10
If k <= UBound(aV) Then
If IsNumeric(aV(k)) Then
If isNumeroValidoLotto(aV(k)) Then
aNumeri(k) = CInt(aV(k))
Classe = Classe + 1
End If
Else
aNumeri(k) = 0
End If
End If
Next
End Sub
Sub CalcolaTuttiRitardi(inizio,fine,Sorte,aRuote)
ReDim aRitardiGlob(0)
ReDim aIdEstrRitardi(0)
Call ElencoRitardi(aNumeri,aRuote,Sorte,inizio,fine,aRitardiGlob,aIdEstrRitardi)
End Sub
Sub CalcolaRitardi(inizio,fine,Sorte,aRuote,RitardoMinimo,CicliDiRitardo,UltimiRitardiDaConsiderare)
Dim nCicli
Dim k,n
Dim nRitTrovati
EstrazioneInizio = inizio
EstrazioneFine = fine
Call CalcolaTuttiRitardi(inizio,fine,Sorte,aRuote)
Call GetRitardiConsecMaggioriDiX(RitardoMinimo)
Call GetQUltimiRitCons (RitardoMinimo)
nRitTrovati = UBound(aRitardiGlob)
ReDim aRitardi(CiclidiRitardo)
nCicli = nRitTrovati
For k = CicliDiRitardo To 1 Step - 1
aRitardi(k) = aRitardiGlob(nCicli)
nCicli = nCicli - 1
If nCicli = 0 Then Exit For
Next
nSommaUltim5 = 0
bUltimi5ritMaggDi11 = True
n = 0
For k = CicliDiRitardo - UltimiRitardiDaConsiderare To CicliDiRitardo - 1
n = n + 1
If aRitardi(k) <= RitardoMinimo Then
bUltimi5ritMaggDi11 = False
End If
nSommaUltim5 = nSommaUltim5 + aRitardi(k)
Next
If n < UltimiRitardiDaConsiderare Then
bUltimi5ritMaggDi11 = False
End If
If aRitardi(CicliDiRitardo) > RitardoMinimo Then
bRitCorrMinoreDi12 = False
Else
bRitCorrMinoreDi12 = True
End If
End Sub
Sub GetRitardiConsecMaggioriDiX(RitardoMinimo)
Dim k
Dim nConsec
Dim nConsecMax
Dim nIdEstrA,nIdEstrB
Dim nIdRitA,nIdRitB
Dim nIdEstrATmp,nIdEstrBTmp
Dim nIdRitATmp,nIdRitBTmp
For k = 1 To UBound(aRitardiGlob)
If aRitardiGlob(k) > RitardoMinimo Then
nIdEstrATmp = aIdEstrRitardi(k)
nIdRitATmp = k
nConsec = 0
Do While aRitardiGlob(k) > RitardoMinimo
nConsec = nConsec + 1
nIdEstrBTmp = aIdEstrRitardi(k)
nIdRitBTmp = k
k = k + 1
If k > UBound(aRitardiGlob) Then Exit Do
Loop
If nConsec > nConsecMax Then
nConsecMax = nConsec
nIdEstrA = nIdEstrATmp
nIdEstrB = nIdEstrBTmp
nIdRitA = nIdRitATmp
nIdRitB = nIdRitBTmp
End If
k = k - 1
End If
If ScriptInterrotto Then Exit For
Next
nRitConsecutiviMax = nConsecMax
nIdEstrIni = nIdEstrA
nIdEstrFin = nIdEstrB
nIdPrimoRitCons = nIdRitA
nIdUltimoRitCons = nIdRitB
End Sub
Sub CalcolaEsito(Sorte,RetEsito,RetColpi,RetEstratti)
ReDim aRuote(1)
aRuote(1) = Ruota
RetEsito = ""
RetColpi = 0
RetEstratti = ""
L
LuigiB
Guest
ahah piu che sei Magico</u> preferisco sei Mitico</u> ... eheheh forse qualcuno
puo capire perche preferisco l'altro aggettivo ... comunque grazie !
puo capire perche preferisco l'altro aggettivo ... comunque grazie !
E' andato tutto Ok. sono riuscito a scaricare l'aggiornamento ed adesso faccio girare lo script che prima mi dava errore.
Buona Pasqua l'hai capito?
ciao
Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
Ho cominciato a fare delle verifiche andando
a ritroso di 6 estrazioni e i risultati mi
sembramo buoni. Che ne pensi Claudio8 ?
Solo che se volessi fare un controllo non
sulle successive 6 estrazione ma dalla sesta
estrazione in poi questo non si può fare o mi sbaglio?
Forse dallo script che ho chiesto a Claudio8
si potrà fare ? Per poter continuare a studiare
queste decine ho bisogno di esportare l'elenco
delle uscite di tutte ( o parte di esse)
le decine in archivio (per esempio se si va su
Statistiche > su formazioni > statistica veloce
e digitando una decina qualsiasi nel
riquadro "elenco uscite" mi servirebbe esportare quei
dati). E' una cosa fattibile? Grazie in anticipo.
Lippo
Saluti
a ritroso di 6 estrazioni e i risultati mi
sembramo buoni. Che ne pensi Claudio8 ?
Solo che se volessi fare un controllo non
sulle successive 6 estrazione ma dalla sesta
estrazione in poi questo non si può fare o mi sbaglio?
Forse dallo script che ho chiesto a Claudio8
si potrà fare ? Per poter continuare a studiare
queste decine ho bisogno di esportare l'elenco
delle uscite di tutte ( o parte di esse)
le decine in archivio (per esempio se si va su
Statistiche > su formazioni > statistica veloce
e digitando una decina qualsiasi nel
riquadro "elenco uscite" mi servirebbe esportare quei
dati). E' una cosa fattibile? Grazie in anticipo.
Lippo
Saluti
X Lippo
Potresti elencare le estrazioni dal 1° marzo 2001 in cui si rilevano le decine con 7 ritardi cosecutivi > di 11 in modo che si possa valutare se vi sono indici di potenzali esiti positivi?
Grazie
Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
Potresti elencare le estrazioni dal 1° marzo 2001 in cui si rilevano le decine con 7 ritardi cosecutivi > di 11 in modo che si possa valutare se vi sono indici di potenzali esiti positivi?
Grazie
Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
Vorrei, se lo hai fatto, l'elenco delle date e ruote in cui hai riscontrato la presenza di casi delle decine in questione. (parametri 11-11-7)
Dalle elaborazioni dello script si ottiene questo listato:
Codice:
Sono mostrate le combinazioni i cui ultimi 7 ritardi sono maggiori di 11 ordinate per somma ultimi ritardi
N° Combinazione Ruota R1 R2 R3 R4 R5 R6 R7 R8 R9 R10 R.A. Tot.R4-R10 Data analisi RitCons StoRit Cons STATO Esito Colpi Numeri
1 90.7.14.21.28.35.42.49.56.63 Bari 10 8 0 33 23 14 13 18 52 16 9 169 12.03.2011 7 7 In corso 18
2 38.75.22.59.6.43.80.27.64.11 Bari 2 15 25 23 19 15 17 12 14 28 3 128 12.03.2011 9 9 In corso Ambo 4 BA 27 22 .. .. ..combinazioni con i magg. cicli di ritardo.
Mi occorre saper dal 01/03/2011 (o precedenti se vi sono pochicasi),le date e le ruote che presentano, le decine ricercate.
Sostanzialmente i casi in cui sono state rilevate.
Grazie
Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
Purtoppo non ho dispongo dell'elenco che mi chiedi.
Come ho detto precedentemente verrei realizzarlo in
excel ma mi servono tutti gli elenchi dei ritardi delle
decine in archivio e poi io in excel posso fare tutte le
verifiche e ricerche possibili.Ma come si fa ad avere
l'elenco di tutti i ritardi delle decine incolonnate?
Lippo
Saluti
Come ho detto precedentemente verrei realizzarlo in
excel ma mi servono tutti gli elenchi dei ritardi delle
decine in archivio e poi io in excel posso fare tutte le
verifiche e ricerche possibili.Ma come si fa ad avere
l'elenco di tutti i ritardi delle decine incolonnate?
Lippo
Saluti
Per Luigi8
Mi è venuta in mente un’idea che se messa in pratica sarebbe straordinaria!
Perché questo ciclo di 11 estrazioni di controllo deve essere fisso da 0 a 11
e non lo facciamo scorrere lungo i ritardi? Nel senso che una decina può non essere
ritardata nel ciclo 0-11 ma potrebbe essere ritardata nel ciclo 1-12 oppure 2-13.
Che dici Luigi8 lo si fa perché non lo ha nessun programma che io conosca e sarebbe
una ricerca statisticamente interessante
Lippo
Saluti
Mi è venuta in mente un’idea che se messa in pratica sarebbe straordinaria!
Perché questo ciclo di 11 estrazioni di controllo deve essere fisso da 0 a 11
e non lo facciamo scorrere lungo i ritardi? Nel senso che una decina può non essere
ritardata nel ciclo 0-11 ma potrebbe essere ritardata nel ciclo 1-12 oppure 2-13.
Che dici Luigi8 lo si fa perché non lo ha nessun programma che io conosca e sarebbe
una ricerca statisticamente interessante
Lippo
Saluti
L
LuigiB
Guest
scusa ma per l'elenco di tutte le decine non le puoi esportatre
dalal funzione del programma dei cicli di ritardo ?
C'è una formazione che si chiama decineLippo , sono le tue 3700 decine ridotte a 3300 senza ripetizioni , elabori la statistica e poi col pulsantino la esporti in excel.
Per l'altra cosa non ho capito ...
ciao
dalal funzione del programma dei cicli di ritardo ?
C'è una formazione che si chiama decineLippo , sono le tue 3700 decine ridotte a 3300 senza ripetizioni , elabori la statistica e poi col pulsantino la esporti in excel.
Per l'altra cosa non ho capito ...
ciao
Lo so Luigi le ho viste ma mi esporta fino agli ultimi
50 ritardi e non tutti i ritardi che sono disponibili nel
range di spaziometria.
Per l'altra ricerca mi spiego meglio:adesso il programma
mi controlla solo la fascia di ritardi copresa da 0 a 11
azzerandosi quindi ogni volta che una decina da l'ambo in
questa fascia ma per esempio se una decina ha dato l'ambo
per 5/6 volte consecutivamente quando aveva un ritardo di
1(uno) questa decina sarà giocabile perchè sarà in ritardo
non sulla fascia o ciclo 0-11 ma sulla 2-13 ( dal ritardo 2
al ritardo 13).Fammi sapere se hai capito.
Lippo
Saluti
50 ritardi e non tutti i ritardi che sono disponibili nel
range di spaziometria.
Per l'altra ricerca mi spiego meglio:adesso il programma
mi controlla solo la fascia di ritardi copresa da 0 a 11
azzerandosi quindi ogni volta che una decina da l'ambo in
questa fascia ma per esempio se una decina ha dato l'ambo
per 5/6 volte consecutivamente quando aveva un ritardo di
1(uno) questa decina sarà giocabile perchè sarà in ritardo
non sulla fascia o ciclo 0-11 ma sulla 2-13 ( dal ritardo 2
al ritardo 13).Fammi sapere se hai capito.
Lippo
Saluti
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 30 ottobre 2025Bari5307127721Cagliari1774246944Firenze0847258333Genova0268294367Milano8490754572Napoli4906091220Palermo1365348607Roma1502101383Torino5967803526Venezia7304067427Nazionale6279383648Estrazione Simbolotto
0701281233
