Richiesta Aiutino

[Xeroxs]

Buongiorno a Tutti

Sto effettuando delle ricerche con uno script dove voglio evidenziare delle distanze isotope su estrazioni consecutive su 2 ruote, ho impostato la ricerca nelle posizioni e le ruote il tutto sembra funzionare ma nell' esporre i dati mi ripete delle estrazioni, ma non capisco dove genero l'errore, forse in un ciclo For male impostato, e la prima volta che faccio una ricerca di questo tipo con questa isotopia e forse va impostata in modo diverso ma basandomi su quanto ho imparato o capito al momento non riesco a capire il mio errore.

Per cui Vi posto il mio script sperando in un vostro intervento per capire dove sbaglio.

Option Explicit
Sub Main()
    Dim Ini,Fin,es,QE,K
    Dim r1,r2
    Dim A,B,C,D,p1,p2
    Dim Dis1,Dis2,Num(3)
    QE = CInt(InputBox(" Quante Estrazioni vuoi controllare ? ",,"50"))
    Ini = EstrazioneFin - QE
    Fin = EstrazioneFin
    For es = Ini To Fin
        Messaggio "Elab. Estr. [" &(es) & "] del " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        For r1 = 1 To 10
            For p1 = 1 To 5
                For p2 = p1 + 1 To 5
                    A = Estratto(es,r1,p1)
                    B = Estratto(es - 1,r1,p1)
                    Dis1 = Distanza(A,B)
                    If Dis1 = 5 Then
                        'For r2 = r1 + 1 To 10 ' -----> Senza la Ruota Nazionale
                        For r2 = r1 + 1 To 12
                            If r2 = 11 Then r2 = 12
                            C = Estratto(es,r2,p1)
                            D = Estratto(es - 1,r2,p1)
                            Dis2 = Distanza(C,D)
                            If Dis2 = Dis1 Then
                                ColoreTesto 1 : K = K + 1 : Scrivi "Estrazione n." & Format2(es) & " " & String(95,"*") & " Caso n°" & Format2(K),1
                                Scrivi : ColoreTesto 0
                                Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> " & "[" & Format2(A) & "]" & " - " & DataEstrazione(es) &  " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ----> [" & Format2(C) & "]"  & " ----> [" & Format2(A) & "-" & Format2(B) & "]",1,0
                                Scrivi " 1^ ambo ",1
                                Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " ---> " & "[" & Format2(B) & "]" & " - " & DataEstrazione(es - 1)  &  " " & SiglaRuota(r2) & " " & StringaEstratti(es - 1,r2) & " ----> [" & Format2(D) & "]"  & " ----> [" & Format2(C) & "-" & Format2(D)  & "]",1,0
                                Scrivi " 2^ ambo ",1
                                Scrivi
                                ColoreTesto 1 : Scrivi String(123,"-"),1
                                Scrivi' : ColoreTesto 0
                            End If
                        Next
                    End If
                Next
            Next
        Next
    Next
    ColoreTesto 2
    Scrivi" Casi trovati : " & K,1
End Sub

questo è l'out della ricerca come si nota ho delle ripetizioni

Estrazione n.9942 *********************************************************************************************** Caso n°01

24.06.2021 BA 43.50.77.49.59 ---> [43] - 24.06.2021 PA 08.77.44.73.45 ----> [08] ----> [43-38] 1^ ambo
22.06.2021 BA 38.69.47.22.46 ---> [38] - 22.06.2021 PA 03.31.67.21.07 ----> [03] ----> [08-03] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Estrazione n.9942 *********************************************************************************************** Caso n°02

24.06.2021 BA 43.50.77.49.59 ---> [43] - 24.06.2021 PA 08.77.44.73.45 ----> [08] ----> [43-38] 1^ ambo
22.06.2021 BA 38.69.47.22.46 ---> [38] - 22.06.2021 PA 03.31.67.21.07 ----> [03] ----> [08-03] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Estrazione n.9942 *********************************************************************************************** Caso n°03

24.06.2021 BA 43.50.77.49.59 ---> [43] - 24.06.2021 PA 08.77.44.73.45 ----> [08] ----> [43-38] 1^ ambo
22.06.2021 BA 38.69.47.22.46 ---> [38] - 22.06.2021 PA 03.31.67.21.07 ----> [03] ----> [08-03] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Estrazione n.9942 *********************************************************************************************** Caso n°04

24.06.2021 BA 43.50.77.49.59 ---> [43] - 24.06.2021 PA 08.77.44.73.45 ----> [08] ----> [43-38] 1^ ambo
22.06.2021 BA 38.69.47.22.46 ---> [38] - 22.06.2021 PA 03.31.67.21.07 ----> [03] ----> [08-03] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Estrazione n.9942 *********************************************************************************************** Caso n°05

24.06.2021 CA 86.42.69.70.65 ---> [42] - 24.06.2021 VE 37.59.79.90.42 ----> [59] ----> [42-37] 1^ ambo
22.06.2021 CA 84.37.09.20.05 ---> [37] - 22.06.2021 VE 63.64.21.27.53 ----> [64] ----> [59-64] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Estrazione n.9942 *********************************************************************************************** Caso n°06

24.06.2021 CA 86.42.69.70.65 ---> [42] - 24.06.2021 VE 37.59.79.90.42 ----> [59] ----> [42-37] 1^ ambo
22.06.2021 CA 84.37.09.20.05 ---> [37] - 22.06.2021 VE 63.64.21.27.53 ----> [64] ----> [59-64] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Estrazione n.9942 *********************************************************************************************** Caso n°07

24.06.2021 CA 86.42.69.70.65 ---> [42] - 24.06.2021 VE 37.59.79.90.42 ----> [59] ----> [42-37] 1^ ambo
22.06.2021 CA 84.37.09.20.05 ---> [37] - 22.06.2021 VE 63.64.21.27.53 ----> [64] ----> [59-64] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Estrazione n.9971 *********************************************************************************************** Caso n°08

31.08.2021 MI 38.71.69.88.30 ---> [88] - 31.08.2021 NA 44.04.76.32.77 ----> [32] ----> [88-83] 1^ ambo
28.08.2021 MI 64.87.60.83.57 ---> [83] - 28.08.2021 NA 54.14.42.37.41 ----> [37] ----> [32-37] 2^ ambo

---------------------------------------------------------------------------------------------------------------------------

Casi trovati : 8


Intanto Vi ringrazio fin da ora, come sempre.

 

[i legend]

Cambio suggerimento, altrimenti non impari.

 

[i legend]

Dai un occhio ai cicli for.
Stacca 5 minuti e poi gli dai un occhio

 

[Xeroxs]

Grazie I-Legend
Già ricontrollavo riga per Riga ed ho corretto il Tutto, anche se chiedo un aiuto continuo comunque a provare dove sbagliavo, e come sempre hai ragione, altrimenti non imparo.
Grazie.

Corretto in questo modo, sicuramente posso far meglio, ma intanto comprendo e vedo i risultati.
Poso le mie correzioni

Option Explicit
Sub Main()
   Dim Ini,Fin,es,QE,K
   Dim r1,r2
   Dim A,B,C,D,p1,p2
   Dim Dis1,Dis2,Num(3)
   QE = CInt(InputBox(" Quante Estrazioni vuoi controllare ? ",,"50"))
   Ini = EstrazioneFin - QE
   Fin = EstrazioneFin
   For es = Ini To Fin
      Messaggio "Elab. Estr. [" &(es) & "] del " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 5
            For p2 = 1 + 1 To 5
               A = Estratto(es,r1,p1)
               B = Estratto(es - 1,r1,p2)
               If p1 = p2 Then
                  Dis1 = Distanza(A,B)
                  If Dis1 = 5 Then
                     'For r2 = r1 + 1 To 10 ' -----> Senza la Ruota Nazionale
                     For r2 = r1 + 1 To 12
                        If r2 = 11 Then r2 = 12
                        C = Estratto(es,r2,p1)
                        D = Estratto(es - 1,r2,p2)
                        If p1 = p2 Then
                           Dis2 = Distanza(C,D)
                           If Dis2 = Dis1 Then
                              ColoreTesto 1 : K = K + 1 : Scrivi "Estrazione n." & Format2(es) & " " & String(95,"*") & " Caso n°" & Format2(K),1
                              Scrivi : ColoreTesto 0
                              Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> " & "[" & Format2(A) & "]" & " - " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ----> [" & Format2(C) & "]" & " ----> [" & Format2(A) & "-" & Format2(B) & "]",1,0
                              Scrivi " 1^ ambo ",1
                              Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " ---> " & "[" & Format2(B) & "]" & " - " & DataEstrazione(es - 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es - 1,r2) & " ----> [" & Format2(D) & "]" & " ----> [" & Format2(C) & "-" & Format2(D) & "]",1,0
                              Scrivi " 2^ ambo ",1
                              Scrivi
                              ColoreTesto 1 : Scrivi String(123,"-"),1
                              Scrivi' : ColoreTesto 0
                           End If
                        End If
                     Next
                  End If
               End If
            Next
         Next
      Next
   Next
   ColoreTesto 2
   Scrivi" Casi trovati : " & K,1
End Sub

😀

 

[i legend]

Guarda il ciclo di p1
Ciao

 

[i legend]

Xerox fai righe troppo lunghe. Ma quanto è grande il tuo schermo?
Vedo che usi i ": "per non andare a capo , ma se hai righe eccessivamente lunghe perché?
Se cerchi in rete o leggi qualche altro script vedi come si possono " spezzare" senza che il software rilevi errore.
È solo un suggerimento ,per agevolare la lettura ,per te e per chi chiedi un piccolo aiuto.
Buona domenica

 

[i legend]

For p1 = 1 To 5
For p2 = 1 + 1 To 5

For p1 = 1 to 4
        For p2=p1+1 to 5 
         Next
Next

 

[Xeroxs]

Ciao I-Legend
So come si Fa e lo uso spesso, ma mi rendo conto che devo anche dare una visuale più agevole come dici Tu seguirò il tuo consiglio, correggendo fin da ora quanto postato.

Grazie anche per il consiglio.

 

[i legend]

Anche il secondo ciclo for della ruota non è corretto . Ciao.

 

[Xeroxs]

Si visto. 😀

 

[i legend]

quando finisci posta tutto cosi vediamo

 

[Xeroxs]

Ecco quanto ho ricorretto ma qualcosa non va, nel senso che se seguo logica e i validi consigli mi da pagina bianca, mentre se li scrivo in un certo mo sembra dare i valori corretti ma qualcosa non mi torna, c'è ancora forse qualcosa nel ciclo successivo che non va

Option Explicit
Sub Main()
   Dim Ini,Fin,es,QE,K
   Dim r1,r2
   Dim A,B,C,D,p1,p2
   Dim Dis1,Dis2,Num(3)
   QE = CInt(InputBox(" Quante Estrazioni vuoi controllare ? ",,"50"))
   Ini = EstrazioneFin - QE
   Fin = EstrazioneFin
   For es = Ini To Fin
      Messaggio "Elab. Estr. [" &(es) & "] del " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 5
            For p2 = 1 + 1 To 5
         '--------------------------------------------------------------------------------- Nota
         'se lo scrivo Cosi da pagina bianca
         'For p1 = 1 To 4
            'For p2 = p1 + 1 To 5
         '---------------------------------------------------------------------------------     
               A = Estratto(es,r1,p1)
               B = Estratto(es - 1,r1,p2)
               If p1 = p2 Then
                  Dis1 = Distanza(A,B)
                  If Dis1 = 5 Then
                     'For r2 = r1 + 1 To 10 ' -----> Senza la Ruota Nazionale
                     For r2 = r1 + 1 To 11
                        If r2 = 11 Then r2 = 12
                        C = Estratto(es,r2,p1)
                        D = Estratto(es - 1,r2,p2)
                        If p1 = p2 Then ' Forse non necessario
                           Dis2 = Distanza(C,D)
                           If Dis2 = Dis1 Then
                              ColoreTesto 1
                              K = K + 1
                              Scrivi "Estrazione n." & Format2(es) & " " & String(95,"*") & " Caso n°" & Format2(K),1
                              Scrivi
                              ColoreTesto 0
                              Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> " & "[" & Format2(A) & "]",1,0
                              Scrivi " - " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ----> [" & Format2(C) & "]",1,0
                              Scrivi " ----> [" & Format2(A) & "-" & Format2(B) & "]" & " 1^ ambo ",1
                              Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " ---> " & "[" & Format2(B),1,0
                              Scrivi "]" & " - " & DataEstrazione(es - 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es - 1,r2) & " ----> [" & Format2(D),1,0
                              Scrivi "]" & " ----> [" & Format2(C) & "-" & Format2(D) & "]" & " 2^ ambo ",1
                              Scrivi
                              ColoreTesto 1
                              Scrivi String(123,"-"),1
                              Scrivi
                           End If ' Chiude Dis2 = Dis1
                        End If ' Chiude p1 = p2 della r2 -----> Forse non necessario
                     Next ' Chiude r2
                  End If ' Chiude Dis1
               End If ' Chiude p1 = p2 della r1
            Next ' Chiude p2
         Next ' Chiude p1
      Next ' Chiude r1
   Next ' Chiude es
   ColoreTesto 2
   Scrivi" Casi trovati : " & K,1
End Sub

 

[i legend]

For p1 = 1 To 5
For p2 = 1 + 1 To 5
Scrivi p1&"-"&p2
Next
Next

Prova a sviluppare questo ciclo

 

[i legend]

Fai per favore un esempio reale.
Scrivi data estratti ed evidenzia i numeri coinvolti
La tua richiesta dice una cosa ,lo script ne vuole fare un altra.

 

[Xeroxs]

Si appena rientro lo farò

 

[Xeroxs]

Ciao a Tutti,
Grazie Ancora ad I-Legend che mi spinge sempre a risolvere le mie indecisioni o piccoli/grandi errori nello scrivere gli script.

Riassumendo dovevo Ricercare su due estrazioni consecutive una distanza scelta nel mio caso la distanza 5 in posizione isotopa su 2 Ruote
come ad esempio

Estrazione n.9882 *********************************************************************************************** Caso n°01
Trovata la Distanza [5] In Posizione Isotopa sulle Ruote di ---> Bari e Roma

04.02.2021 BA 46.02.84.50.61 ---> [02] - 04.02.2021 RO 18.04.12.87.76 ----> [04] ----> [02-87] 1^ ambo In 2^ Pos.
02.02.2021 BA 38.87.12.59.01 ---> [87] - 02.02.2021 RO 72.09.52.31.41 ----> [09] ----> [04-09] 2^ ambo In 2^ Pos.

Infatti il 4 febbraio 2021 su Bari e Roma in 2 Posiz. i numeri

Bari = 2 e Roma = 4

lo script a questo punto trova nell' estrazione precedente i numeri che hanno distanza 5 dagli estratti del 4 Febbraio sempre in posizione isotopa

quindi abbiamo [02-87] su Bari e [04-09] su Roma

Condizione rispettata

Non Riuscivo a trovare le condizioni isotope e poi mi ripeteva le condizioni, nel rivedere il tutto spinto da I-Legend penso di avere risolto il tutto ho visto che proponendo la ricerca su 100 estrazioni rispetta la ricerca su tutte le posizioni evidenziando solo quelle isotope.

Questo mi serviva per un metodo di cui ancora non ho i calcoli, in quanto non è farina del mio sacco, ma se no riesco a trovare le giuste condizioni non potevo andare oltre.

Poi in questo modo penso di poter ridurre i casi rilevati, ma questa è solo una mia opinione.


Lo script l'ho rivisto è corretto, sicuramente si può snellire o migliorare ma se è tutto o quasi tutto corretto sono più che soddisfatto.

ho impostato le posizioni in questo modo

