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 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19

Ultimi Messaggi

Indietro
Alto