Novità

Per salvo50 , una cortesia x uno scriptdi ricerca condizione

Matematico

Advanced Member >PLATINUM<
Ciao salvo50 , cortesemente ti chiedo uno script che mi faccia questa ricerca :
Faccio un esempio chiaro:
Nell' estrazione del 05/04/2012 su Napoli abbiamo in 1° e 5° posiz. l'ambo 44-90 .
Nell'estrazione precedente del 03/04/2012 abbiamo su Roma in 1° e 5° posiz. l'ambo 43-89 , entrambi gli ambi sono in posizione isotopa. Adesso non bisogna fare altro che vedere se nelle due tabelle gli stessi numeri sono incolonnati oppure no...in questo caso si e questa è la condiziona giusta.


05/4/2012 NAPOLI -44-90

03/4/2012 ROMA -43-89 (estrazione precedente)

QUARTINE FABARRI******* QUARTINE SIMMETRICHE
1 46 44 89***** 1 45 46 90 Retro.1
2 47 43 88***** 2 44 47 89 Retro.2
3 48 42 87***** 3 43 48 88 Retro.3
4 49 41 86***** 4 42 49 87 Retro.4
5 50 40 85***** 5 41 50 86 Retro.5
6 51 39 84***** 6 40 51 85 Retro.6
7 52 38 83***** 7 39 52 84 Retro.7
8 53 37 82***** 8 38 53 83 Retro.8
9 54 36 81***** 9 37 54 82 Retro.9
10 55 35 80***** 10 36 55 81 Retro.10
11 56 34 79***** 11 35 56 80 Retro.11
12 57 33 78 ***** 12 34 57 79 Retro.12
13 58 32 77***** 13 33 58 78 Retro.13
14 59 31 76***** 14 32 59 77 Retro.14
15 60 30 75***** 15 31 60 76 Retro.15
16 61 29 74***** 16 30 61 75 Retro.16
17 62 28 73***** 17 29 62 74 Retro.17
18 63 27 72***** 18 28 63 73 Retro.18
19 64 26 71***** 19 27 64 72 Retro.19
20 65 25 70***** 20 26 65 71 Retro.20
21 66 24 69***** 21 25 66 70 Retro.21
22 67 23 68***** 22 24 67 69 Retro.22
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Matematico, non è semplice, sto cercando di capirci qualcosa, ad esempio è importante quel Retro seguito da un numero, serve a qualcosa oppure no?
 

Matematico

Advanced Member >PLATINUM<
Ciao a Tutti.

Ciao Matematico, non è semplice, sto cercando di capirci qualcosa, ad esempio è importante quel Retro seguito da un numero, serve a qualcosa oppure no?
Ciao salvo50 , no no, la scritta retro non centra nulla ...praticamente lo script deve ricercare 2 ambi isotopi in qualsiasi ruota anche non consecutiva , basta che facciano parte delle due tabelle : QUARTINE FABARRI E QUARTINE SIMMETRICHE ...guarda i numeri che ho evidenziato nelle 2 tabelle ....il 44 si trova nella prima tabella e il 90 nell'altra e sono incolonnati in maniera isotopa , quindi lo script andrà a ricercare questo tipo di ambi , ad esempio sotto al 44 e 90 troviamo 43-89 , poi 42-88 , poi 41-87 e cosi via ....ma anche quelli nelle altre colonne tipo: 46-45 , 47-44 ....etc.
Spero di essere stato chiaro grazie :)
 

Matematico

Advanced Member >PLATINUM<
Mi spiego meglio , lo script andrà alla ricerca di quest otipo di ambi in posizione isotopa su 2 ruote qualsiasi :

Tipo :
2° colonna
46-45
47-44
48-43
49-42
E cosi via...fino alla 22 esima qaurtina
3° colonna
44-46
43-47
42-48
E cosi via....fino alla 22 esima qaurtina
4° colonna
89-90
88-89
87-88
E cosi via....fino alla 22 esima qaurtina
 

salvo50

Advanced Member >PLATINUM PLUS<
Il numero cercato nell'estrazione precedente, deve essere distanza 1 come nell'esempio oppure può essere di qualsiasi distanza?
Se dovesse essere di distanza 1, deve essere minore come nell'esempio oppure può essere maggiore?
 

Matematico

Advanced Member >PLATINUM<
Il numero cercato nell'estrazione precedente, deve essere distanza 1 come nell'esempio oppure può essere di qualsiasi distanza?
Se dovesse essere di distanza 1, deve essere minore come nell'esempio oppure può essere maggiore?
Di qualsiasi distanza , basta che sia isotopo e faccia parte delle 2 tabelle ....può essere sia minore che maggiore . Grazie.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ho fatto lo script di questo sistema, in cui l'esempio delle spiegazioni non c'è, ed ho capito anche perchè, per via della scansione prende l'ultima condizione che trova, e fare in modo che le prenda tutte, è un lavoro enorme (almeno per me) per come l'ho impostato, forse impostandolo diversamente magari con qualche funzione (che io non conosco) si può fare di meglio, quindi passo la palla, sono sicuro che altri riusciranno a fare di meglio

abbozzo dello script

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Caso,Casi,K
   Dim EstA,EstB,EstC,EstD,Sp,AA,BB,CC,DD,EE,FF,GG,HH
   Dim R1,R2,A,B,C,D,E,F,G,H,P1,P2,P5,P6,E1,E2,OK
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,8515) '8517 ESEMPIO NELLE SPIEGAZIONI
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Quartine Fabarri e Simmetriche - INCOMPLETO - ABBOZZO SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               EstA = Estratto(Es,R1,P1)
               EstB = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  EstC = Estratto(Es - 1,R2,P1)
                  EstD = Estratto(Es - 1,R2,P2)
                  If(EstA <> EstC) And(EstA <> EstD)And(EstB <> EstC) And(EstB <> EstD)Then
                     A = 0 : B = 45 : C = 45 : D = 90 : E = 0 : F = 46 : G = 45 : H = 91
                     '-------------------------------
                     For K = 1 To 22
                        A = A + 1
                        B = B + 1
                        C = C - 1
                        D = D - 1
                        E = E + 1
                        F = F - 1
                        G = G + 1
                        H = H - 1
                        OK = 0
                        If(A = EstA And E = EstB) Or(A = EstA And F = EstB) Or(A = EstA And G = EstB) Or(A = EstA And H = EstB) _
                           Or(B = EstA And E = EstB) Or(B = EstA And F = EstB) Or(B = EstA And G = EstB) Or(B = EstA And H = EstB) _
                           Or(C = EstA And E = EstB) Or(C = EstA And F = EstB) Or(C = EstA And G = EstB) Or(C = EstA And H = EstB) _
                           Or(D = EstA And E = EstB) Or(D = EstA And F = EstB) Or(D = EstA And G = EstB) Or(D = EstA And H = EstB) Then OK = 1
                        Next
                        '-------------------------------
                        If OK = 1 Then
                           AA = 0 : BB = 45 : CC = 45 : DD = 90 : EE = 0 : FF = 46 : GG = 45 : HH = 91
                           K = 0
                           For K = 1 To 22
                              AA = AA + 1
                              BB = BB + 1
                              CC = CC - 1
                              DD = DD - 1
                              EE = EE + 1
                              FF = FF - 1
                              GG = GG + 1
                              HH = HH - 1
                              If(AA = EstC And EE = EstD) Or(AA = EstC And FF = EstD) Or(AA = EstC And GG = EstD) Or(AA = EstC And HH = EstD) _
                                 Or(BB = EstC And EE = EstD) Or(BB = EstC And FF = EstD) Or(BB = EstC And GG = EstD) Or(BB = EstC And HH = EstD) _
                                 Or(CC = EstC And EE = EstD) Or(CC = EstC And FF = EstD) Or(CC = EstC And GG = EstD) Or(CC = EstC And HH = EstD) _
                                 Or(DD = EstC And EE = EstD) Or(DD = EstC And FF = EstD) Or(DD = EstC And GG = EstD) Or(DD = EstC And HH = EstD) Then OK = 2 '
                                 If OK = 2 Then Exit For
                              Next
                              If OK = 2 Then
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = EstA Or E1 = EstB Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es - 1,R2,P6)
                                    If E2 = EstC Or E2 = EstD Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 A = 0 : B = 45 : C = 45 : D = 90 : E = 0 : F = 46 : G = 45 : H = 91
                                 K = 0
                                 Scrivi "  Quartine" & Space(7) & "Quartine ",1
                                 Scrivi "  Fabarri" & Space(7) & "Simmetriche ",1
                                 For K = 1 To 22
                                    A = A + 1
                                    B = B + 1
                                    C = C - 1
                                    D = D - 1
                                    E = E + 1
                                    F = F - 1
                                    G = G + 1
                                    H = H - 1
                                    Scrivi Format2(A) & Sp & Format2(B) & Sp & Format2(C) & Sp & Format2(D) & Space(5),1,0
                                    Scrivi Format2(E) & Sp & Format2(F) & Sp & Format2(G) & Sp & Format2(H),1
                                 Next
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
            If ScriptInterrotto Then Exit Sub
         Next
         Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50 , posso solo immaginare il lavoro enorme dietro per far si che lo script prenda tutte le condizioni , ma hai fatto un ottimo lavoro e di questo te ne sono grato :)
