Complimentissimi per il tuo lodevole contributo "convergenziale" ma anche a iLegend che nonostante tutto non si e' fermato nello sviluppo dello script. Complimenti anche per il "mezzo" ambo asteriscato
👍😄🤪🤣
🥂 Ein hoch auf uns!Ahahah mi ha fatto morire ilegend con lo spritz
Bhe... che dire come varo non è stato niente male! 🤔
quaterna a colpo in 15ina incmax doc
quaterna a colpo nei convergenti con rookie
+ ambi su TT ecc..
l'unica pecca è stata come per altro avevo purtroppo ipotizzato che del gu di classe 11 è uscito pure il 44 che avevo escluso 😬😆
Ad ogni modo come primo varo non poteva andare meglio... 😜
Squadra winner 💪💪💪😎 🍾🥂 brindiamo a noi! 👌👍👏😄
Vedi l'allegato 2244047
Complimenti Tom, anche, pure e sopratutto, per averci creduto!Ahahah mi ha fatto morire ilegend con lo spritz
Bhe... che dire come varo non è stato niente male! 🤔
quaterna a colpo in 15ina incmax doc
quaterna a colpo nei convergenti con rookie
+ ambi su TT ecc..
l'unica pecca è stata come per altro avevo purtroppo ipotizzato che del gu di classe 11 è uscito pure il 44 che avevo escluso 😬😆
Ad ogni modo come primo varo non poteva andare meglio... 😜
Squadra winner 💪💪💪😎 🍾🥂 brindiamo a noi! 👌👍👏😄
Vedi l'allegato 2244047
Altro sviluppo della matrice di classe 15 mentre aspetto i vostri...
Se la precedente 15ina "scelta" ha attualmente diff=0 incmax=0 questa è stata ricavata impostando come filtro incmax > 0 e poi scegliendo quella tra le 12 sole risultanze avente teorica maggior stabilità comportamentale di questo parametro con incmax attuale pari a quello storico e in questo specifico caso pari a 6 analizzando la situazione dal 1871.
Analisi incremento ritardo massimo per la sorte di Ambo
Sulla ruota di : RO
Da Estrazione : [00001] [ 1 ] 07.01.1871
A Estrazione : [10146] [123] 13.10.2022
Numeri Formazione : 16.17.18.38.41.44.54.59.66.73.78.83.84.85.86
Ritardo attuale : 36
Ritardo Massimo storico : 36
Frequenza : 2685
Incremento del ritardo massimo attuale : 6
Incremento del ritardo massimo storico più alto : 6
Stringa degli incrementi : 02.02.01.06.06.03.01.01.04.04.06
Ecco i report primario... da qui discende poi la scelta soprastante...
Ruota analizzata: RO
Sorte di ricerca 2
1| 01.02.03.08.09.28.29.30.31.65.66.74.78.80.84 | 39 | 38 | 1976 | 04.08.12.06.01 | 1 | 0
2| 01.02.03.11.15.16.29.47.50.54.58.67.71.72.85 | 34 | 33 | 1952 | 01.01.03.06.02.03.08.03.04.01 | 1 | 1
3| 06.10.16.29.30.32.38.49.50.52.57.76.78.80.83 | 39 | 31 | 1894 | 10.03.04.02.11.08 | 8 | 2
4| 06.10.16.29.30.32.39.40.43.44.50.60.64.80.83 | 40 | 32 | 1969 | 02.02.03.01.03.05.15.08 | 8 | 3
5| 07.08.09.35.36.47.48.55.56.59.60.71.72.75.76 | 33 | 30 | 1896 | 07.03.07.07.01.01.02.03 | 3 | 4
6| 07.08.09.37.41.46.50.51.55.60.64.69.73.78.82 | 32 | 30 | 1958 | 03.05.06.08.01.02 | 2 | 5
7| 07.08.09.38.39.43.50.51.58.62.63.70.71.75.82 | 33 | 30 | 1948 | 04.14.02.04.02.02.03 | 3 | 6
8| 08.09.11.16.20.26.36.44.48.50.55.66.74.85.87 | 32 | 31 | 1969 | 02.08.12.02.01.01 | 1 | 7
9| 08.13.14.16.22.26.29.30.31.32.35.56.63.76.90 | 39 | 28 | 1960 | 04.03.05.01.06.02.02.11 | 11 | 8
10| 08.13.14.16.22.26.29.30.31.32.37.41.60.73.83 | 37 | 36 | 1936 | 04.03.05.06.15.02.01 | 1 | 9
11| 08.13.14.16.22.26.29.30.31.32.43.55.63.83.88 | 37 | 33 | 1942 | 02.06.05.10.03.01.04 | 4 | 10
12| 08.13.14.16.22.26.29.30.31.32.48.55.57.60.66 | 40 | 38 | 1897 | 03.01.03.04.01.12.05.01.05.02.02 | 2 | 11
13| 16.17.18.38.41.44.54.59.66.73.78.83.84.85.86 | 36 | 30 | 2011 | 02.01.06.06.03.01.01.04.04.06 | 6 | 12
Formazioni Filtrate : 13 in 00:00:00
Un'altra curiosità riguardo la stessa matrice, che forse potrebbe tornarci utile, è che non ha al momento nessun valore di ra > 40 anche se il suo storico dal 1871 ha superato anche le 66 estrazioni... Alla luce di questo punto se rimanesse tale sarebbero da monitorare anche le rispettive 15ine con il 40 (ra) in grassetto...
👋
Nessuna Certezza Solo Poca Probabilità
Quindi se ci fate un pensierino... noi non facciamo il test di entrata... ) anche tre o più punti sulla ruota target di riferimento riguardo la mia 15ina incmax doc con ra=rs=36 e incmax att=sto=6 ripetuto 3 volte... a cui aggiungo solamente che se l'ra 40 non venisse presto superato dovremmo prestare attenzione per A in 15ina anche a quel segnalino che potrebbe rappresentare appunto, almeno temporaneamente, un possibile limite di valico...
Niente di mirabolante , i ( 23 numeri a Rs = 1 ) fanno acqua.
Mentre aspettiamo la proposta di ilegend vi posto il mio tentativo elaborazionale valido solo un colpo. Ricordo a noi tutti che l'obiettivo di questo thread, anche se siamo andati tutti fuori tema ma in modo molto interessante, è quello di cercare in modo + continuativo possibile ambo a colpo su ruota unica in micro lunghetta di classe<= 20 ca... L'idea originale era di velocizzare l'analisi di una matrice corposa di 100k o righe rilevandone per ogni estrazione una formazione che avesse uno dei 4 parametri estremi (ra max o ra min o fq min, o fq max) ma sembra che sia rimasta solo la possibilità di condividere il mio script x cercare di ottimizzarlo insieme per questo aspetto visto che rispetto a quanto da voi proposto finora riesce a fare tutto ma appunto in tempi brevi solo per matrici di 2000 k righe al massimo... mentre dovrebbe riuscire ad operare su matrici di 100k o + righe in al massimo 1 ora...
Ciao Tom , lo script che ti ho proposto velocizza al massimo rispetto ai tempi che avevi postato inizialmente.
ci ho provato più volte.
Ciao Tom , lo script che ti ho proposto velocizza al massimo rispetto ai tempi che avevi postato inizialmente.
Se allo script chiedi di trovare uno storico minore di 20 estrazioni lui filtra , ma se tu chiedi contemporaneamente di cercare lunghette che avviano ritardo storico < 20 e freq =0
Oppure freqmin>10 and freqmax=5
Lo script non restituisce niente in and
Mentre in or ti restituisce tutte le lunghette.
Tom se lo script che hai è quello che abbiamo fatto con e insieme a LuigiB, è già ottimizzato al massimo, e non sposterei neanche una virgola neanche nei commenti. Per me è questione di rispetto, non solo verso luigi ,ma verso qualsiasi altro script.
Se lo script è tuo , sono sicuro che non riuscirei a capire,
Se possibile il tuo script io non potrei ottimizzarlo.
Option Explicit
Sub Main
Dim k,y
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot
'By Lotto_tom75 - Rilevatore su ruote separate e file txt di parametri voluti per qualsiasi sorte per 'qualsiasi classe presente nel txt importato e rilevamento ra o fq max o min voluti con verificatore 'integrato.
Fine = EstrazioneFin
Dim ramaxrilevato
Dim fqmaxrilevata
Dim raminrilevato
Dim fqminrilevata
Dim stringaramaxrilevato
Dim stringafqmaxrilevata
Dim stringaraminrilevato
Dim stringafqminrilevata
Dim ramaxrilevatoconfiltrook
Dim fqmaxrilevataconfiltrook
Dim raminrilevatoconfiltrook
Dim fqminrilevataconfiltrook
Dim stringaramaxrilevatoconfiltrook
Dim stringafqmaxrilevataconfiltrook
Dim stringaraminrilevatoconfiltrook
Dim stringafqminrilevataconfiltrook
Dim colpomassimogeneralerilevato
colpomassimogeneralerilevato = 0
Dim colpomassimovalutandole4risultanzeunite
colpomassimovalutandole4risultanzeunite = 0
Dim soglialimitevoluta
soglialimitevoluta = CInt(InputBox("soglia limite voluta? (x tempo di sfaldamento) ",,1))
Dim valoresoglianonsuperato
Dim contasuperamentisoglia
contasuperamentisoglia = 0
Dim Indiceconsecutivitanegativa
Indiceconsecutivitanegativa = 0
Dim Valoremassimoconsecutivitanegativa
Valoremassimoconsecutivitanegativa = 0
Dim contatoreconsecutivitanegativa
contatoreconsecutivitanegativa = 0
Dim Valorecolpomassimoxfqmassima
Valorecolpomassimoxfqmassima = 0
Dim Valorecolpomassimoxfqminima
Valorecolpomassimoxfqminima = 0
Dim Valorecolpomassimoxramax
Valorecolpomassimoxramax = 0
Dim Valorecolpomassimoxramin
Valorecolpomassimoxramin = 0
Dim Valorecolpomassimoxdiff0incmax0
Valorecolpomassimoxdiff0incmax0 = 0
Dim colpirestantirispettocolpomassimoxfqmax
Dim colpirestantirispettocolpomassimoxfqmin
Dim colpirestantirispettocolpomassimoxramax
Dim colpirestantirispettocolpomassimoxramin
Dim colpirestantirispettocolpomassimoxdiff0incmax0
Dim colpirestantiminimixfqmax
colpirestantiminimixfqmax = EstrazioneFin
Dim Formazioneconcolpirestantiminimixfqmax
Dim numesxfqmax
Dim colpirestantiminimixfqmin
colpirestantiminimixfqmin = EstrazioneFin
Dim Formazioneconcolpirestantiminimixfqmin
Dim numesxfqmin
Dim colpirestantiminimixramax
colpirestantiminimixramax = EstrazioneFin
Dim Formazioneconcolpirestantiminimixramax
Dim numesxramax
Dim colpirestantiminimixramin
colpirestantiminimixramin = EstrazioneFin
Dim Formazioneconcolpirestantiminimixramin
Dim numesxramin
Dim colpirestantiminimixdiff0incmax0
colpirestantiminimixdiff0incmax0 = EstrazioneFin
Dim Formazioneconcolpirestantiminimixdiff0incmax0
Dim numesxdiff0incmax0
'inizializzazione dei valori estremi
ramaxrilevato = 0
fqmaxrilevata = 0
raminrilevato = EstrazioneFin
fqminrilevata = EstrazioneFin
'ReDim aNum(0)
'QuantitaNumeriScelti = ScegliNumeri(aNum)
Dim sfile
sfile = ScegliFile(".\",".txt","lunghette.txt")
ReDim aRuoteSel(12)
RuoteSelezionate = ScegliRuote(aRuoteSel)
nSorte = CInt(InputBox("sorte di ricerca",,3))
Dim estrazioneprogressiva
Dim numeroestrazionidaverificare
Dim sortediverifica
Dim colpidiverifica
Dim esitoverifica
Dim estrattiverifica
Dim idestrazioneverifica
Dim Inizioverifica
Dim colpouscitanumero
Dim casipositivixramin
Dim casinegativixramin
Dim casipositivixramax
Dim casinegativixramax
Dim casipositivixfqmin
Dim casinegativixfqmin
Dim casipositivixfqmax
Dim casinegativixfqmax
Dim casipositivixdiff0incmax0
Dim casinegativixdiff0incmax0
Dim colpomassimoxramin
Dim colpomassimoxramax
Dim colpomassimoxfqmin
Dim colpomassimoxfqmax
Dim colpomassimoxdiff0incmax0
colpomassimoxramin = 0
colpomassimoxramax = 0
colpomassimoxfqmin = 0
colpomassimoxfqmax = 0
colpomassimoxdiff0incmax0 = 0
numeroestrazionidaverificare = CInt(InputBox("numero estrazioni da verificare",,100))
sortediverifica = CInt(InputBox("sorte di verifica",,2))
colpidiverifica = CInt(InputBox("colpi di verifica",,18))
Inizioverifica = EstrazioneFin - numeroestrazionidaverificare
Scrivi
Call Scrivi(" Elaborazione effettuata con archivio lotto aggiornato al " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
Scrivi
For k = 1 To RuoteSelezionate
Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
Next
Scrivi
Scrivi
Dim contatore
For estrazioneprogressiva = Inizioverifica To EstrazioneFin
'Call Messaggio("Lettura file di testo" & " ruota elaborata " & NomeRuota(aRuoteSel(1)) )
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sfile,aRighe)
For y = 0 To UBound(aRighe)
If aRighe(y) <> "" Then
ReDim aNum(0)
'Call SplitByChar(aRighe(y),".",aNum) -> da risultato errato
'Call SplitByChar("." & aRighe(y),".",aNum)
Call SplitByChar("." & aRighe(y),".",aNum)
contatore = contatore + 1
'nSorte = 3
ReDim aRuoteTmp(1)
For k = 1 To RuoteSelezionate
aRuoteTmp(1) = aRuoteSel(k)
Call StatisticaFormazioneTurbo(aNum,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,estrazioneprogressiva)
Dim ricercasuruotaenumero
ricercasuruotaenumero = StringaNumeri(aRuoteTmp)
If RetRit1 <= raminrilevato Then
raminrilevato = RetRit1
stringaraminrilevato = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
Dim vettoreraminxverifica
' Call SplitByChar(StringaNumeri(aNum),".",vettoreraminxverifica)
'
'
' Call VerificaEsito(vettoreraminxverifica,aRuoteTmp,estrazioneprogressiva+1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
'
' If esitoverifica <> "" Then
' Scrivi "<font color=green size=1>OK</font>" & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero
' Else
' Scrivi "<font color=red size=2>NO</font>"
' End If
End If
If RetFreq <= fqminrilevata Then
fqminrilevata = RetFreq
stringafqminrilevata = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
Dim vettorefqminxverifica
Call SplitByChar(StringaNumeri(aNum),".",vettorefqminxverifica)
End If
If RetRit1 >= ramaxrilevato Then
ramaxrilevato = RetRit1
stringaramaxrilevato = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
Dim vettoreramaxxverifica
Call SplitByChar(StringaNumeri(aNum),".",vettoreramaxxverifica)
End If
If RetFreq >= fqmaxrilevata Then
fqmaxrilevata = RetFreq
stringafqmaxrilevata = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
Dim vettorefqmaxxverifica
Call SplitByChar(StringaNumeri(aNum),".",vettorefqmaxxverifica)
End If
Call Messaggio(SiglaRuota(aRuoteTmp(1)) & " riga n. " & y & " sorte " & nSorte & " trovate " & trovate & " ides " & estrazioneprogressiva)
' Call Messaggio("Lettura file di testo" & " ruota elaborata " & NomeRuota(aRuoteTmp(1)) & " riga n. " & y & " sorte " & nSorte & " trovate " & trovate)
Dim Diff
Dim trovate
Diff = RetRitMax - RetRit1
If(RetRit1 >= 0 And Diff = 0 And RetFreq > 0 And RetIncrRitMax = 0) Then' And RetIncrRitMax = 0) Then
trovate = trovate + 1
Dim vettorediff0incmax0xverifica
Call SplitByChar(StringaNumeri(aNum),".",vettorediff0incmax0xverifica)
Dim Stringadiff0incmax0
Stringadiff0incmax0 = StringaNumeri(aNum)
'rilevamento formazioni con valori estremi e soddisfacenti il filtro
If RetRit1 <= raminrilevatoconfiltrook Then
raminrilevatoconfiltrook = RetRit1
stringaraminrilevatoconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
End If
If RetFreq <= fqminrilevataconfiltrook Then
fqminrilevataconfiltrook = RetFreq
stringafqminrilevataconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
End If
If RetRit1 >= ramaxrilevatoconfiltrook Then
ramaxrilevatoconfiltrook = RetRit1
stringaramaxrilevatoconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
End If
If RetFreq >= fqmaxrilevataconfiltrook Then
fqmaxrilevataconfiltrook = RetFreq
stringafqmaxrilevataconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
End If
'----------------------------------------------------------------------------
'Call Scrivi(StringaNumeri(aNum) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff & " sorte: " & nSorte)
End If
Call AvanzamentoElab(0,UBound(aRighe),contatore)
Dim x
'If x Mod 100 = 0 Then
'Call Messaggio("Colonna : " & x)
If ScriptInterrotto Then Exit For
'Call AvanzamentoElab(0,UBound(aRighe),1)
'End If
If ScriptInterrotto Then Exit For
Next
End If
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(aRighe),y)
Next
'Loop
'End If
Scrivi
Scrivi "<font color=red size=5>ANALISI PER ESTRAZIONE NUMERO <strong>" & estrazioneprogressiva & "</strong></font>"
Call Scrivi
Scrivi "Trovate " & trovate
Scrivi
Scrivi "ramax " & ramaxrilevato
Scrivi "fqmax " & fqmaxrilevata
Scrivi "ramin " & raminrilevato
Scrivi "fqmin " & fqminrilevata
Scrivi
Scrivi stringaramaxrilevato
Scrivi stringafqmaxrilevata
Scrivi stringaraminrilevato
Scrivi stringafqminrilevata
ReDim ruotediverifica(1) 'ruotediverifica(11)
' ruotediverifica(1) = BA_
' ruotediverifica(2) = CA_
' ruotediverifica(3) = FI_
' ruotediverifica(4) = GE_
' ruotediverifica(5) = MI_
' ruotediverifica(6) = NA_
' ruotediverifica(7) = PA_
ruotediverifica(1) = aRuoteTmp(1)
' ruotediverifica(9) = TO_
' ruotediverifica(10) = VE_
' ruotediverifica(11) = NZ_
Dim verificasuruotaenumero
verificasuruotaenumero = StringaNumeri(ruotediverifica)
' verifica x ra min ---------------------------------------------------------------------------------------
Call SplitByChar(stringaraminrilevato,".",vettoreraminxverifica)
Call VerificaEsito(vettoreraminxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
If esitoverifica <> "" Then
Scrivi "<font color=green size=3>OK x la formazione ra min " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
casipositivixramin = casipositivixramin + 1
If colpouscitanumero > colpomassimoxramin Then
colpomassimoxramin = colpouscitanumero
If colpomassimoxramin > colpomassimogeneralerilevato Then
colpomassimogeneralerilevato = colpouscitanumero
End If
End If
Else
Scrivi "<font color=red size=2>NO x la formazione ra min</font>"
casinegativixramin = casinegativixramin + 1
colpirestantirispettocolpomassimoxramin = Valorecolpomassimoxramin -(Fine - estrazioneprogressiva)
Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x ra min " & colpirestantirispettocolpomassimoxramin
If colpirestantirispettocolpomassimoxramin < colpirestantiminimixramin Then
colpirestantiminimixramin = colpirestantirispettocolpomassimoxramin
Formazioneconcolpirestantiminimixramin = StringaNumeri(vettoreraminxverifica)
numesxramin = estrazioneprogressiva
End If
End If
'-----------------------------------------------------------------------------------------------------------
' verifica x ra max ---------------------------------------------------------------------------------------
Call SplitByChar(stringaramaxrilevato,".",vettoreramaxxverifica)
Call VerificaEsito(vettoreramaxxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
If esitoverifica <> "" Then
Scrivi "<font color=green size=3>OK x la formazione ra max " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
casipositivixramax = casipositivixramax + 1
If colpouscitanumero > colpomassimoxramax Then
colpomassimoxramax = colpouscitanumero
If colpomassimoxramax > colpomassimogeneralerilevato Then
colpomassimogeneralerilevato = colpouscitanumero
End If
End If
Else
Scrivi "<font color=red size=2>NO x la formazione ra max </font>"
casinegativixramax = casinegativixramax + 1
colpirestantirispettocolpomassimoxramax = Valorecolpomassimoxramax -(Fine - estrazioneprogressiva)
Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x ra max " & colpirestantirispettocolpomassimoxramax
If colpirestantirispettocolpomassimoxramax < colpirestantiminimixramax Then
colpirestantiminimixramax = colpirestantirispettocolpomassimoxramax
Formazioneconcolpirestantiminimixramax = StringaNumeri(vettoreramaxxverifica)
numesxramax = estrazioneprogressiva
End If
End If
'-----------------------------------------------------------------------------------------------------------
' verifica x fq min ---------------------------------------------------------------------------------------
Call SplitByChar(stringafqminrilevata,".",vettorefqminxverifica)
Call VerificaEsito(vettorefqminxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
If esitoverifica <> "" Then
Scrivi "<font color=green size=3>OK x la formazione fq min " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
casipositivixfqmin = casipositivixfqmin + 1
If colpouscitanumero > colpomassimoxfqmin Then
colpomassimoxfqmin = colpouscitanumero
If colpomassimoxfqmin > colpomassimogeneralerilevato Then
colpomassimogeneralerilevato = colpouscitanumero
End If
End If
Else
Scrivi "<font color=red size=2>NO x la formazione fq min</font>"
casinegativixfqmin = casinegativixfqmin + 1
colpirestantirispettocolpomassimoxfqmin = Valorecolpomassimoxfqminima -(Fine - estrazioneprogressiva)
Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x fq min " & colpirestantirispettocolpomassimoxfqmin
If colpirestantirispettocolpomassimoxfqmin < colpirestantiminimixfqmin Then
colpirestantiminimixfqmin = colpirestantirispettocolpomassimoxfqmin
Formazioneconcolpirestantiminimixfqmin = StringaNumeri(vettorefqminxverifica)
numesxfqmin = estrazioneprogressiva
End If
End If
'-----------------------------------------------------------------------------------------------------------
' verifica x fq max ---------------------------------------------------------------------------------------
Call SplitByChar(stringafqmaxrilevata,".",vettorefqmaxxverifica)
Call VerificaEsito(vettorefqmaxxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
If esitoverifica <> "" Then
Scrivi "<font color=green size=3>OK x la formazione fq max " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
casipositivixfqmax = casipositivixfqmax + 1
If colpouscitanumero > colpomassimoxfqmax Then
colpomassimoxfqmax = colpouscitanumero
If colpomassimoxfqmax > colpomassimogeneralerilevato Then
colpomassimogeneralerilevato = colpouscitanumero
End If
End If
Else
Scrivi "<font color=red size=2>NO x la formazione fq max</font>"
casinegativixfqmax = casinegativixfqmax + 1
Scrivi "controllo valori per colpi rimanenti " & " clpmaxxfqmax " & Valorecolpomassimoxfqmassima & " fine-estrazioneprogressiva " & Fine - estrazioneprogressiva
colpirestantirispettocolpomassimoxfqmax = Valorecolpomassimoxfqmassima -(Fine - estrazioneprogressiva)
Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x fq max " & colpirestantirispettocolpomassimoxfqmax
If colpirestantirispettocolpomassimoxfqmax < colpirestantiminimixfqmax Then
colpirestantiminimixfqmax = colpirestantirispettocolpomassimoxfqmax
Formazioneconcolpirestantiminimixfqmax = StringaNumeri(vettorefqmaxxverifica)
numesxfqmax = estrazioneprogressiva
End If
End If
'-----------------------------------------------------------------------------------------------------------
' verifica x diff0incmax0 ---------------------------------------------------------------------------------------
Call SplitByChar(Stringadiff0incmax0,".",vettorediff0incmax0xverifica)
Call VerificaEsito(vettorediff0incmax0xverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
If esitoverifica <> "" Then
Scrivi "<font color=green size=3>OK x la formazione diff0incmax0 " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
casipositivixdiff0incmax0 = casipositivixdiff0incmax0 + 1
If colpouscitanumero > colpomassimoxdiff0incmax0 Then
colpomassimoxdiff0incmax0 = colpouscitanumero
If colpomassimoxdiff0incmax0 > colpomassimogeneralerilevato Then
colpomassimogeneralerilevato = colpouscitanumero
End If
End If
'
' colpomassimovalutandole4risultanzeunite = colpomassimoxramin + colpomassimoxramax + colpomassimoxfqmin + colpomassimoxfqmax + colpomassimoxdiff0incmax0
''
'' Scrivi
'' Scrivi "<font color=blue size=8>colpomax unione 4 risultanze "& colpomassimovalutandole4risultanzeunite &"</font>"
'' Scrivi
''
'
' If colpomassimovalutandole4risultanzeunite > soglialimitevoluta Then
'
' Scrivi "<font color=red size=7>SOGLIA LIMITE SUPERATA!</font>"
'
' End If
'
Else
Scrivi "<font color=red size=2>NO x la formazione diff0incmax0</font>"
casinegativixdiff0incmax0 = casinegativixdiff0incmax0 + 1
colpirestantirispettocolpomassimoxdiff0incmax0 = Valorecolpomassimoxdiff0incmax0 -(Fine - estrazioneprogressiva)
Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x diff0 incmax0 " & colpirestantirispettocolpomassimoxdiff0incmax0
If colpirestantirispettocolpomassimoxdiff0incmax0 < colpirestantiminimixdiff0incmax0 Then
colpirestantiminimixdiff0incmax0 = colpirestantirispettocolpomassimoxdiff0incmax0
Formazioneconcolpirestantiminimixdiff0incmax0 = StringaNumeri(vettorediff0incmax0xverifica)
numesxdiff0incmax0 = estrazioneprogressiva
End If
End If
'-----------------------------------------------------------------------------------------------------------
'colpomassimovalutandole4risultanzeunite = colpomassimoxramin + colpomassimoxramax + colpomassimoxfqmin + colpomassimoxfqmax + colpomassimoxdiff0incmax0
' Scrivi
' Scrivi "<font color=blue size=4>colpomax unione delle quattro risultanze "& colpomassimovalutandole4risultanzeunite &"</font>"
' Scrivi
' Scrivi
' Scrivi "verifica valori di controllo " & colpomassimoxramin & " + " & colpomassimoxramax & " + " & colpomassimoxfqmin & " + " & colpomassimoxfqmax & " + " & colpomassimoxdiff0incmax0
' Scrivi
' If(colpomassimoxramin <= soglialimitevoluta And colpomassimoxramin <> 0 Or colpomassimoxramax <= soglialimitevoluta And colpomassimoxramax <> 0 Or colpomassimoxfqmax <= soglialimitevoluta And colpomassimoxfqmax <> 0 Or colpomassimoxfqmin <= soglialimitevoluta And colpomassimoxfqmin <> 0 Or colpomassimoxdiff0incmax0 <= soglialimitevoluta And colpomassimoxdiff0incmax0 <> 0) Then
'PROVA MONITORAGGIO SOLO PER FQ MAX e FQ MIN e RA MAX e RA MIN
If(colpomassimoxfqmax <= soglialimitevoluta And colpomassimoxfqmax <> 0 Or colpomassimoxfqmin <= soglialimitevoluta And colpomassimoxfqmin <> 0 Or colpomassimoxramax <= soglialimitevoluta And colpomassimoxramax <> 0 Or colpomassimoxramin <= soglialimitevoluta And colpomassimoxramin <> 0 Or colpomassimoxdiff0incmax0 <= soglialimitevoluta And colpomassimoxdiff0incmax0 <> 0) Then
' Scrivi
' Scrivi "verifica valori di controllo " & colpomassimoxramin & " + " & colpomassimoxramax & " + " & colpomassimoxfqmin & " + " & colpomassimoxfqmax & " + " & colpomassimoxdiff0incmax0
' Scrivi
Dim Stringavaloridicontrollo
Stringavaloridicontrollo = colpomassimoxramin & "+" & colpomassimoxramax & "+" & colpomassimoxfqmin & "+" & colpomassimoxfqmax & "+" & colpomassimoxdiff0incmax0
Dim Arrayvaloridicontrollo
Call SplitByChar(Stringavaloridicontrollo,"+",Arrayvaloridicontrollo)
Dim c
For c = 0 To UBound(Arrayvaloridicontrollo)
Scrivi "|" & Arrayvaloridicontrollo(c) & "|"
Next
Dim Valoremassimonellarray
Valoremassimonellarray = MassimoV(Arrayvaloridicontrollo)
Scrivi
Scrivi "il valore massimo nell'array è " & Valoremassimonellarray
If Valoremassimonellarray > colpomassimovalutandole4risultanzeunite Then
colpomassimovalutandole4risultanzeunite = Valoremassimonellarray
End If
Scrivi
Scrivi "il valore massimo rilevato complessivamente fino ad ora è " & colpomassimovalutandole4risultanzeunite
Scrivi
Scrivi "<font size=6 color=green><strong>EUREKA! VALORE SOGLIA VOLUTA NON SUPERATO!</strong></font>"
Scrivi
valoresoglianonsuperato = "<font color=green><strong>EUREKA! VALORE SOGLIA VOLUTA NON SUPERATO!</strong></font>"
Indiceconsecutivitanegativa = 0
Else
If Fine - estrazioneprogressiva > soglialimitevoluta Then
valoresoglianonsuperato = "OH DANNAZIONE! VALORE SOGLIA VOLUTA SUPERATO!"
Scrivi
Scrivi "<font size=5 color=red><strong>" & valoresoglianonsuperato & "</strong></font>"
Scrivi
valoresoglianonsuperato = "<font color=red><strong>OH DANNAZIONE! VALORE SOGLIA VOLUTA SUPERATO!"
contasuperamentisoglia = contasuperamentisoglia + 1
Indiceconsecutivitanegativa = Indiceconsecutivitanegativa + 1
'contatoreconsecutivitanegativa = contatoreconsecutivitanegativa +1
If Indiceconsecutivitanegativa > Valoremassimoconsecutivitanegativa Then
Valoremassimoconsecutivitanegativa = Indiceconsecutivitanegativa
End If
Scrivi
Scrivi "verifica valore indice di consecutivià negativa " & " indice consec neg " & Indiceconsecutivitanegativa & " valore massimo indice consec neg " & Valoremassimoconsecutivitanegativa '& " contatore consec neg " & contatoreconsecutivitanegativa
Scrivi
End If
End If
Scrivi
Scrivi "verifica valori di controllo x FQ MAX " & colpomassimoxfqmax
Scrivi
Scrivi
Scrivi "verifica valori di controllo x FQ MIN " & colpomassimoxfqmin
Scrivi
Scrivi
Scrivi "verifica valori di controllo x RA MAX " & colpomassimoxramax
Scrivi
Scrivi
Scrivi "verifica valori di controllo x RA MIN " & colpomassimoxramin
Scrivi
Scrivi
Scrivi "verifica valori di controllo x DIFF0 INCMAX0 " & colpomassimoxramin
Scrivi
If colpomassimoxfqmax > Valorecolpomassimoxfqmassima Then
Valorecolpomassimoxfqmassima = colpomassimoxfqmax
Scrivi
Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER FQ MAX E' " & Valorecolpomassimoxfqmassima
Scrivi
End If
If colpomassimoxfqmin > Valorecolpomassimoxfqminima Then
Valorecolpomassimoxfqminima = colpomassimoxfqmin
Scrivi
Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER FQ MIN E' " & Valorecolpomassimoxfqminima
Scrivi
End If
If colpomassimoxramax > Valorecolpomassimoxramax Then
Valorecolpomassimoxramax = colpomassimoxramax
Scrivi
Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER RA MAX E' " & Valorecolpomassimoxramax
Scrivi
End If
If colpomassimoxramin > Valorecolpomassimoxramin Then
Valorecolpomassimoxramin = colpomassimoxramin
Scrivi
Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER RA MIN E' " & Valorecolpomassimoxramin
Scrivi
End If
If colpomassimoxdiff0incmax0 > Valorecolpomassimoxdiff0incmax0 Then
Valorecolpomassimoxdiff0incmax0 = colpomassimoxdiff0incmax0
Scrivi
Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER DIFF0 INCMAX0 E' " & Valorecolpomassimoxdiff0incmax0
Scrivi
End If
Scrivi
Scrivi "formazioni con valori estremi rispettanti anche il filtro "
Scrivi
Scrivi stringaramaxrilevatoconfiltrook
Scrivi stringafqmaxrilevataconfiltrook
Scrivi stringaraminrilevatoconfiltrook
Scrivi stringafqminrilevataconfiltrook
'Call Messaggio(SiglaRuota(aRuoteTmp(1)) & " riga n. " & y & " sorte " & nSorte & " trovate " & trovate & " ides " & estrazioneprogressiva )
'prima di ogni estrazione successiva azzero tutto... vettori e stringhe...
Call Erase(aNum)
Call Erase(vettoreraminxverifica)
Call Erase(vettorefqminxverifica)
Call Erase(vettoreramaxxverifica)
Call Erase(vettorefqmaxxverifica)
Call Erase(vettorediff0incmax0xverifica)
'Call Erase(Arrayvaloridicontrollo)
Stringavaloridicontrollo = ""
stringaramaxrilevato = ""
stringafqmaxrilevata = ""
stringaraminrilevato = ""
stringafqminrilevata = ""
stringaramaxrilevatoconfiltrook = ""
stringafqmaxrilevataconfiltrook = ""
stringaraminrilevatoconfiltrook = ""
stringafqminrilevataconfiltrook = ""
Stringadiff0incmax0 = ""
ramaxrilevato = 0
fqmaxrilevata = 0
raminrilevato = EstrazioneFin
fqminrilevata = EstrazioneFin
'colpomassimovalutandole4risultanzeunite = 0
colpomassimoxramin = 0
colpomassimoxramax = 0
colpomassimoxfqmin = 0
colpomassimoxfqmax = 0
colpomassimoxdiff0incmax0 = 0
'Indiceconsecutivitanegativa = 0
'----------------------------------------------------------------------------------
If ScriptInterrotto Then Exit For 'x estrazione progressiva
Next
Scrivi
Scrivi "Attenzione: ricordarsi che se tornano sempre o spesso le stesse formazioni in output... questo dipende dal fatto che..."
Scrivi "la sorte di ricerca (sdr) è diversa e solitamente maggiore rispetto quella di verifica (sdv) (es. sdr 3 sdv 2)."
Scrivi "In altre parole... se mettiamo sdr = sdv le formazioni in output saranno sempre diverse..."
Scrivi
Scrivi "range temporale di analisi " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine)
Scrivi
Scrivi "range temporale di verifica " & GetInfoEstrazione(Fine - numeroestrazionidaverificare) & " - " & GetInfoEstrazione(Fine)
Scrivi
Scrivi "analisi file txt " & sfile
Scrivi
Scrivi "ruota o ruote di ricerca n. " & ricercasuruotaenumero
Scrivi
Scrivi "ruota o ruote di verifica n. " & verificasuruotaenumero
Scrivi
Scrivi "ultime estrazioni consecutive analizzate n. " & numeroestrazionidaverificare
Scrivi
Scrivi "sorte di ricerca " & nSorte
Scrivi "sorte di verifica " & sortediverifica
Scrivi "colpi di verifica " & colpidiverifica
Scrivi
Scrivi "casi totali positivi per ra min " & casipositivixramin
Scrivi "casi totali negativi per ra min " & casinegativixramin
'Scrivi "colpo massimo per ra min " & colpomassimoxramin
Scrivi
Scrivi "casi totali positivi per ra max " & casipositivixramax
Scrivi "casi totali negativi per ra max " & casinegativixramax
'Scrivi "colpo massimo per ra max " & colpomassimoxramax
Scrivi
Scrivi "casi totali positivi per fq min " & casipositivixfqmin
Scrivi "casi totali negativi per fq min " & casinegativixfqmin
'Scrivi "colpo massimo per fq min " & colpomassimoxfqmin
Scrivi
Scrivi "casi totali positivi per fq max " & casipositivixfqmax
Scrivi "casi totali negativi per fq max " & casinegativixfqmax
'Scrivi "colpo massimo per fq max " & colpomassimoxfqmax
Scrivi
Scrivi
Scrivi "casi totali positivi per diff0incmax0 " & casipositivixdiff0incmax0
Scrivi "casi totali negativi per diff0incmax0 " & casinegativixdiff0incmax0
'Scrivi "colpo massimo per diff0 incmax0 " & colpomassimoxdiff0incmax0
Scrivi
Scrivi "soglia limite voluta (x tempo di sfaldamento) " & soglialimitevoluta & " colpo(i) "
'Scrivi
'Scrivi "colpo massimo generale rilevato " & colpomassimogeneralerilevato
Scrivi
Scrivi "colpo massimo generale valutando le 4 risultanze unite " & colpomassimovalutandole4risultanzeunite
Scrivi
If contasuperamentisoglia > 0 Then
Scrivi "<font color=red size=4><strong>DANNAZIONE! VALORE SOGLIA SUPERATO!<strong></font>"
Else
Scrivi "<font color=green size=4><strong>EUREKA! VALORE SOGLIA NON SUPERATO!<strong></font>"
End If
Scrivi
Scrivi "valore soglia voluto superato per " & contasuperamentisoglia & " volte!"
Scrivi
Scrivi "indice massimo di consecutività negativa " & Valoremassimoconsecutivitanegativa
Scrivi
Scrivi "valore colpo massimo per fq max " & Valorecolpomassimoxfqmassima
Scrivi
Scrivi "colpi restanti minimi per fq max " & colpirestantiminimixfqmax
Scrivi
Scrivi "formazione con colpi restanti minimi x fq max " & Formazioneconcolpirestantiminimixfqmax
Scrivi
Scrivi "num es con colpi restanti minimi x fq max " & numesxfqmax
Scrivi
Scrivi "valore colpo massimo per fq min " & Valorecolpomassimoxfqminima
Scrivi
Scrivi "colpi restanti minimi per fq min " & colpirestantiminimixfqmin
Scrivi
Scrivi "formazione con colpi restanti minimi x fq min " & Formazioneconcolpirestantiminimixfqmin
Scrivi
Scrivi "num es con colpi restanti minimi x fq min " & numesxfqmin
Scrivi
Scrivi "valore colpo massimo per ra max " & Valorecolpomassimoxramax
Scrivi
Scrivi "colpi restanti minimi per ra max " & colpirestantiminimixramax
Scrivi
Scrivi "formazione con colpi restanti minimi x ra max " & Formazioneconcolpirestantiminimixramax
Scrivi
Scrivi "num es con colpi restanti minimi x ra max " & numesxramax
Scrivi
Scrivi "valore colpo massimo per ra min " & Valorecolpomassimoxramin
Scrivi
Scrivi "colpi restanti minimi per ra min " & colpirestantiminimixramin
Scrivi
Scrivi "formazione con colpi restanti minimi x ra min " & Formazioneconcolpirestantiminimixramin
Scrivi
Scrivi "num es con colpi restanti minimi x ra min " & numesxramin
Scrivi
Scrivi "valore colpo massimo per diff0 incmax0 " & Valorecolpomassimoxdiff0incmax0
Scrivi
Scrivi "colpi restanti minimi per diff0 incmax0 " & colpirestantiminimixdiff0incmax0
Scrivi
Scrivi "formazione con colpi restanti minimi x diff0 incmax0 " & Formazioneconcolpirestantiminimixdiff0incmax0
Scrivi
Scrivi "num es con colpi restanti minimi x diff0 incmax0 " & numesxdiff0incmax0
Scrivi
Call Scrivi("Tempo trascorso: " & TempoTrascorso)
End Sub
