Torino, consecutivi in 1° determinato

[micro__]

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

 

[claudio8]

Al prossimo anno
Auguri

 

[micro__]

Felice 2022 Claudio8!!

 

[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

 

[claudio8]

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

 

[micro__]

Grazie infinite Claudio8!!

saluti
micro

 

[claudio8]

riprendi lo script che ho dovuto dichiarare con option explicit anche il "k"

 

[micro__]

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...

 

[claudio8]

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.

 

[micro__]

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

 

[claudio8]

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

 

[micro__]

Grazie Claudio!!

 

[micro__]

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