Poi se c'è qualcuno che puà fare di più bene venga e lo ringrazio fin da ora.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Questo l'ho fatto anche con una estrazione in avanti, seguendo un certo ragionamento (sbagliato) dovrebbe essere la stessa cosa, ma non lo è, perchè lo script ne trova più o meno il doppio di casi, ne ho controllato una ventina e non ci sono doppioni, a tempo perso ogni tanto le dò un'occhiata per cercare di migliorarlo.

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Caso,Casi,K
   Dim EstA,EstB,EstC,EstD,Sp,AA,BB,CC,DD,EE,FF,GG,HH
   Dim R1,R2,A,B,C,D,E,F,G,H,P1,P2,P5,P6,E1,E2,OK
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,8515) '8517 ESEMPIO NELLE SPIEGAZIONI
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Quartine Fabarri e Simmetriche - INCOMPLETO - ABBOZZO SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               EstA = Estratto(Es,R1,P1)
               EstB = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  EstC = Estratto(Es - 1,R2,P1)
                  EstD = Estratto(Es - 1,R2,P2)
                  If(EstA <> EstC) And(EstA <> EstD)And(EstB <> EstC) And(EstB <> EstD)Then
                     A = 0 : B = 45 : C = 45 : D = 90 : E = 0 : F = 46 : G = 45 : H = 91
                     '-------------------------------
                     For K = 1 To 22
                        A = A + 1
                        B = B + 1
                        C = C - 1
                        D = D - 1
                        E = E + 1
                        F = F - 1
                        G = G + 1
                        H = H - 1
                        OK = 0
                        If(A = EstA And E = EstB) Or(A = EstA And F = EstB) Or(A = EstA And G = EstB) Or(A = EstA And H = EstB) _
                           Or(B = EstA And E = EstB) Or(B = EstA And F = EstB) Or(B = EstA And G = EstB) Or(B = EstA And H = EstB) _
                           Or(C = EstA And E = EstB) Or(C = EstA And F = EstB) Or(C = EstA And G = EstB) Or(C = EstA And H = EstB) _
                           Or(D = EstA And E = EstB) Or(D = EstA And F = EstB) Or(D = EstA And G = EstB) Or(D = EstA And H = EstB) Then OK = 1
                        Next
                        '-------------------------------
                        If OK = 1 Then
                           AA = 0 : BB = 45 : CC = 45 : DD = 90 : EE = 0 : FF = 46 : GG = 45 : HH = 91
                           K = 0
                           For K = 1 To 22
                              AA = AA + 1
                              BB = BB + 1
                              CC = CC - 1
                              DD = DD - 1
                              EE = EE + 1
                              FF = FF - 1
                              GG = GG + 1
                              HH = HH - 1
                              If(AA = EstC And EE = EstD) Or(AA = EstC And FF = EstD) Or(AA = EstC And GG = EstD) Or(AA = EstC And HH = EstD) _
                                 Or(BB = EstC And EE = EstD) Or(BB = EstC And FF = EstD) Or(BB = EstC And GG = EstD) Or(BB = EstC And HH = EstD) _
                                 Or(CC = EstC And EE = EstD) Or(CC = EstC And FF = EstD) Or(CC = EstC And GG = EstD) Or(CC = EstC And HH = EstD) _
                                 Or(DD = EstC And EE = EstD) Or(DD = EstC And FF = EstD) Or(DD = EstC And GG = EstD) Or(DD = EstC And HH = EstD) Then OK = 2 '
                                 If OK = 2 Then Exit For
                              Next
                              If OK = 2 Then
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = EstA Or E1 = EstB Then ColoreTesto 2 Else ColoreTesto 0
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es - 1,R2,P6)
                                    If E2 = EstC Or E2 = EstD Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 A = 0 : B = 45 : C = 45 : D = 90 : E = 0 : F = 46 : G = 45 : H = 91
                                 K = 0
                                 Scrivi "  Quartine" & Space(7) & "Quartine ",1
                                 Scrivi "  Fabarri" & Space(7) & "Simmetriche ",1
                                 For K = 1 To 22
                                    A = A + 1
                                    B = B + 1
                                    C = C - 1
                                    D = D - 1
                                    E = E + 1
                                    F = F - 1
                                    G = G + 1
                                    H = H - 1
                                    Scrivi Format2(A) & Sp & Format2(B) & Sp & Format2(C) & Sp & Format2(D) & Space(5),1,0
                                    Scrivi Format2(E) & Sp & Format2(F) & Sp & Format2(G) & Sp & Format2(H),1
                                 Next
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
            For R1 = 1 To 10
               For P1 = 1 To 4
                  For P2 = P1 + 1 To 5
                     EstA = Estratto(Es,R1,P1)
                     EstB = Estratto(Es,R1,P2)
                     For R2 = R1 + 1 To 12
                        If R2 = 11 Then R2 = 12
                        EstC = Estratto(Es + 1,R2,P1)
                        EstD = Estratto(Es + 1,R2,P2)
                        If(EstA <> EstC) And(EstA <> EstD)And(EstB <> EstC) And(EstB <> EstD)Then
                           A = 0 : B = 45 : C = 45 : D = 90 : E = 0 : F = 46 : G = 45 : H = 91
                           '-------------------------------
                           For K = 1 To 22
                              A = A + 1
                              B = B + 1
                              C = C - 1
                              D = D - 1
                              E = E + 1
                              F = F - 1
                              G = G + 1
                              H = H - 1
                              OK = 0
                              If(A = EstA And E = EstB) Or(A = EstA And F = EstB) Or(A = EstA And G = EstB) Or(A = EstA And H = EstB) _
                                 Or(B = EstA And E = EstB) Or(B = EstA And F = EstB) Or(B = EstA And G = EstB) Or(B = EstA And H = EstB) _
                                 Or(C = EstA And E = EstB) Or(C = EstA And F = EstB) Or(C = EstA And G = EstB) Or(C = EstA And H = EstB) _
                                 Or(D = EstA And E = EstB) Or(D = EstA And F = EstB) Or(D = EstA And G = EstB) Or(D = EstA And H = EstB) Then OK = 1
                              Next
                              '-------------------------------
                              If OK = 1 Then
                                 AA = 0 : BB = 45 : CC = 45 : DD = 90 : EE = 0 : FF = 46 : GG = 45 : HH = 91
                                 K = 0
                                 For K = 1 To 22
                                    AA = AA + 1
                                    BB = BB + 1
                                    CC = CC - 1
                                    DD = DD - 1
                                    EE = EE + 1
                                    FF = FF - 1
                                    GG = GG + 1
                                    HH = HH - 1
                                    If(AA = EstC And EE = EstD) Or(AA = EstC And FF = EstD) Or(AA = EstC And GG = EstD) Or(AA = EstC And HH = EstD) _
                                       Or(BB = EstC And EE = EstD) Or(BB = EstC And FF = EstD) Or(BB = EstC And GG = EstD) Or(BB = EstC And HH = EstD) _
                                       Or(CC = EstC And EE = EstD) Or(CC = EstC And FF = EstD) Or(CC = EstC And GG = EstD) Or(CC = EstC And HH = EstD) _
                                       Or(DD = EstC And EE = EstD) Or(DD = EstC And FF = EstD) Or(DD = EstC And GG = EstD) Or(DD = EstC And HH = EstD) Then OK = 2 '
                                       'If OK = 2 Then Exit For
                                    Next
                                    If OK = 2 Then
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es,R1,P5)
                                          If E1 = EstA Or E1 = EstB Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E1) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es + 1,R2,P6)
                                          If E2 = EstC Or E2 = EstD Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi
                                       A = 0 : B = 45 : C = 45 : D = 90 : E = 0 : F = 46 : G = 45 : H = 91
                                       K = 0
                                       Scrivi "  Quatine" & Space(8) & "Quartine ",1
                                       Scrivi "  Fabarri" & Space(7) & "Simmetriche ",1
                                       For K = 1 To 22
                                          A = A + 1
                                          B = B + 1
                                          C = C - 1
                                          D = D - 1
                                          E = E + 1
                                          F = F - 1
                                          G = G + 1
                                          H = H - 1
                                          Scrivi Format2(A) & Sp & Format2(B) & Sp & Format2(C) & Sp & Format2(D) & Space(5),1,0
                                          Scrivi Format2(E) & Sp & Format2(F) & Sp & Format2(G) & Sp & Format2(H),1
                                       Next
                                    End If
                                 End If
                              End If
                           Next
                        Next
                     Next
                  Next
                  If ScriptInterrotto Then Exit Sub
               Next
               Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub
 

