2 Ambate su Ruota

[80Sete]

Cercare nella stessa Ruota numero ISOTOPO uscito in qualsiasi posizione e in due estrazioni CONSECUTIVE quindi mettere in gioco
il numero uscito ISOTOPO sopra e sotto al numero ripetuto.
Es. CAGLIARI
17-4-2012 81-xx-xx-xx-xx
19-4-2012 47-xx-xx-xx-xx
21-4-2012 47-xx-xx-xx-xx
24-4-2012 34-xx-xx-xx-xx

47 Isotopo RIPETUTO in 1° posizione, metto in gioco l’ 81 (Sopra) estraz. Precedente
e il 34 (Sotto) estraz. Successiva …al 1° Colpo 81.
La mia ricerca è stata fatta solo da Gennaio 2012, 2 esiti negativi 13 positivi e 4 in Corso.
Se qualcuno è interessato anche da abbinare alle proprie convergenze.
Non ho un programma che mi evidenzia i numeri Isotopi, questi sono quelli che ho trovato ad occhio….clinico
a meno che...un gentile intervento di baffoBlu...o di Luigi (Grazie)

19-1-2012 VE 57/76 al 10° Colpo 57
19-1-2012 MI 19/27 negativo
21-1-2012 GE 7/79 negativo
28-1-2012 FI 66/83 al 5° Colpo 66
31-1-2012 FI 83/82 al 12° Colpo 83
31-1-2012 RO 87/2 al 4° Colpo 87
02-2-2012 MI 57/53 al 1° colpo 57
14-2-2012 TO 38/8 al 2° Colpo 38
25-2-2012 MI 84/4 al 1° Colpo 4
25-2-2012 RO 45/61 al 9° Colpo 45
15-3-2012 MI 36/31 al 11° Colpo 36
07-4-2012 NA 59/44 al 7° Colpo 44-59 Ambo
12-4-2012 VE 18/48 al 1° Colpo 18
12-4-2012 RO 7/40 …in Corso
17-4-2012 CA 81/34 al 1° Colpo 81
19-4-2012 MI 28/18 al 3° Colpo 18
24-4-2012 BA 42/81 ….in Corso
26-4-2012 VE 21/1 ….. in Corso
02-5-2012 FI 55/7 …... in Corso
02-5-2012 BA 2/64 …...in Corso
buona giornata di lotto a tutti

 

[Baffoblu]

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim posta(10)
    Dim r1
    Dim p1
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(2)
    posta(1) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For r1 = 1 To 10
            For p1 = 1 To 5
                a1 = Estratto(idEstr - 3,r1,p1)
                b1 = Estratto(idEstr - 2,r1,p1)
                a2 = Estratto(idEstr - 1,r1,p1)
                b2 = Estratto(idEstr,r1,p1)
                If b1 = a2 Then
                    n(1) = a1
                    n(2) = b2
                    ruote(1) = r1
                    co = co + 1
                    Scrivi String(100,"°") & " Caso n°" & co,1
                    Scrivi DataEstrazione(idEstr - 3) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr - 3,r1),1
                    Scrivi DataEstrazione(idEstr - 2) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr - 2,r1),1
                    Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr - 1,r1),1
                    Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1),1
                    ColoreTesto 1
                    Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive :   " & Format2(b1) & " e " & Format2(a2) & " in " & p1 & "° pos.",1
                    Scrivi "Ambate : " & Format2(a1) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
                    ColoreTesto 0
                    Scrivi String(80,"="),1
                    ImpostaGiocata 1,n,ruote,posta,nColpiDiGioco,1
                    Gioca idEstr,1
                End If
                If ScriptInterrotto Then Exit For
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

 

[80Sete]

Grazie1000 BaffoBlu, sempre gentilissimo e disponibile, non mi sembra male come ricerca, premettendo che i casi negativi ci sono ovunque.
Grazie ancora e buona giornata

 

[Aline]

Grazie ciao

 

[80Sete]

19-1-2012 VE 57/76 al 10° Colpo 57
19-1-2012 MI 19/27 negativo
21-1-2012 GE 7/79 negativo
28-1-2012 FI 66/83 al 5° Colpo 66
31-1-2012 FI 83/82 al 12° Colpo 83
31-1-2012 RO 87/2 al 4° Colpo 87
02-2-2012 MI 57/53 al 1° colpo 57
14-2-2012 TO 38/8 al 2° Colpo 38
25-2-2012 MI 84/4 al 1° Colpo 4
25-2-2012 RO 45/61 al 9° Colpo 45
15-3-2012 MI 36/31 al 11° Colpo 36
07-4-2012 NA 59/44 al 7° Colpo 44-59 Ambo
12-4-2012 VE 18/48 al 1° Colpo 18
12-4-2012 RO 7/40 …in Corso
17-4-2012 CA 81/34 al 1° Colpo 81
19-4-2012 MI 28/18 al 3° Colpo 18
24-4-2012 BA 42/81 ….in Corso..........81 al 4° Colpo
26-4-2012 VE 21/1 ….. in Corso
02-5-2012 FI 55/7 …... in Corso
02-5-2012 BA 2/64 …...in Corso
buona giornata di lotto a tutti