For p1 = 1 To 5
For p2 = 1 To 5

Forse è sbagliato ma è in tutte le mi elaborazioni fatte è quella che funziona

Se fosse sbagliato o si può scrivere in altro modo sarei contento di capire come farlo, ripeto questo tipo di ricerca è la prima volta che la effettuavo ed in rete non ho visto nulla che lo facesse.

Se non sono stato chiaro nell'esporre le cose chiedo scusa.

Option Explicit
Sub Main()
   Dim Ini,Fin,es,QE,K
   Dim r1,r2
   Dim A,B,C,D,p1,p2
   Dim Ds,Dis1,Dis2
   QE = CInt(InputBox(" Quante Estrazioni vuoi controllare ? ",,"100"))
   Ini = EstrazioneFin - QE
   Fin = EstrazioneFin
   Ds = 5 ' --------------------> Quì Scelgo la Distanza Voluta
   Scrivi
   ColoreTesto 0
   Scrivi String(123,"-")
   Scrivi String(40," ") & "----> Ricerca <--- ",1,,,2
   Scrivi String(27," ") & "Dal " & DataEstrazione(Ini) & " Al " & DataEstrazione(Fin) & " ---> " &(QE) & " Estrazioni",1,,,0
   Scrivi String(13," ") & " Ricercare la Distanza Scelta Isotopa su Estrazioni Consecutive su 2 Ruote ",1,,,0
   Scrivi String(123,"-")
   For es = Ini To Fin
      Messaggio "Elab. Estr. [" &(es) & "] del " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 5
            For p2 = 1 To 5
               A = Estratto(es,r1,p1)
               B = Estratto(es - 1,r1,p2)
               If p1 = p2 Then
                  Dis1 = Distanza(A,B)
                  If Dis1 = Ds Then
                     'For r2 = r1 + 1 To 10 ' -----> Senza la Ruota Nazionale
                     For r2 = r1 + 1 To 11
                        If r2 = 11 Then r2 = 12
                        C = Estratto(es,r2,p1)
                        D = Estratto(es - 1,r2,p2)
                        'If p1 = p2 Then ' Forse non necessario
                           Dis2 = Distanza(C,D)
                           If Dis2 = Dis1 Then
                              ColoreTesto 1
                              K = K + 1
                              Scrivi "Estrazione n." & Format2(es) & " " & String(95,"*") & " Caso n°" & Format2(K),1
                              ColoreTesto 0
                              Scrivi "Trovata la Distanza [" & Dis1 & "] In Posizione Isotopa sulle Ruote di ---> " & NomeRuota(r1) & " e " & NomeRuota(r2),1,,,2
                              Scrivi
                              Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> " & "[" & Format2(A) & "]",1,0
                              Scrivi " - " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ----> [" & Format2(C) & "]",1,0
                              Scrivi " ----> [" & Format2(A) & "-" & Format2(B) & "]" & " 1^ ambo " & "In " & p1 & "^ Pos.",1
                              Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " ---> " & "[" & Format2(B),1,0
                              Scrivi "]" & " - " & DataEstrazione(es - 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es - 1,r2) & " ----> [" & Format2(D),1,0
                              Scrivi "]" & " ----> [" & Format2(C) & "-" & Format2(D) & "]" & " 2^ ambo "& "In " & p2 & "^ Pos.",1
                              Scrivi
                              ColoreTesto 1
                              Scrivi String(123,"-"),1
                              Scrivi
                           End If ' Chiude Dis2 = Dis1
                        'End If ' Chiude p1 = p2 della r2 -----> Forse non necessario
                     Next ' Chiude r2
                  End If ' Chiude Dis1
               End If ' Chiude p1 = p2 della r1
            Next ' Chiude p2
         Next ' Chiude p1
      Next ' Chiude r1
   Next ' Chiude es
   ColoreTesto 2
   Scrivi" Casi trovati : " & K,1
End Sub

Ti Ringrazio ancora I-Legend per i Tuoi preziosi interventi.

 

[i legend]