Matematico

Advanced Member >PLATINUM<
Sei fantastico salvo50 :) , se ci riesci la condizione perfetta è la ricerca dell'isotopia anche nelle colonne delle de tabelle : 2° /3° 4° e 5° colonna....come da esempio del primo post:
5/4/2012 NAPOLI -44-90

03/4/2012 ROMA -43-89 (estrazione precedente)

QUARTINE FABARRI******* QUARTINE SIMMETRICHE
1 46 44 89***** 1 45 46 90 Retro.1
2 47 43 88***** 2 44 47 89 Retro.2
3 48 42 87***** 3 43 48 88 Retro.3
4 49 41 86***** 4 42 49 87 Retro.4
5 50 40 85***** 5 41 50 86 Retro.5
6 51 39 84***** 6 40 51 85 Retro.6
7 52 38 83***** 7 39 52 84 Retro.7
8 53 37 82***** 8 38 53 83 Retro.8
9 54 36 81***** 9 37 54 82 Retro.9
10 55 35 80***** 10 36 55 81 Retro.10
11 56 34 79***** 11 35 56 80 Retro.11
12 57 33 78 ***** 12 34 57 79 Retro.12
13 58 32 77***** 13 33 58 78 Retro.13
14 59 31 76***** 14 32 59 77 Retro.14
15 60 30 75***** 15 31 60 76 Retro.15
16 61 29 74***** 16 30 61 75 Retro.16
17 62 28 73***** 17 29 62 74 Retro.17
18 63 27 72***** 18 28 63 73 Retro.18
19 64 26 71***** 19 27 64 72 Retro.19
20 65 25 70***** 20 26 65 71 Retro.20
21 66 24 69***** 21 25 66 70 Retro.21
22 67 23 68***** 22 24 67 69 Retro.22

Come vedi 44-90 e sotto 43-89 sono incolonnati in maniera isotopa ...sarebbe la perfezione !isotopia in tabella e nel quadro estrazionale :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto