Novità

Torino, consecutivi in 1° determinato

micro__

Advanced Member >PLATINUM PLUS<
La situazione, decisamente intrigante del 1° ED di Torino, relativo ai consecutivi:

18/12/2021 -63-
21/12/2021-64-
23/12/2021-65-

fa pensare ad una evoluzione delle dinamiche e relativa previsione del 62 (non importa, per me, se uscito in data 18/12/2021, anzi forse la rafforza) e del 66 al 1° ED della ruota.
A questo proposito vi chiedo se avete una formula excel da proporre, per spulciare i casi pregressi, o se avete uno script da lanciare.
Grazie a tutti gli interessati!
micro
 
L'estrazione di ieri ha riprodotto uno dei tre numeri della terzina 63/64/65, in ambo con il 66 uscito al 3° ED
In effetti ci si poteva decisamente pensare!

Resta comunque sempre valida la previsione.

Claudio8 se puoi, è possibile valutare la casistIca con lo script che dia la possibilità di scegliere le distanze sui tre numeri isotopi determinati ( su tre estrazioni continue e su ruota ), distanze da 1 a 30?
Grazie!
saluti e buona giornata
micro
 
Codice:
Option Explicit
' script/micro/isotopi 3estraz +distanza
Sub Main()
   Dim ruota(1)
   Dim posta(5)
   Dim n(1)
   Dim n1(4)
   Dim nn(10)
   Dim aRuo(1)
   Dim estr_ritr,clp,fr1,fr2,es,k
   Dim a,b,c,r,pos,fisso,ini,fin,caso
   posta(1) = 1
   estr_ritr = CInt(InputBox("Quante estrazioni di ricerca?"," estrazioni a ritroso",5000))
   clp = CInt(InputBox("Quanti colpi per esito ?","Colpi di gioco",6))
   'r = CInt(InputBox("Ruota di gioco?","Ruota?",1))
   pos = CInt(InputBox("Posizione di gioco?","Posizione?",1))
   fisso = CInt(InputBox("Imposta distanza?","Distanza?",1))
   caso = 0
   ini = EstrazioneFin - estr_ritr
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 1 To 11
         If r = 11 Then r = 12
         a = Estratto(es,r,pos)
         b = Estratto(es - 1,r,pos)
         c = Estratto(es - 2,r,pos)
    
         If Fuori90(90 + a - fisso) = b And Fuori90(90 + b - fisso) = c Then
            caso = caso + 1
            n1(1) = a ' ELEMENTO BSAE DEI NUMERI CONSECUTIVI
            n1(2) = b
            n1(3) = c
            'aRuo(1) = r
            'fr1 = SerieFreq(es + 1,es + clp,n1,aRuo,1)
            'fr2 = SerieFreq(es + 1,es + clp,n1,aRuo,2)
            Scrivi " ------------------------------------------------------------------------------------- caso n° " & caso
            For k = - 2 To 0
               Scrivi "           " & DataEstrazione(es + k) & "  " & FormatSpace(es + k,5,True) & "  " & SiglaRuota(r) & " | " & StringaEstratti(es + k,r) & " | "
            Next
            Scrivi "Esiti successivi"
            For k = 1 To clp
               Scrivi "           " & DataEstrazione(es + k) & "  " & FormatSpace(es + k,5,True) & "  " & SiglaRuota(r) & " | " & StringaEstratti(es + k,r) & " | "
            Next
         End If
      Next
   Next
End Sub
Essendoci casi rari a parità di distanza, ho escluso dalle variabili la singola ruota controllandole tutte da 1 a 12
Ciao
 
Ultima modifica:
For k = - 2 To 0

vuoi dire che, se vario questo k, posso cercare anche più numeri determinati, non solo tre?

comunque lo script fa quello che volevo vedere.
Devo dire che escono spesso anche gli stessi numeri consecutivi con le stesse distanze, non solo i numeri dinamici...
 
For k = - 2 To 0

vuoi dire che, se vario questo k, posso cercare anche più numeri determinati, non solo tre?

comunque lo script fa quello che volevo vedere.
Devo dire che escono spesso anche gli stessi numeri consecutivi con le stesse distanze, non solo i numeri dinamici...
No ti fa vedere le estrazioni da -2 alla estrazione di partenza del gioco.
 
Ciao Claudio,
su Milano al 4° estratto determinato sono usciti 3 numeri consecutivi ma stavolta in ordine decrescente...cioè 57-56-55, potresti scrivermi come variare lo script visto che vede solo i consecutivi in ordine crescente?

GRAZIEEE!!
micro
 
Codice:
Option Explicit
' script/micro/isotopi 3estraz + distanza ord. decr. o cresc https://forum.lottoced.com/threads/torino-consecutivi-in-1%C2%B0-determinato.2202938/#post-2403214
Sub Main()
    Dim ruota(1)
    Dim posta(5)
    Dim n(1)
    Dim n1(4)
    Dim nn(10)
    Dim aRuo(1)
    Dim estr_ritr,clp,fr1,fr2,es,k,Ord
    Dim a,b,c,r,pos,fisso,ini,fin,caso
    posta(1) = 1
    estr_ritr = CInt(InputBox("Quante estrazioni di ricerca?"," estrazioni a ritroso",5000))
    clp = CInt(InputBox("Quanti colpi per esito ?","Colpi di gioco",6))
    Ord = CInt(InputBox("Quale ordinamento scegli?  Cres.=1 : Decr.=0 ","Ordinamento",0))
    'r = CInt(InputBox("Ruota di gioco?","Ruota?",1))
    pos = CInt(InputBox("Posizione di gioco?","Posizione?",1))
    fisso = CInt(InputBox("Imposta distanza?","Distanza?",1))
    caso = 0
    ini = EstrazioneFin - estr_ritr
    fin = EstrazioneFin
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        For r = 1 To 11
            If r = 11 Then r = 12
            a = Estratto(es,r,pos)
            b = Estratto(es - 1,r,pos)
            c = Estratto(es - 2,r,pos)
            If Ord = 1 And Fuori90(90 + a - fisso) = b And Fuori90(90 + b - fisso) = c Then
                caso = caso + 1
                n1(1) = a ' ELEMENTO BSAE DEI NUMERI CONSECUTIVI
                n1(2) = b
                n1(3) = c
                'aRuo(1) = r
                'fr1 = SerieFreq(es + 1,es + clp,n1,aRuo,1)
                'fr2 = SerieFreq(es + 1,es + clp,n1,aRuo,2)
                Scrivi " ------------------------------------------------------------------------------------- caso n° " & caso
                For k = - 2 To 0
                    Scrivi "           " & DataEstrazione(es + k) & "  " & FormatSpace(es + k,5,True) & "  " & SiglaRuota(r) & " | " & StringaEstratti(es + k,r) & " | "
                Next
                Scrivi "Esiti successivi"
                For k = 1 To clp
                    Scrivi "           " & DataEstrazione(es + k) & "  " & FormatSpace(es + k,5,True) & "  " & SiglaRuota(r) & " | " & StringaEstratti(es + k,r) & " | "
                Next
            Else
                If Ord = 0 And Fuori90(90 + a + fisso) = b And Fuori90(90 + b + fisso) = c Then
                    caso = caso + 1
                    n1(1) = a ' ELEMENTO BASE DEI NUMERI CONSECUTIVI
                    n1(2) = b
                    n1(3) = c
                    'aRuo(1) = r
                    'fr1 = SerieFreq(es + 1,es + clp,n1,aRuo,1)
                    'fr2 = SerieFreq(es + 1,es + clp,n1,aRuo,2)
                    Scrivi " ------------------------------------------------------------------------------------- caso n° " & caso
                    For k = - 2 To 0
                        Scrivi "           " & DataEstrazione(es + k) & "  " & FormatSpace(es + k,5,True) & "  " & SiglaRuota(r) & " | " & StringaEstratti(es + k,r) & " | "
                    Next
                    Scrivi "Esiti successivi"
                    For k = 1 To clp
                        Scrivi "           " & DataEstrazione(es + k) & "  " & FormatSpace(es + k,5,True) & "  " & SiglaRuota(r) & " | " & StringaEstratti(es + k,r) & " | "
                    Next
                End If
            End If
        Next
    Next
End Sub
controlla sempre l'output
 
Esito sul controllo per 6000 estrazioni, ordine decrescente per l'estratto determinato (numeri in gioco estesi anche ai laterali)- per un totale di 5 estratti determinati (3+2)- distanza 1,posizione del determinato 5°:

BARI estrazioni 6862-6863-6864, determinati in gioco 26-25-24-23-22, MAX RITARDO 75 C. con l'uscita del 24 alla 6939.

Altri ritardi, nelle cinque posizioni determinate, hanno un dato decisamente inferiore.

Interessante, come dato anche statistico, la condizione a GEnova al 4° E. D., estrazioni dalla 5447 alla 5451 con le uscite, in ordine decrescente di -73-72-71-70-69-quindi ben cinque numeri consecutivi, con l'uscita del 73 dopo 14 colpi.


saluti e grazie ancora,
micro
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
Indietro
Alto