Lo script l'ho rivisto è corretto, sicuramente si può snellire o migliorare ma se è tutto o quasi tutto corretto sono più che soddisfatto.

quasi corretto = sbagliato
allora ancora una volta hai cambiato le condizioni.
ti avevo fatto un listato ma non va bene perchè è cambiata la ricerca, o per lo meno è diversa da come l avevo capita .

allora l ambo di distanza 5 tra quali elementi lo devi trovare ?

distanza( e1,e2) dove e1= estratto(? , ? , ?) ; e2=estratto(?,?,?)
distanza(e3,e4) dove e3= estratto(? , ? , ?) ; e4=estratto(?,?,?)
metti al posto dei punti interrogativi i valori che ti interessano il fatto che siano isotopi è importante? o la ricerca va effettuata su qualsiasi posizione? è molto diverso.
ecco una volta stabilito questo abbiamo posto le basi per risolvere il problema credo
ciao

 

[i legend]

ciao Xerox ora vado a nanna che tra un po vado a lavoro . notte

 

[Xeroxs]

Eccomi,

allora l ambo di distanza 5 tra quali elementi lo devi trovare ?

li Vorrei tra 2 estrazioni consecutive su 2 Ruote come esposto sotto


distanza( e1,e2) dove e1= estratto(? , ? , ?) ; e2=estratto(?,?,?)

Prendiamo in esame l'estrazione del 04.02.2021 ---- Bari 46.02.84.50.61
e1 = (ad esempio il 2° estratto = 2° Posizione) di Bari = 2
e2 = ( Sempre in 2° Posizione) ma nell'estrazione precedente quindi il 02.02.2021 dobbiamo avere un numero che soddisfi la distanza voluta
ed in questo caso abbiamo su Bari 38.87.12.59.01 dove troviamo l'87 in 2° posizione isotopo al numero 2
Per Cui abbiamo nella prima ruota la condizione che soddisfa la distanza 5 isotopa

e1 =2° Estratto di Bari nell'estrazione del 04.02.2021 ------> 2
e2 =2° Estratto di Bari nell'estrazione del 02.02.2021 -------> 87
distanza( e1,e2) = 5
Tra gli estratti in 2 Posizione su Bari nell' estrazioni consecutive del 04 e 02 Febbraio 2021

Per Completare la ricerca dobbiamo sempre trovare su altra ruota la stessa condizione di distanza 5 sempre isotopa alla prima ruota

distanza(e3,e4) dove e3= estratto(? , ? , ?) ; e4=estratto(?,?,?)

infatti abbiamo il 04.02.2021 su Roma 18.04.12.87.76 il Numero 4 in 2° Posizione isotopo al 2° estratto di Bari (e1) = 2 ed allo stesso tempo
troviamo nell'estrazione precedente il 02.02.2021 su Roma 72.09.52.31.41 in 2° Posizione il numero 9 sempre isotopo

e3 =2° Estratto di Roma nell'estrazione del 04.02.2021 ------> 4
e4 =2° Estratto di Roma nell'estrazione del 02.02.2021 -------> 9
distanza( e3,e4) = 5

Tra gli estratti in 2 Posizione su Roma nell' estrazioni consecutive del 04 e 02 Febbraio 2021

Gli Estratti devono essere Isotopi


l'esempio reale

04.02.2021 BA 46.02.84.50.61 ---> [02] - 04.02.2021 RO 18.04.12.87.76 ----> [04] ----> [02-87] 1^ ambo In 2^ Pos.
02.02.2021 BA 38.87.12.59.01 ---> [87] - 02.02.2021 RO 72.09.52.31.41 ----> [09] ----> [04-09] 2^ ambo In 2^ Pos.

Praticamente abbiamo una doppia isotopia su estrazioni consecutive su 2 Ruote


Ti Chiedo scusa se prima non sono stato sufficientemente chiaro.

Spero di aver esposto al meglio quanto Vorrei.

e Grazie come sempre

 

[Xeroxs]

Tranquillo I-Legend quando Puoi e quando Vuoi.

e Buon Riposo