x abasul e non solo

[lotto_tom75]

Ottimo lotto_tom75, questo tuo script è completo, solo che adesso accanto ad ogni Ritardo Max di ogni combinazione per ambo, io devo sapere anche la data di estrazione di quando il ritardo massimo è avvenuto. Dopo questo ultimo accomodo allo script, siamo in grado di spiegare alla lettera come mettere in gioco pochissime combinazioni con due numeri per ambo, tre numeri per ambo e quattro numeri per ambo. Luigi non mene volere, ma a me, come credo a tutti gli altri, sarà più comodo utilizzare il lavoro di lotto_tom74. Tuttavia sia a te che a Claudio e Mike58, poi chiederò se potete aiutarci ad agevolarci il lavoro con un altro semplice script, oppure lo lasceremo fare a lotto_tom74 magari potendolo integrare a questo.Grazie a tutti.

Ok... ma... se non correggi subito... quel 74... non farò proprio un bel niente... abasul

Ps: testato il tuo filtro su ruota unica...e per adesso ha conservato ambo a colpo in classe 23 by 90. Quindi come primo test a colpo..., x sgrossare la massa numerica iniziale, direi che è stato un ottimo risultato.

 

[abasul]

Ok amico, come ti ripeto a questo tuo ultimo script devi solo apportare una piccolissima modifica: inserire accanto ai RitMax di ogni combinazione che appare in output la data in cui questo ritardo massimo si è manifestato. Buon lavoro e ci risentiamo domattina.

 

[lotto_tom75]

Ok amico, come ti ripeto a questo tuo ultimo script devi solo apportare una piccolissima modifica: inserire accanto ai RitMax di ogni combinazione che appare in output la data in cui questo ritardo massimo si è manifestato. Buon lavoro e ci risentiamo domattina.

Si... ma il 74, che hai postato errato nel tuo precedente post.., è sempre presente...

Ad ogni modo così dovrebbe andare...

Option Explicit
Sub Main
   'implementazione filtro abasul x A in classe voluta (fino alla 89) + data estrazione rs max in selettivo  by lotto_tom75
   Dim nSorte,aRuote,Ini,fin,sMsg,nMoltip,nTrov,nNumSel
   Dim nCicloTeo,nRitMax,nRitMin,nClasseLunghetta,nRuoteSel,nLunghetteDaTrov
   Dim TimeStart
   Dim k,CollComb,cColonna
   Dim aN
   Dim TipoAlgo
   Dim RetRit,RetRitMax,RetIncrRitMax,RetFrq
   Dim nSuperficialita
   nTrov = 0 '
   nNumSel = ScegliNumeri(aN)
   'aN = Array(0,16,49,60)
   'nSorte = 2 ' ScegliEsito
   nSorte = InputBox("Scegli sorte di ricerca","Sorte di ricerca",2)
   If nSorte < 0 Or nSorte > 5 Then
      nSorte = InputBox("Hai scelto una sorte impossibile da valutare. Scegli sorte di ricerca appropriata...","Sorte di ricerca",2)
   End If
   'nClasseLunghetta = 3 'ScegliClassseLunghetta
   nClasseLunghetta = InputBox("Scegli classe di ricerca","Classe di ricerca",UBound(aN) - 1)
   TipoAlgo = 4
   nSuperficialita = 0
   Dim contatore
   contatore = 0
   Call Scrivi
   Call Scrivi("Elaborazione effettuata con archivio lotto aggiornato all'estrazione del: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
   Call Scrivi
   Call Scrivi("Classe " & nClasseLunghetta & " sorte " & nSorte)
   Call Scrivi
   'nRuoteSel= 1 : ReDim aRuote(1) : aRuote(1) =RO_'SelRuote(aRuote)
   Dim r
   For r = 1 To 12
      nRuoteSel = r : ReDim aRuote(r) : aRuote(r) = r
      nLunghetteDaTrov = 10000 ' Int(InputBox("Lunghette da trovare","Quantità lunghette",10))
      ReDim Preserve aRuote(nRuoteSel)
      nCicloTeo = CicloTeorico(nClasseLunghetta,nSorte,UBound(aRuote))
      nMoltip = 1
      'sMsg = "Inserire il ritardo massimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
      'sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
      'sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per " & nMoltip
      nRitMax = 0' Int(InputBox(sMsg,,nCicloTeo * nMoltip))
      'sMsg = "Inserire il ritardo minimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
      'sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
      'sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per 3"
      nRitMin = 0 ' Int(InputBox(sMsg,,nCicloTeo * 3))
      fin = EstrazioneFin
      Ini = fin - nRitMax
      'If Ini <= 0 Then Ini = 1
      Dim idrsmax ' il numero dell'estrazione in cui si è verificato il ritardo storico per la sorte specificata
      Dim estrazione
      For estrazione = Ini To fin
         TimeStart = Timer
         Call GetLunghettePiuRitardate(aN,aRuote,nClasseLunghetta,nSorte,CollComb,EstrazioneIni,EstrazioneFin,nRitMin,nRitMax,nLunghetteDaTrov,TipoAlgo,nSuperficialita)
         'Call GetLunghettePiuRitardate(aN,aRuote,EstrazioneIni,EstrazioneFin,nClasseLunghetta,nSorte,CollComb)
         Call OrdinaItemCollection(CollComb,"Ritardo",,,- 1)
         For Each cColonna In CollComb
            contatore = contatore + 1
            Call StatisticaFormazioneTurbo(cColonna.aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFrq,EstrazioneIni,EstrazioneFin)
            idrsmax = SerieEstrazioneStorico(EstrazioneIni,EstrazioneFin,cColonna.aNum,aRuote,nSorte)
            'Dim matchxdataraugualersmax
            'If RetRit=idrsmax Then
            '
            '         matchxdataraugualersmax=DataEstrazione(idrsmax)
            '
            'End If
            Dim diff
            diff = RetRitMax - RetRit
            If(RetRit >= 0) Then
               Dim datoabasul
               datoabasul =(RetRit/RetRitMax) * 100
               diff = RetRitMax - RetRit
               If(RetRit >= 0) Then
                  If(datoabasul >= 45) And(datoabasul <= 75) Then
                     Call Messaggio("trovata")
                     Call Scrivi("PROVA OUTPUT SECONDO FILTRO ABASUL con sole formazioni con ra distante dal rispettivo rs x A in terzina tra il 45% e 75%")
                     Call Scrivi("<font color=green>OK la formazione ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                     Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
                     'idrsmax = SerieEstrazioneStorico(Ini,fin,cColonna.aNum,aRuote,nSorte)
                     Call Scrivi(SiglaRuota(aRuote(r)) & " - " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & "<font color=blue> data ritardo max " & DataEstrazione(idrsmax) & "</font> incmax " & RetIncrRitMax & " frequenza " & RetFrq)
                  Else
                     'Call Scrivi("<font color=red>NO la formazione NON ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                  End If
               End If ' x controllo valori non nulli di ra e rs
               'Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
               'Call Scrivi(SiglaRuota(aRuote(r)) & " " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & " incmax " & RetIncrRitMax & " frequenza " & RetFrq)
               'Call Scrivi(cColonna.GetStringaNum)
            End If
            If ScriptInterrotto Then Exit For
         Next
      Next
      Call Scrivi("------------------------------------------------------------------------------")
      If ScriptInterrotto Then Exit For
   Next 'secondo next aggiunto per tentativo di elaborare ogni ruota in una volta sola
   Call Scrivi("Tempo di elaborazione : " & FormattaSecondi(Timer - TimeStart))
End Sub
Function ScegliClassseLunghetta
   Dim aVoci(30)
   Dim k,i
   For k = 2 To(2 - 1) + UBound(aVoci)
      i = i + 1
      aVoci(i) = k
   Next
   k = ScegliOpzioneMenu(aVoci,5,"Classe lunghetta")
   ScegliClassseLunghetta = Int(aVoci(k))
End Function
Function SelRuote(aRuote)
   Dim t,k,bTutte
   bTutte = False
   't = ScegliRuote(aRuote)
   'For k = 1 To t
   'If aRuote(k) = TT_ Then
   'bTutte = True
   'Exit For
   'End If
   'Next
   If bTutte Then
      ReDim aRuote(10)
      For k = 1 To 10
         aRuote(k) = k
      Next
      SelRuote = 10
   Else
      SelRuote = t
   End If
End Function
Function FormattaSecondi(s)
   'Questa Function trasforma il numero di secondi passato come parametro in una stringa
   ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
   ' s ---> Numero di secondi da formattare
   ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
   Dim hh
   Dim Mm
   Dim Ss
   Dim TimeStr
   hh = s \ 3600
   Mm =(s Mod 3600) \ 60
   Ss = s -((hh * 3600) +(Mm * 60))
   TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
   FormattaSecondi = TimeStr
End Function

Ho testato solo un caso però.

Guarda un pò tu se anche gli altri vanno bene per le date di estrazione, che nell'output ho evidenziato in blu, relative al loro rispettivo rs max rilevato...

 

[abasul]

Buongiorno lotto_tom75, qui la vecchiaia si avvicina per cui ricordarmi sempre e esattamente del tuo lungo nickname mi è un po' difficile. Comunque scusami se in alcuni casi mi sono confuso perché non l'ho fatto apposta. Ieri avevo riletto tutti i miei post e credo di avere individuato gli errori. In ogni caso se ne ho tralasciato qualcun altro dimmelo, così provvedo a correggerlo.
Intanto, prima di spiegare come fare per scegliere le combinazioni da giocare proposte dallo script, bisogna prima capire bene questo concetto: il mio modo di operare si affida esclusivamente a principi statistico-matematici e pertanto le scelte delle combinazioni previsionali non hanno a che fare né con "metodi per il lotto" né con "casuali previsioni cabalistiche per il lotto".
Ecco come si procede:
Si devono scegliere tra tutte le combinazioni ricercate dallo script:
1) Una coppia di due ambi secchi; un'altra coppia di due terzine per ambo e un'altra coppia ancora di due quartine per ambo ma che abbiano come data del loro max storico l'anno più vicino a quello odierno, cioè dell'ultima estrazione.
2) Tutti i 18 numeri che sono compresi tra le combinazioni devono essere tutti diversi. 3) Le previsioni che quindi in tutto ne sono sei, devono essere sempre seguite estrazione dopo estrazione, perché quando poi ad esempio una di esse supera il range compreso tra "45% e 75%" deve essere esclusa, e di giocate, se ancora esce l'ambo in una combinazione, in seguito se ne giocheranno sempre di meno fino a rimanere solo con tre combinazioni da giocare.

 

[lotto_tom75]

Buongiorno lotto_tom75, qui la vecchiaia si avvicina per cui ricordarmi sempre e esattamente del tuo lungo nickname mi è un po' difficile. Comunque scusami se in alcuni casi mi sono confuso perché non l'ho fatto apposta. Ieri avevo riletto tutti i miei post e credo di avere individuato gli errori. In ogni caso se ne ho tralasciato qualcun altro dimmelo, così provvedo a correggerlo.
Intanto, prima di spiegare come fare per scegliere le combinazioni da giocare proposte dallo script, bisogna prima capire bene questo concetto: il mio modo di operare si affida esclusivamente a principi statistio-matematici e pertanto le scelte delle combinazioni previsionali non hanno a che fare né a "metodi per il lotto" né ad una "casuale previsione cabalistica per il lotto".
Ecco come si procede:
Si devono scegliere tra tutte le combinazioni ricercate dallo script:
1) Due ambi secchi; due terzine per ambo e due quartine per ambo ma che abbiano come data del loro max storico l'anno più vicino a quello odierno, cioè dell'ultima estrazione.
2) Tutti i 18 numeri che sono compresi in ogni combinazione devono essere tutti diversi. 3) Le previsioni che quindi in tutto ne sono sei, devono essere sempre seguite estrazione dopo estrazione, perché quando poi ad esempio una di essa supera il range "tra 45% e 75%" deve essere tolta e di giocate se ne devono giocare sempre di meno.

Ciao abasul, ovviamente per il 74 scherzavo...

Option Explicit
Sub Main
   'implementazione filtro abasul x A in classe voluta (fino alla 89) + data estrazione rs max in selettivo  by lotto_tom75
   'metodo abasul completo---
   'Intanto, prima di spiegare come fare per scegliere le Combinazioni da giocare proposte dallo script,
   'bisogna prima capire bene questo concetto: il mio modo di operare si affida esclusivamente a principi
   'statistico-matematici e pertanto le scelte delle Combinazioni previsionali non fanno a che fare né a
   '"metodi per il lotto" né ad una "casuale previsione cabalistica per il lotto".Ecco come si procede:
   'si devono scegliere tra tutte le Combinazioni ricercate dallo script: 1) Due ambi secchi; due terzine
   'per ambo e due quartine per ambo ma che abbiano come data del loro max storico l'anno più vicino
   'a quello odierno, cioè dell'ultima estrazione. 2) Tutti i 18 numeri che sono compresi per ogni combinazione
   'devono essere tutti diversi. 3) Le previsioni che quindi In tutto ne sono sei, devono essere sempre seguite
   'estrazione su estrazione, perché quando ad esempio una di essa supera il range "tra 45% e 75%"
   'deve essere tolta e giocarne sempre di meno.
   '-----fine metodologia abasul
   Dim nSorte,aRuote,Ini,fin,sMsg,nMoltip,nTrov,nNumSel
   Dim nCicloTeo,nRitMax,nRitMin,nClasseLunghetta,nRuoteSel,nLunghetteDaTrov
   Dim TimeStart
   Dim k,CollComb,cColonna
   Dim aN
   Dim TipoAlgo
   Dim RetRit,RetRitMax,RetIncrRitMax,RetFrq
   Dim nSuperficialita
   nTrov = 0 '
   nNumSel = ScegliNumeri(aN)
   'aN = Array(0,16,49,60)
   'nSorte = 2 ' ScegliEsito
   nSorte = InputBox("Scegli sorte di ricerca","Sorte di ricerca",2)
   If nSorte < 0 Or nSorte > 5 Then
      nSorte = InputBox("Hai scelto una sorte impossibile da valutare. Scegli sorte di ricerca appropriata...","Sorte di ricerca",2)
   End If
   'nClasseLunghetta = 3 'ScegliClassseLunghetta
   nClasseLunghetta = InputBox("Scegli classe di ricerca","Classe di ricerca",UBound(aN) - 1)
   TipoAlgo = 4
   nSuperficialita = 0
   Dim contatore
   contatore = 0
   Call Scrivi
   Call Scrivi("Elaborazione effettuata con archivio lotto aggiornato all'estrazione del: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
   Call Scrivi
   Call Scrivi("Classe " & nClasseLunghetta & " sorte " & nSorte)
   Call Scrivi
   'nRuoteSel= 1 : ReDim aRuote(1) : aRuote(1) =RO_'SelRuote(aRuote)
   Dim r
   For r = 1 To 12 ' to 12
      nRuoteSel = r : ReDim aRuote(r) : aRuote(r) = r
      nLunghetteDaTrov = 10000 ' Int(InputBox("Lunghette da trovare","Quantità lunghette",10))
      ReDim Preserve aRuote(nRuoteSel)
      nCicloTeo = CicloTeorico(nClasseLunghetta,nSorte,UBound(aRuote))
      nMoltip = 1
      'sMsg = "Inserire il ritardo massimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
      'sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
      'sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per " & nMoltip
      nRitMax = 0' Int(InputBox(sMsg,,nCicloTeo * nMoltip))
      'sMsg = "Inserire il ritardo minimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
      'sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
      'sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per 3"
      nRitMin = 0 ' Int(InputBox(sMsg,,nCicloTeo * 3))
      fin = EstrazioneFin
      Ini = fin - nRitMax
      'If Ini <= 0 Then Ini = 1
      Dim idrsmax ' il numero dell'estrazione in cui si è verificato il ritardo storico per la sorte specificata
      Dim estrazione
      For estrazione = Ini To fin
         TimeStart = Timer
         Call GetLunghettePiuRitardate(aN,aRuote,nClasseLunghetta,nSorte,CollComb,EstrazioneIni,EstrazioneFin,nRitMin,nRitMax,nLunghetteDaTrov,TipoAlgo,nSuperficialita)
         'Call GetLunghettePiuRitardate(aN,aRuote,EstrazioneIni,EstrazioneFin,nClasseLunghetta,nSorte,CollComb)
         Call OrdinaItemCollection(CollComb,"Ritardo",,,- 1)
         For Each cColonna In CollComb
            contatore = contatore + 1
            Call StatisticaFormazioneTurbo(cColonna.aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFrq,EstrazioneIni,EstrazioneFin)
            idrsmax = SerieEstrazioneStorico(EstrazioneIni,EstrazioneFin,cColonna.aNum,aRuote,nSorte)
            'Dim matchxdataraugualersmax
            'If RetRit=idrsmax Then
            '
            '         matchxdataraugualersmax=DataEstrazione(idrsmax)
            '
            'End If
            Dim diff
            diff = RetRitMax - RetRit
            If(RetRit >= 0) Then
               Dim datoabasul
               datoabasul =(RetRit/RetRitMax) * 100
               diff = RetRitMax - RetRit
               If(RetRit >= 0) Then
                  If(datoabasul >= 45) And(datoabasul <= 75) Then
                     Call Messaggio("trovata")
                     Call Scrivi("PROVA OUTPUT SECONDO FILTRO ABASUL con sole formazioni con ra distante dal rispettivo rs x A in terzina tra il 45% e 75%")
                     Call Scrivi("<font color=green>OK la formazione ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                     Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
                     'idrsmax = SerieEstrazioneStorico(Ini,fin,cColonna.aNum,aRuote,nSorte)
                     Call Scrivi(SiglaRuota(aRuote(r)) & " - " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & "<font color=blue> data ritardo max " & DataEstrazione(idrsmax) & "</font> incmax " & RetIncrRitMax & " frequenza " & RetFrq)
                     ' Scrivi
                     '                     Call Scrivi (Int(EstrazioneFin))
                     '                     Call Scrivi (Int(idrsmax))
                     Dim ValorediffEstrazioneFinmenoidrsmax
                     ValorediffEstrazioneFinmenoidrsmax = Int(EstrazioneFin) - Int(idrsmax)
                     '                     Scrivi
                     Call Scrivi("<font color=red>VALORE DIFF data ultima estrazione - data rs max <strong>" & ValorediffEstrazioneFinmenoidrsmax & "</strong></font>")
                  Else
                     'Call Scrivi("<font color=red>NO la formazione NON ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                  End If
               End If ' x controllo valori non nulli di ra e rs
               'Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
               'Call Scrivi(SiglaRuota(aRuote(r)) & " " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & " incmax " & RetIncrRitMax & " frequenza " & RetFrq)
               'Call Scrivi(cColonna.GetStringaNum)
            End If
            If ScriptInterrotto Then Exit For
         Next
      Next
      Call Scrivi("------------------------------------------------------------------------------")
      If ScriptInterrotto Then Exit For
   Next 'secondo next aggiunto per tentativo di elaborare ogni ruota in una volta sola
   Call Scrivi("Tempo di elaborazione : " & FormattaSecondi(Timer - TimeStart))
End Sub
Function ScegliClassseLunghetta
   Dim aVoci(30)
   Dim k,i
   For k = 2 To(2 - 1) + UBound(aVoci)
      i = i + 1
      aVoci(i) = k
   Next
   k = ScegliOpzioneMenu(aVoci,5,"Classe lunghetta")
   ScegliClassseLunghetta = Int(aVoci(k))
End Function
Function SelRuote(aRuote)
   Dim t,k,bTutte
   bTutte = False
   't = ScegliRuote(aRuote)
   'For k = 1 To t
   'If aRuote(k) = TT_ Then
   'bTutte = True
   'Exit For
   'End If
   'Next
   If bTutte Then
      ReDim aRuote(10)
      For k = 1 To 10
         aRuote(k) = k
      Next
      SelRuote = 10
   Else
      SelRuote = t
   End If
End Function
Function FormattaSecondi(s)
   'Questa Function trasforma il numero di secondi passato come parametro in una stringa
   ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
   ' s ---> Numero di secondi da formattare
   ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
   Dim hh
   Dim Mm
   Dim Ss
   Dim TimeStr
   hh = s \ 3600
   Mm =(s Mod 3600) \ 60
   Ss = s -((hh * 3600) +(Mm * 60))
   TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
   FormattaSecondi = TimeStr
End Function

Con questa ulteriore mia piccola modifica soprastante dovresti essere in grado di avere sottocchio rapidamente il valore di "scelta" che hai menzionato per la tua metodologia ovvero, se ho capito bene, il valore minimo di differenza tra la data di ultima estrazione in archivio e quella di massimo storico per l'elaborazione effettuata. Ti basterà prendere per ogni elaborazione che farai (coppie x A, terzine x A, quartine x A su TT separate) la risultanza con il valore minore evidenziata in rosso e in grassetto.

In teoria anche questo ultimo passaggio potrebbe essere automatizzato... ovvero alla fine si potrebbe avere i 18 numeri in un vettore precompilato in automatico ma lo lascerei fare velocemente a chi mastica molto + di me gli script... se ne hanno voglia anche perchè bisognerebbe scegliere per ogni classe di sviluppo e per ogni ruota il valore di scelta minore... e unire il tutto in un report finale che mostri ruota/e corrispondente/i e il gruppo unione di classe 18 delle varie scelte automatiche eseguite... e non la vedo per niente semplice...

Per il resto... non ho capito bene se valutando tutte le ruote separate consideri anche + ruote o meno... visto che i valori di scelta possono appunto risultare minori e quindi preferibili su più ruote sia x A in coppia che x A in terzina che xA in 4ina...

Io, come già anticipatati, sto provando a monitorare come si comporta il tuo filtro su ruota unica a partire da un gruppo abs o dai 90 totali fino ad una classe intermedia (es. >= 20) x A a colpo.

 

[abasul]

Se non ho scelto male a mano (ecco perché ora servirebbe anche un altro script singolo oppure integrato a questo che lo facesse) queste sarebbero le previsioni da tenere sempre sotto osservazione e le quali sono le più probabili "parlo sempre e solo riferiti ad un calcolo di probabilità "statistico-matematico":
Napoli 25-63; Palermo 58-78; Genova 6-10-41; Torino 7-19-36; Venezia 2-45-51-68; Cagliari 1-15-43-53.

 

[lotto_tom75]

Se non ho scelto male a mano (ecco perché ora servirebbe anche un altro script singolo oppure integrato a questo che lo facesse) queste sarebbero le previsioni da tenere sempre sotto osservazione e le quali sono le più probabili "parlo sempre e solo riferiti ad un calcolo di probabilità "statistico-matematico":
Napoli 25-63; Palermo 58-78; Genova 6-10-41; Torino 7-19-36; Firenze 32-76-88;poi per le quartine non riesco più a trovarle, per cui sperio che qualcuno metta a disposizione uno script per la ricerca.

Cosa intendi con " per le quartine non riesco più a trovarle, per cui spero che qualcuno metta a disposizione uno script per la ricerca. " ? Con lo script sopra le puoi rilevare quando vuoi partendo dai 90 o da qualsiasi altro gruppo numerico di base. Ti basta scegliere come classe 4 e sorte 2. Ciao

 

[abasul]

Certo che lo script le propone, ma quello che intendo io è che dover ricercare solo a vista quelle quartine che hanno "numeri diversi" da quelli che fanno parte delle combinazioni per ambo già da me postate e per di più filtrarne anche le relative date degli storici, le quali devono risultare più vicine all'anno in corso, non è cosa facile.

 

[abasul]

Comunque adesso le 2 quartine mancanti sono riuscito a rintracciarle (anche se come ho già detto senza l'ausilio di un listato è stato difficile ed ecco perché lo richiedo per tutti) per cui queste quartine per ambo io adesso le inserirò anche insieme alle altre combinazioni per ambo già descritte in uno dei miei post precedenti:
Venezia 2-45-51-68; Cagliari 1-15-43-53.

 

[Rosanna58]

Ciao abasul, ovviamente per il 74 scherzavo...

Option Explicit
Sub Main
   'implementazione filtro abasul x A in classe voluta (fino alla 89) + data estrazione rs max in selettivo  by lotto_tom75
   'metodo abasul completo---
   'Intanto, prima di spiegare come fare per scegliere le Combinazioni da giocare proposte dallo script,
   'bisogna prima capire bene questo concetto: il mio modo di operare si affida esclusivamente a principi
   'statistico-matematici e pertanto le scelte delle Combinazioni previsionali non fanno a che fare né a
   '"metodi per il lotto" né ad una "casuale previsione cabalistica per il lotto".Ecco come si procede:
   'si devono scegliere tra tutte le Combinazioni ricercate dallo script: 1) Due ambi secchi; due terzine
   'per ambo e due quartine per ambo ma che abbiano come data del loro max storico l'anno più vicino
   'a quello odierno, cioè dell'ultima estrazione. 2) Tutti i 18 numeri che sono compresi per ogni combinazione
   'devono essere tutti diversi. 3) Le previsioni che quindi In tutto ne sono sei, devono essere sempre seguite
   'estrazione su estrazione, perché quando ad esempio una di essa supera il range "tra 45% e 75%"
   'deve essere tolta e giocarne sempre di meno.
   '-----fine metodologia abasul
   Dim nSorte,aRuote,Ini,fin,sMsg,nMoltip,nTrov,nNumSel
   Dim nCicloTeo,nRitMax,nRitMin,nClasseLunghetta,nRuoteSel,nLunghetteDaTrov
   Dim TimeStart
   Dim k,CollComb,cColonna
   Dim aN
   Dim TipoAlgo
   Dim RetRit,RetRitMax,RetIncrRitMax,RetFrq
   Dim nSuperficialita
   nTrov = 0 '
   nNumSel = ScegliNumeri(aN)
   'aN = Array(0,16,49,60)
   'nSorte = 2 ' ScegliEsito
   nSorte = InputBox("Scegli sorte di ricerca","Sorte di ricerca",2)
   If nSorte < 0 Or nSorte > 5 Then
      nSorte = InputBox("Hai scelto una sorte impossibile da valutare. Scegli sorte di ricerca appropriata...","Sorte di ricerca",2)
   End If
   'nClasseLunghetta = 3 'ScegliClassseLunghetta
   nClasseLunghetta = InputBox("Scegli classe di ricerca","Classe di ricerca",UBound(aN) - 1)
   TipoAlgo = 4
   nSuperficialita = 0
   Dim contatore
   contatore = 0
   Call Scrivi
   Call Scrivi("Elaborazione effettuata con archivio lotto aggiornato all'estrazione del: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
   Call Scrivi
   Call Scrivi("Classe " & nClasseLunghetta & " sorte " & nSorte)
   Call Scrivi
   'nRuoteSel= 1 : ReDim aRuote(1) : aRuote(1) =RO_'SelRuote(aRuote)
   Dim r
   For r = 1 To 12 ' to 12
      nRuoteSel = r : ReDim aRuote(r) : aRuote(r) = r
      nLunghetteDaTrov = 10000 ' Int(InputBox("Lunghette da trovare","Quantità lunghette",10))
      ReDim Preserve aRuote(nRuoteSel)
      nCicloTeo = CicloTeorico(nClasseLunghetta,nSorte,UBound(aRuote))
      nMoltip = 1
      'sMsg = "Inserire il ritardo massimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
      'sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
      'sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per " & nMoltip
      nRitMax = 0' Int(InputBox(sMsg,,nCicloTeo * nMoltip))
      'sMsg = "Inserire il ritardo minimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
      'sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
      'sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per 3"
      nRitMin = 0 ' Int(InputBox(sMsg,,nCicloTeo * 3))
      fin = EstrazioneFin
      Ini = fin - nRitMax
      'If Ini <= 0 Then Ini = 1
      Dim idrsmax ' il numero dell'estrazione in cui si è verificato il ritardo storico per la sorte specificata
      Dim estrazione
      For estrazione = Ini To fin
         TimeStart = Timer
         Call GetLunghettePiuRitardate(aN,aRuote,nClasseLunghetta,nSorte,CollComb,EstrazioneIni,EstrazioneFin,nRitMin,nRitMax,nLunghetteDaTrov,TipoAlgo,nSuperficialita)
         'Call GetLunghettePiuRitardate(aN,aRuote,EstrazioneIni,EstrazioneFin,nClasseLunghetta,nSorte,CollComb)
         Call OrdinaItemCollection(CollComb,"Ritardo",,,- 1)
         For Each cColonna In CollComb
            contatore = contatore + 1
            Call StatisticaFormazioneTurbo(cColonna.aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFrq,EstrazioneIni,EstrazioneFin)
            idrsmax = SerieEstrazioneStorico(EstrazioneIni,EstrazioneFin,cColonna.aNum,aRuote,nSorte)
            'Dim matchxdataraugualersmax
            'If RetRit=idrsmax Then
            '
            '         matchxdataraugualersmax=DataEstrazione(idrsmax)
            '
            'End If
            Dim diff
            diff = RetRitMax - RetRit
            If(RetRit >= 0) Then
               Dim datoabasul
               datoabasul =(RetRit/RetRitMax) * 100
               diff = RetRitMax - RetRit
               If(RetRit >= 0) Then
                  If(datoabasul >= 45) And(datoabasul <= 75) Then
                     Call Messaggio("trovata")
                     Call Scrivi("PROVA OUTPUT SECONDO FILTRO ABASUL con sole formazioni con ra distante dal rispettivo rs x A in terzina tra il 45% e 75%")
                     Call Scrivi("<font color=green>OK la formazione ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                     Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
                     'idrsmax = SerieEstrazioneStorico(Ini,fin,cColonna.aNum,aRuote,nSorte)
                     Call Scrivi(SiglaRuota(aRuote(r)) & " - " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & "<font color=blue> data ritardo max " & DataEstrazione(idrsmax) & "</font> incmax " & RetIncrRitMax & " frequenza " & RetFrq)
                     ' Scrivi
                     '                     Call Scrivi (Int(EstrazioneFin))
                     '                     Call Scrivi (Int(idrsmax))
                     Dim ValorediffEstrazioneFinmenoidrsmax
                     ValorediffEstrazioneFinmenoidrsmax = Int(EstrazioneFin) - Int(idrsmax)
                     '                     Scrivi
                     Call Scrivi("<font color=red>VALORE DIFF data ultima estrazione - data rs max <strong>" & ValorediffEstrazioneFinmenoidrsmax & "</strong></font>")
                  Else
                     'Call Scrivi("<font color=red>NO la formazione NON ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                  End If
               End If ' x controllo valori non nulli di ra e rs
               'Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
               'Call Scrivi(SiglaRuota(aRuote(r)) & " " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & " incmax " & RetIncrRitMax & " frequenza " & RetFrq)
               'Call Scrivi(cColonna.GetStringaNum)
            End If
            If ScriptInterrotto Then Exit For
         Next
      Next
      Call Scrivi("------------------------------------------------------------------------------")
      If ScriptInterrotto Then Exit For
   Next 'secondo next aggiunto per tentativo di elaborare ogni ruota in una volta sola
   Call Scrivi("Tempo di elaborazione : " & FormattaSecondi(Timer - TimeStart))
End Sub
Function ScegliClassseLunghetta
   Dim aVoci(30)
   Dim k,i
   For k = 2 To(2 - 1) + UBound(aVoci)
      i = i + 1
      aVoci(i) = k
   Next
   k = ScegliOpzioneMenu(aVoci,5,"Classe lunghetta")
   ScegliClassseLunghetta = Int(aVoci(k))
End Function
Function SelRuote(aRuote)
   Dim t,k,bTutte
   bTutte = False
   't = ScegliRuote(aRuote)
   'For k = 1 To t
   'If aRuote(k) = TT_ Then
   'bTutte = True
   'Exit For
   'End If
   'Next
   If bTutte Then
      ReDim aRuote(10)
      For k = 1 To 10
         aRuote(k) = k
      Next
      SelRuote = 10
   Else
      SelRuote = t
   End If
End Function
Function FormattaSecondi(s)
   'Questa Function trasforma il numero di secondi passato come parametro in una stringa
   ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
   ' s ---> Numero di secondi da formattare
   ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
   Dim hh
   Dim Mm
   Dim Ss
   Dim TimeStr
   hh = s \ 3600
   Mm =(s Mod 3600) \ 60
   Ss = s -((hh * 3600) +(Mm * 60))
   TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
   FormattaSecondi = TimeStr
End Function

Con questa ulteriore mia piccola modifica soprastante dovresti essere in grado di avere sottocchio rapidamente il valore di "scelta" che hai menzionato per la tua metodologia ovvero, se ho capito bene, il valore minimo di differenza tra la data di ultima estrazione in archivio e quella di massimo storico per l'elaborazione effettuata. Ti basterà prendere per ogni elaborazione che farai (coppie x A, terzine x A, quartine x A su TT separate) la risultanza con il valore minore evidenziata in rosso e in grassetto.

In teoria anche questo ultimo passaggio potrebbe essere automatizzato... ovvero alla fine si potrebbe avere i 18 numeri in un vettore precompilato in automatico ma lo lascerei fare velocemente a chi mastica molto + di me gli script... se ne hanno voglia anche perchè bisognerebbe scegliere per ogni classe di sviluppo e per ogni ruota il valore di scelta minore... e unire il tutto in un report finale che mostri ruota/e corrispondente/i e il gruppo unione di classe 18 delle varie scelte automatiche eseguite... e non la vedo per niente semplice...

Per il resto... non ho capito bene se valutando tutte le ruote separate consideri anche + ruote o meno... visto che i valori di scelta possono appunto risultare minori e quindi preferibili su più ruote sia x A in coppia che x A in terzina che xA in 4ina...

Io, come già anticipatati, sto provando a monitorare come si comporta il tuo filtro su ruota unica a partire da un gruppo abs o dai 90 totali fino ad una classe intermedia (es. >= 20) x A a colpo.

Un enorme grazie ad Abasul per aver condiviso un suo metodo di ricerca, e un altro enorme grazie a lotto_tom75 per lo script fatto.
X lotto_tom75 potresti, se possibile, indicarmi le modifiche da apportare allo script per variare le percentuali di filtro? In questo modo eviterei ogni volta di intervenire sul codice. Grazie per l'aiuto.

 

[claudio8]

Rosanna58, post: 230due 4349, member: 16459"]
Un enorme grazie ad Abasul per aver condiviso un suo metodo di ricerca, e un altro enorme grazie a lotto_tom75 per lo script fatto.
X lotto_tom75 potresti, se possibile, indicarmi le modifiche da apportare allo script per variare le percentuali di filtro? In questo modo eviterei ogni volta di intervenire sul codice. Grazie per l'aiuto.

Cerca nel listato il testo "45" e nella stssa riga troverai il 75.
Definisci questi valori con nuove variabili da dichiarare e predisponi i due input box a cui rispondere i valori da te voluti.
Chiaramente le inputbox vanno inserite nella Sub main subito dopo le dim varie.
Saluti

 

[Rosanna58]

Cerca nel listato il testo "45" e nella stssa riga troverai il 75.
Definisci questi valori con nuove variabili da dichiarare e predisponi i due input box a cui rispondere i valori da te voluti.
Chiaramente le inputbox vanno inserite nella Sub main subito dopo le dim varie.
Saluti

Cerca nel listato il testo "45" e nella stssa riga troverai il 75.
Definisci questi valori con nuove variabili da dichiarare e predisponi i due input box a cui rispondere i valori da te voluti.
Chiaramente le inputbox vanno inserite nella Sub main subito dopo le dim varie.
Saluti

Grazie claudio8 per l'esaustiva risposta (...). Ora non mi resta che capire come definire questi valori con nuove variabili da dichiarare e predisporre i due inputbox.

 

[lotto_tom75]

Ciao a tutti, come anticipato ad abasul, sto testando un nuovo modo di utilizzare su ruota unica il suo filtro. Bhe per adesso posto solo la coppia che ne risulterebbe x E/A/ambetto a colpo per l'estrazione di domani... Se uscirà qualcosa... spiegherò la mia teoria che vi sta alla base nei dettagli...

BARI 12-43

Nessunissima Certezza Solo Pochissima Probabilità

 

[Nikor]

Buon pomeriggio agli intervenuti , per una mia personale curiosità ho provato a ripercorrere il concetto di Abasul e sicuramente mi sarà sfuggito qualche cosa......

Nel caso quanto segue è superfluo perchè non pertinente chiedo venia:
Lancio un primo blocco di quartine, sul comparto di Bari mi si presenta un ritardo Max. ( il più vicino possibile alla data odierna 11/06/2020 ) con valore 1.024 ! attuale = a 95 [ rileggo qualche post indietro e mi accorgo che sono fuori strada, nel senso che mi va bene il Max. vicino all'ultima estrazione ma non mi va bene la ( Troppa ) differenza con il ritardo attuale.....
Rilancio un secondo iter su altro blocco:
Trovo su Torino ( in data 12/15/2018 ) un Max. di 628 con valore attuale 327 ...forse ancora troppa la differenza per fare il rapporto inteso da Abasul .....proseguo con il blocco e scendendo in classifica su Genova trovo un valore 709 il più vicino alla fine archivio ma con attuale di sole 252 estrazioni ....stoppo perchè il tempo di elaborazione è troppo lungo essendo solo al 2° blocco .

Ma quello che gentilmente chiedo , bisogna trovare il più vicino valore tra Max. ed attuale? se sì il Max. deve esserequello più vicino alla fine archivio con data 16/01/2021?

Grazie a chi vorrà rispondermi, Nikor.

 

[claudio8]

x Rosanna 58
Dalla risposta che hai scritto pare che tu non sia pratica di script.
Ti mettolo script di Tom ripulito e con la modifica che ti serve.

Option Explicit
Sub Main
    'implementazione filtro abasul x A in classe voluta (fino alla 89) + data estrazione rs max in selettivo  by lotto_tom75
    'metodo abasul completo---
    'Intanto, prima di spiegare come fare per scegliere le Combinazioni da giocare proposte dallo script,
    'bisogna prima capire bene questo concetto: il mio modo di operare si affida esclusivamente a principi
    'statistico-matematici e pertanto le scelte delle Combinazioni previsionali non fanno a che fare né a
    '"metodi per il lotto" né ad una "casuale previsione cabalistica per il lotto".Ecco come si procede:
    'si devono scegliere tra tutte le Combinazioni ricercate dallo script: 1) Due ambi secchi; due terzine
    'per ambo e due quartine per ambo ma che abbiano come data del loro max storico l'anno più vicino
    'a quello odierno, cioè dell'ultima estrazione. 2) Tutti i 18 numeri che sono compresi per ogni combinazione
    'devono essere tutti diversi. 3) Le previsioni che quindi In tutto ne sono sei, devono essere sempre seguite
    'estrazione su estrazione, perché quando ad esempio una di essa supera il range "tra 45% e 75%"
    'deve essere tolta e giocarne sempre di meno.
    '-----fine metodologia abasul
    Dim nSorte,aRuote,Ini,fin,sMsg,nMoltip,nTrov,nNumSel
    Dim nCicloTeo,nRitMax,nRitMin,nClasseLunghetta,nRuoteSel,nLunghetteDaTrov
    Dim TimeStart
    Dim k,CollComb,cColonna
    Dim aN
    Dim percMin,percMax
    Dim TipoAlgo
    Dim RetRit,RetRitMax,RetIncrRitMax,RetFrq
    Dim nSuperficialita
    percMin = CInt(InputBox("Scegli valore precentuale minima ","Percentuali Minima ",45))
    percMax = CInt(InputBox("Scegli valore precentuale massima ","Percentuali Massima ",75))
    nTrov = 0 '
    nNumSel = ScegliNumeri(aN)
    nClasseLunghetta = InputBox("Scegli classe di ricerca ","Classe di ricerca",3)
    nSorte = InputBox("Scegli sorte di ricerca","Sorte di ricerca",2)
    If nSorte < 0 Or nSorte > 5 Then
        nSorte = InputBox("Hai scelto una sorte impossibile da valutare. Scegli sorte di ricerca appropriata...","Sorte di ricerca",2)
    End If
    TipoAlgo = 4
    nSuperficialita = 0
    Dim contatore
    contatore = 0
    ResetTimer
    Call Scrivi
    Call Scrivi("Elaborazione effettuata con archivio lotto aggiornato all'estrazione del: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
    Call Scrivi
    Call Scrivi("Classe " & nClasseLunghetta & " sorte " & nSorte)
    Call Scrivi
    Dim r
    For r = 1 To 12 ' to 12
        nRuoteSel = r : ReDim aRuote(r) : aRuote(r) = r
        nLunghetteDaTrov = 10000 ' Int(InputBox("Lunghette da trovare","Quantità lunghette",10))
        ReDim Preserve aRuote(nRuoteSel)
        nCicloTeo = CicloTeorico(nClasseLunghetta,nSorte,UBound(aRuote))
        nMoltip = 1
        nRitMax = 0' Int(InputBox(sMsg,,nCicloTeo * nMoltip))
        nRitMin = 0 ' Int(InputBox(sMsg,,nCicloTeo * 3))
        fin = EstrazioneFin
        Ini = fin - nRitMax
        Dim idrsmax ' il numero dell'estrazione in cui si è verificato il ritardo storico per la sorte specificata
        Dim estrazione
        For estrazione = Ini To fin
            Call GetLunghettePiuRitardate(aN,aRuote,nClasseLunghetta,nSorte,CollComb,EstrazioneIni,EstrazioneFin,nRitMin,nRitMax,nLunghetteDaTrov,TipoAlgo,nSuperficialita)
            'Call GetLunghettePiuRitardate(aN,aRuote,EstrazioneIni,EstrazioneFin,nClasseLunghetta,nSorte,CollComb)
            Call OrdinaItemCollection(CollComb,"Ritardo",,,- 1)
            For Each cColonna In CollComb
                contatore = contatore + 1
                Call StatisticaFormazioneTurbo(cColonna.aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFrq,EstrazioneIni,EstrazioneFin)
                idrsmax = SerieEstrazioneStorico(EstrazioneIni,EstrazioneFin,cColonna.aNum,aRuote,nSorte)
                Dim diff
                diff = RetRitMax - RetRit
                If(RetRit >= 0) Then
                    Dim datoabasul
                    datoabasul =(RetRit/RetRitMax) * 100
                    diff = RetRitMax - RetRit
                    If(RetRit >= 0) Then
                        If(datoabasul >=(percMin)) And(datoabasul <=(percMax)) Then
                            Call Messaggio("                TROVATA ")
                            Call Scrivi("PROVA OUTPUT SECONDO FILTRO ABASUL con sole formazioni con ra distante dal rispettivo rs x A in terzina tra il 45% e 75%")
                            Call Scrivi("<font color=green>OK la formazione ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                            Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
                            'idrsmax = SerieEstrazioneStorico(Ini,fin,cColonna.aNum,aRuote,nSorte)
                            Call Scrivi(SiglaRuota(aRuote(r)) & " - " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & "<font color=blue> data ritardo max " & DataEstrazione(idrsmax) & "</font> incmax " & RetIncrRitMax & " frequenza " & RetFrq)
                            ' Scrivi
                            '                     Call Scrivi (Int(EstrazioneFin))
                            '                     Call Scrivi (Int(idrsmax))
                            Dim ValorediffEstrazioneFinmenoidrsmax
                            ValorediffEstrazioneFinmenoidrsmax = Int(EstrazioneFin) - Int(idrsmax)
                            '                     Scrivi
                            Call Scrivi("<font color=red>VALORE DIFF data ultima estrazione - data rs max <strong>" & ValorediffEstrazioneFinmenoidrsmax & "</strong></font>")
                        Else
                            'Call Scrivi("<font color=red>NO la formazione NON ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                        End If
                    End If ' x controllo valori non nulli di ra e rs
                    'Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
                    'Call Scrivi(SiglaRuota(aRuote(r)) & " " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & " incmax " & RetIncrRitMax & " frequenza " & RetFrq)
                    'Call Scrivi(cColonna.GetStringaNum)
                End If
                If ScriptInterrotto Then Exit For
            Next
        Next
        Call Scrivi("------------------------------------------------------------------------------")
        If ScriptInterrotto Then Exit For
    Next ' next ruote
    Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso,1)
End Sub

 

[Rosanna58]

x Rosanna 58
Dalla risposta che hai scritto pare che tu non sia pratica di script.
Ti mettolo script di Tom ripulito e con la modifica che ti serve.

Option Explicit
Sub Main
    'implementazione filtro abasul x A in classe voluta (fino alla 89) + data estrazione rs max in selettivo  by lotto_tom75
    'metodo abasul completo---
    'Intanto, prima di spiegare come fare per scegliere le Combinazioni da giocare proposte dallo script,
    'bisogna prima capire bene questo concetto: il mio modo di operare si affida esclusivamente a principi
    'statistico-matematici e pertanto le scelte delle Combinazioni previsionali non fanno a che fare né a
    '"metodi per il lotto" né ad una "casuale previsione cabalistica per il lotto".Ecco come si procede:
    'si devono scegliere tra tutte le Combinazioni ricercate dallo script: 1) Due ambi secchi; due terzine
    'per ambo e due quartine per ambo ma che abbiano come data del loro max storico l'anno più vicino
    'a quello odierno, cioè dell'ultima estrazione. 2) Tutti i 18 numeri che sono compresi per ogni combinazione
    'devono essere tutti diversi. 3) Le previsioni che quindi In tutto ne sono sei, devono essere sempre seguite
    'estrazione su estrazione, perché quando ad esempio una di essa supera il range "tra 45% e 75%"
    'deve essere tolta e giocarne sempre di meno.
    '-----fine metodologia abasul
    Dim nSorte,aRuote,Ini,fin,sMsg,nMoltip,nTrov,nNumSel
    Dim nCicloTeo,nRitMax,nRitMin,nClasseLunghetta,nRuoteSel,nLunghetteDaTrov
    Dim TimeStart
    Dim k,CollComb,cColonna
    Dim aN
    Dim percMin,percMax
    Dim TipoAlgo
    Dim RetRit,RetRitMax,RetIncrRitMax,RetFrq
    Dim nSuperficialita
    percMin = CInt(InputBox("Scegli valore precentuale minima ","Percentuali Minima ",45))
    percMax = CInt(InputBox("Scegli valore precentuale massima ","Percentuali Massima ",75))
    nTrov = 0 '
    nNumSel = ScegliNumeri(aN)
    nClasseLunghetta = InputBox("Scegli classe di ricerca ","Classe di ricerca",3)
    nSorte = InputBox("Scegli sorte di ricerca","Sorte di ricerca",2)
    If nSorte < 0 Or nSorte > 5 Then
        nSorte = InputBox("Hai scelto una sorte impossibile da valutare. Scegli sorte di ricerca appropriata...","Sorte di ricerca",2)
    End If
    TipoAlgo = 4
    nSuperficialita = 0
    Dim contatore
    contatore = 0
    ResetTimer
    Call Scrivi
    Call Scrivi("Elaborazione effettuata con archivio lotto aggiornato all'estrazione del: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
    Call Scrivi
    Call Scrivi("Classe " & nClasseLunghetta & " sorte " & nSorte)
    Call Scrivi
    Dim r
    For r = 1 To 12 ' to 12
        nRuoteSel = r : ReDim aRuote(r) : aRuote(r) = r
        nLunghetteDaTrov = 10000 ' Int(InputBox("Lunghette da trovare","Quantità lunghette",10))
        ReDim Preserve aRuote(nRuoteSel)
        nCicloTeo = CicloTeorico(nClasseLunghetta,nSorte,UBound(aRuote))
        nMoltip = 1
        nRitMax = 0' Int(InputBox(sMsg,,nCicloTeo * nMoltip))
        nRitMin = 0 ' Int(InputBox(sMsg,,nCicloTeo * 3))
        fin = EstrazioneFin
        Ini = fin - nRitMax
        Dim idrsmax ' il numero dell'estrazione in cui si è verificato il ritardo storico per la sorte specificata
        Dim estrazione
        For estrazione = Ini To fin
            Call GetLunghettePiuRitardate(aN,aRuote,nClasseLunghetta,nSorte,CollComb,EstrazioneIni,EstrazioneFin,nRitMin,nRitMax,nLunghetteDaTrov,TipoAlgo,nSuperficialita)
            'Call GetLunghettePiuRitardate(aN,aRuote,EstrazioneIni,EstrazioneFin,nClasseLunghetta,nSorte,CollComb)
            Call OrdinaItemCollection(CollComb,"Ritardo",,,- 1)
            For Each cColonna In CollComb
                contatore = contatore + 1
                Call StatisticaFormazioneTurbo(cColonna.aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFrq,EstrazioneIni,EstrazioneFin)
                idrsmax = SerieEstrazioneStorico(EstrazioneIni,EstrazioneFin,cColonna.aNum,aRuote,nSorte)
                Dim diff
                diff = RetRitMax - RetRit
                If(RetRit >= 0) Then
                    Dim datoabasul
                    datoabasul =(RetRit/RetRitMax) * 100
                    diff = RetRitMax - RetRit
                    If(RetRit >= 0) Then
                        If(datoabasul >=(percMin)) And(datoabasul <=(percMax)) Then
                            Call Messaggio("                TROVATA ")
                            Call Scrivi("PROVA OUTPUT SECONDO FILTRO ABASUL con sole formazioni con ra distante dal rispettivo rs x A in terzina tra il 45% e 75%")
                            Call Scrivi("<font color=green>OK la formazione ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                            Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
                            'idrsmax = SerieEstrazioneStorico(Ini,fin,cColonna.aNum,aRuote,nSorte)
                            Call Scrivi(SiglaRuota(aRuote(r)) & " - " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & "<font color=blue> data ritardo max " & DataEstrazione(idrsmax) & "</font> incmax " & RetIncrRitMax & " frequenza " & RetFrq)
                            ' Scrivi
                            '                     Call Scrivi (Int(EstrazioneFin))
                            '                     Call Scrivi (Int(idrsmax))
                            Dim ValorediffEstrazioneFinmenoidrsmax
                            ValorediffEstrazioneFinmenoidrsmax = Int(EstrazioneFin) - Int(idrsmax)
                            '                     Scrivi
                            Call Scrivi("<font color=red>VALORE DIFF data ultima estrazione - data rs max <strong>" & ValorediffEstrazioneFinmenoidrsmax & "</strong></font>")
                        Else
                            'Call Scrivi("<font color=red>NO la formazione NON ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                        End If
                    End If ' x controllo valori non nulli di ra e rs
                    'Call Scrivi("Sorte ricercata: " & nSorte & " classe: " & nClasseLunghetta)
                    'Call Scrivi(SiglaRuota(aRuote(r)) & " " & cColonna.GetStringaNum & " Rit " & RetRit & " rit max " & RetRitMax & " incmax " & RetIncrRitMax & " frequenza " & RetFrq)
                    'Call Scrivi(cColonna.GetStringaNum)
                End If
                If ScriptInterrotto Then Exit For
            Next
        Next
        Call Scrivi("------------------------------------------------------------------------------")
        If ScriptInterrotto Then Exit For
    Next ' next ruote
    Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso,1)
End Sub

Grazie infinite claudio8 per la tua gentilezza e per il tempo che mi hai dedicato.

 

[claudio8]

Buon pomeriggio agli intervenuti , per una mia personale curiosità ho provato a ripercorrere il concetto di Abasul e sicuramente mi sarà sfuggito qualche cosa......

Nel caso quanto segue è superfluo perchè non pertinente chiedo venia:
Lancio un primo blocco di quartine, sul comparto di Bari mi si presenta un ritardo Max. ( il più vicino possibile alla data odierna 11/06/2020 ) con valore 1.024 ! attuale = a 95 [ rileggo qualche post indietro e mi accorgo che sono fuori strada, nel senso che mi va bene il Max. vicino all'ultima estrazione ma non mi va bene la ( Troppa ) differenza con il ritardo attuale.....
Rilancio un secondo iter su altro blocco:
Trovo su Torino ( in data 12/15/2018 ) un Max. di 628 con valore attuale 327 ...forse ancora troppa la differenza per fare il rapporto inteso da Abasul .....proseguo con il blocco e scendendo in classifica su Genova trovo un valore 709 il più vicino alla fine archivio ma con attuale di sole 252 estrazioni ....stoppo perchè il tempo di elaborazione è troppo lungo essendo solo al 2° blocco .

Ma quello che gentilmente chiedo , bisogna trovare il più vicino valore tra Max. ed attuale? se sì il Max. deve esserequello più vicino alla fine archivio con data 16/01/2021?

Grazie a chi vorrà rispondermi, Nikor.

Ciao Nikor ben uscito da gran febbrone.

Per tutte le tipologie di formazioni devi scegliere tra tutte le ruote e devono avere le caratteristiche di seguito specificate da abasul nei suoi post che ti elenco.

abasul scrive:
" Intanto, prima di spiegare come fare per scegliere le combinazioni da giocare proposte dallo script, bisogna prima capire bene questo concetto: il mio modo di operare si affida esclusivamente a principi statistico-matematici e pertanto le scelte delle combinazioni previsionali non hanno a che fare né con "metodi per il lotto" né con "casuali previsioni cabalistiche per il lotto".
Ecco come si procede:
Si devono scegliere tra tutte le combinazioni ricercate dallo script:
1) Una coppia di due ambi secchi; un'altra coppia di due terzine per ambo e un'altra coppia ancora di due quartine per ambo ma che abbiano come data del loro max storico l'anno più vicino a quello odierno, cioè dell'ultima estrazione ( n.d.r. se si scegli di effettuare la ricerca con un fine range diverso dall'ultima estrazione deduco che si debba utilizzare il fine range quale ipotetica ultima estrazione).
2) Tutti i 18 numeri che sono compresi tra le combinazioni devono essere tutti diversi.
3) Le previsioni che quindi in tutto ne sono sei, devono essere sempre seguite estrazione dopo estrazione, perché quando poi ad esempio una di esse supera il range compreso tra "45% e 75%" deve essere esclusa, e di giocate, se ancora esce l'ambo in una combinazione, in seguito se ne giocheranno sempre di meno fino a rimanere solo con tre combinazioni da giocare.

Se non ho scelto male a mano (ecco perché ora servirebbe anche un altro script singolo oppure integrato a questo che lo facesse) queste sarebbero le previsioni da tenere sempre sotto osservazione e le quali sono le più probabili "parlo sempre e solo riferiti ad un calcolo di probabilità "statistico-matematico":
Napoli 25-63;
Palermo 58-78;
Genova 6-10-41;
Torino 7-19-36;
Venezia 2-45-51-68; inserita con modifica delle ore 13,37
Cagliari 1-15-43-53. inserita con modifica delle ore 13,37

Certo che lo script le propone (risposta a Tom), ma quello che intendo io è che dover ricercare solo a vista quelle quartine che hanno "numeri diversi" da quelli che fanno parte delle combinazioni per ambo già da me postate e per di più filtrarne anche le relative date degli storici, le quali devono risultare più vicine all'anno in corso, non è cosa facile.

Comunque adesso le 2 quartine mancanti sono riuscite a rintracciarle (anche se come ho già detto senza l'ausilio di un listato è stato difficile ed ecco perché lo richiedo per tutti) per cui queste quartine per ambo io adesso le inserirò anche insieme alle altre combinazioni per ambo già descritte in uno dei miei post precedenti:
Venezia 2-45-51-68; Cagliari 1-15-43-53. ""

A me pare chiaro, mi resta solo da capire come meglio predisporre la giocata in termine di attesa o meno e le tempistiche di sfaldamento.
Approfitto dell'occasione per girare la domanda ad abasul

ciao a tutti

 

[Nikor]

Ciao Claudio e grazie per la gentile risposta.

Forse per mancanza di concentrazione non riesco a mettere a fuoco alcune differenze, ad esempio partiamo dalle quartine :
Una delle Quartine segnalate da Abasul e riportate nel tuo post recita ( Ca-01-15-43-53 )
Max. precedente 275 - Attuale 176 ( salvo errori da parte mia ) noto che il Max. è riferito alla data del 1964 , tanto ma tanto tempo fa e non si avvicina per niente agli ultimi anni.........

Rilancio la mia bozza su un solo blocco e trovo :
Roma ( 01-07-50-60 ) Max. precedente 810 - Attuale 556 ! ( il precedente Max. è riferito alla data [ 18/05/2017 ] molto vicino a fine archivio........

A questo punto mi chiedo , quale delle 2 quartine è meglio tenere in considerazione?
La quartina che ho citato è solo una piccola parte di tutti i blocchi che sarebbero da analizzare, nei rimanenti blocchi ci sarà sicuramente qualche cosa di più performante in tema ( non di previsione ) ma di dati sul confronto Max. & Attuale dove il Max. sia vicino a fine archivio......
...Poi per le 2 coppie di Ambi e le 2 Terzine , questo lo si può fare anche da Spazio in tempi brevi senza passare da uno script.......

Ovviamente sono solo mie personali supposizioni, Buona serata da Nikor.

 

[claudio8]

Nikor
la scelta delle formazioni da considerare deve tenere conto di tutte le condizioni poste in elenco,
il tutto parte dalla ricerca delle formazioni ad ambo con rapporto r/rMax dal 45% al 75% ed è chiaro che se ne possono trovare diverse (questo rapporto deve essere valido x tutte le ulteriori formazioni di ricerca) e nella scelta tra le varie dello stesso tipo deve prevalere la mggior vicinanza della data di estrazione del ritMax rispetto alla data dell'ultima estrazione, idem per le terziene le quartine.
Tra le varie formazioni, non devono esserci numeri identici.
Sicuramente si potrebbero creare diversi gruppi di coppie di formazioni ( 2 coppie xAmbo, 2 terzine x Ambo e 2 quartine x Ambo aventi numeri diversi tra loro) la scelta dovrà ricaderesu qualche specifico ulteriore filtro che solo chi ha esperienza sulla tecnica può ulteriormente indicarci.
Abusal ha inserito queste formazioni:
Napoli 25-63;
Palermo 58-78;
Genova 6-10-41;
Torino 7-19-36;
Venezia 2-45-51-68; inserita con modifica delle ore 13,37
Cagliari 1-15-43-53. con Max. precedente 275 - Attuale 176 è riferito alla data del 1964
tu hai trovato
Roma 01-07-50-60 con Max. precedente 810 - Attuale 556 è riferito alla data [ 18/05/2017 ]
però come ti ho evidenziato in rosso, questa quartina è sicuramente + giovane di quella di CAgliari ma ha il 7 tra i suoi numeri il 7 e quindi ha un numero comune a quello della terzina di Torino.
A questo punto andrebbe esclusa a meno che non possa essere sostituita la trezina Torino 7-19-36;
Altre specifiche considerazioni di maggior validità delle formazioni da considerare non saprei indicarti.
Spero di essere stato esustivo
ciao

 

[Nikor]

Claudio , non sei stato solo chiaro ma chiarissimo!
Rimango sempre del parere che prima si deve partire da 2 Quartine, e quì è l'impresa più ardua poi costruite queste 2 il resto vien da sè ...in parole povere a mio parere la Piramide deve partire dalle sequele più lunghe a scendere .

Il gruppo di 18 numeri diversi dovrà poi essere sottoposto ad ulteriore verifica perchè ci saranno innumerevoli gruppi dove in alcuni prevarranno gli Ambi e su altri potrebbero prevalere le Terzine e viceversa per le Quartine.......

Ancora grazie delle spiegazioni che mi hai gentilmente fornito , non posso entrare nell'ottica di Abasul ma l'impresa per trovare i 3 gruppi di sequele è a mio avviso ciclopica.

Non me la sento di fare bozze di questo tipo , ringrazio tutti per avermi permesso di capire la tematica .

Buona serata, da Nikor.