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 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto