Per salvo50 , una cortesia x uno scriptdi ricerca condizione

Matematico · 3 Novembre 2020

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

salvo50 · 4 Novembre 2020

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 · 4 Novembre 2020

salvo50 ha scritto:
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 · 4 Novembre 2020

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 · 4 Novembre 2020

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 · 4 Novembre 2020

salvo50 ha scritto:
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.

Matematico · 4 Novembre 2020

Può essere anche come da tabelle : 46-90 o 47-89 etc.

Matematico · 5 Novembre 2020

Ciao salvo50, ti è tutto chiaro ?

Buona giornata

salvo50 · 5 Novembre 2020

Ciao a Tutti.

Ciao Matematico, chiarissimo.

salvo50 · 5 Novembre 2020

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 · 5 Novembre 2020

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 · 7 Novembre 2020

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 · 7 Novembre 2020

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

Cerca

Cerca

Per salvo50 , una cortesia x uno scriptdi ricerca condizione

Matematico

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

Matematico

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

Matematico

Advanced Member >PLATINUM<

Matematico

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi