Ambo gemello sortito su TT(gioca quartina statistica su ruote congeniali)

[Marco-elle]

Sub Main()
   ColoreTesto 2
   Scrivi "AMBO GEMELLO SORTITO SU TT "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 350
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If a = 11 And b = 22 Or a = 22 And b = 11 Then
                  a1(1) = 8
                  a1(2) = 14
                  a1(3) = 50
                  a1(4) = 54
                  ruota(1) = 1
                  ruota(2) = 5
                  ok = 1
               End If
               If a = 11 And b = 33 Or a = 33 And b = 11 Then
                  a1(1) = 1
                  a1(2) = 4
                  a1(3) = 11
                  a1(4) = 24
                  ruota(1) = 1
                  ruota(2) = 5
                  ok = 1
               End If
               If a = 11 And b = 44 Or a = 44 And b = 11 Then
                  a1(1) = 5
                  a1(2) = 13
                  a1(3) = 58
                  a1(4) = 71
                  ruota(1) = 1
                  ruota(2) = 2
               End If
               If a = 11 And b = 55 Or a = 55 And b = 11 Then
                  a1(1) = 2
                  a1(2) = 31
                  a1(3) = 51
                  a1(4) = 62
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 11 And b = 66 Or a = 66 And b = 11 Then
                  a1(1) = 31
                  a1(2) = 38
                  a1(3) = 47
                  a1(4) = 58
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 11 And b = 77 Or a = 77 And b = 11 Then
                  a1(1) = 23
                  a1(2) = 36
                  a1(3) = 50
                  a1(4) = 56
                  ruota(1) = 1
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 11 And b = 88 Or a = 88 And b = 11 Then
                  a1(1) = 4
                  a1(2) = 26
                  a1(3) = 76
                  a1(4) = 81
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 22 And b = 33 Or a = 33 And b = 22 Then
                  a1(1) = 5
                  a1(2) = 6
                  a1(3) = 30
                  'a1(4) = 67
                  ruota(1) = 3
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 22 And b = 44 Or a = 44 And b = 22 Then
                  a1(1) = 1
                  a1(2) = 16
                  a1(3) = 22
                  a1(4) = 51
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 22 And b = 55 Or a = 55 And b = 22 Then
                  a1(1) = 1
                  a1(2) = 12
                  a1(3) = 48
                  a1(4) = 70
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 22 And b = 66 Or a = 66 And b = 22 Then
                  a1(1) = 6
                  a1(2) = 27
                  a1(3) = 40
                  a1(4) = 47
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 22 And b = 77 Or a = 77 And b = 22 Then
                  a1(1) = 38
                  a1(2) = 39
                  a1(3) = 48
                  'a1(4) = 84
                  ruota(1) = 5
                  ruota(2) = 8
                  ok = 1
               End If
               If a = 22 And b = 88 Or a = 88 And b = 22 Then
                  a1(1) = 6
                  a1(2) = 60
                  a1(3) = 63
                  a1(4) = 80
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 33 And b = 44 Or a = 44 And b = 33 Then
                  a1(1) = 11
                  a1(2) = 66
                  a1(3) = 69
                  ruota(1) = 1
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 33 And b = 55 Or a = 55 And b = 33 Then
                  a1(1) = 24
                  a1(2) = 26
                  a1(3) = 49
                  a1(4) = 83
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 33 And b = 66 Or a = 66 And b = 33 Then
                  a1(1) = 1
                  a1(2) = 8
                  a1(3) = 14
                  a1(4) = 70
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 33 And b = 77 Or a = 77 And b = 33 Then
                  a1(1) = 5
                  a1(2) = 48
                  a1(3) = 50
                  a1(4) = 56
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 33 And b = 88 Or a = 88 And b = 33 Then
                  a1(1) = 9
                  a1(2) = 36
                  a1(3) = 60
                  a1(4) = 86
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 44 And b = 55 Or a = 55 And b = 44 Then
                  a1(1) = 5
                  a1(2) = 26
                  a1(3) = 40
                  a1(4) = 71
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 44 And b = 66 Or a = 66 And b = 44 Then
                  a1(1) = 3
                  a1(2) = 9
                  a1(3) = 20
                  a1(4) = 26
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 44 And b = 77 Or a = 77 And b = 44 Then
                  a1(1) = 5
                  a1(2) = 50
                  a1(3) = 53
                  'a1(4) = 26
                  ruota(1) = 8
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 44 And b = 88 Or a = 88 And b = 44 Then
                  a1(1) = 1
                  a1(2) = 9
                  a1(3) = 10
                  a1(4) = 51
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 55 And b = 66 Or a = 66 And b = 55 Then
                  a1(1) = 8
                  a1(2) = 9
                  a1(3) = 36
                  a1(4) = 67
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 55 And b = 77 Or a = 77 And b = 55 Then
                  a1(1) = 3
                  a1(2) = 21
                  a1(3) = 30
                  a1(4) = 84
                  ruota(1) = 1
                  ruota(2) = 8
                  ok = 1
               End If
               If a = 55 And b = 88 Or a = 88 And b = 55 Then
                  a1(1) = 11
                  a1(2) = 20
                  a1(3) = 49
                  a1(4) = 51
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 66 And b = 77 Or a = 77 And b = 66 Then
                  a1(1) = 9
                  a1(2) = 20
                  a1(3) = 42
                  a1(4) = 51
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 66 And b = 88 Or a = 88 And b = 88 Then
                  a1(1) = 7
                  a1(2) = 14
                  a1(3) = 15
                  a1(4) = 65
                  ruota(1) = 2
                  ruota(2) = 10
                  ok = 1
               End If
               If a = 77 And b = 88 Or a = 88 And b = 77 Then
                  a1(1) = 6
                  a1(2) = 80
                  a1(3) = 89
                  'a1(4) = 63
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"^") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & "   ambo spia sortito su TT    " & a & " - " & b,1
                  Scrivi String(80,"^"),1
                  ColoreTesto 0
                  ImpostaGiocata 1,a1,ruota,poste,clp
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[Sakti]

Sempre grandi risultati...
Grazie.

 

[Marco-elle]

Sempre grandi risultati...
Grazie.

Grazie Toon,
questo è un mio vecchio lavoro che ho appena aggiornato e vedrai che qualche risultato lo darà sicuramente

 

[Sakti]

Come del resto tutti i tuoi lavori, e se la ricerca invece di tutte si fa su Cagliari, Firenze o su Genova, il risultato è al 100%.
Sempre geniale e grandissimo..

 

[Zac]

Grazie dello script
Ho provato a elaborarlo e ho notato una cosa che ora ti espongo per un tuo parere. Vi è una previsione scaturita in data 11.05.2021 a seguito dell'uscita dell'ambo gemello 11.55 che è risultata negativa. Successivamente prima in data 01.06.2021 e poi in data 05.06.2021 è uscito nuovamente lo stesso ambo gemello è quindi il programma ha elaborato in queste due estrazioni due identiche previsioni, uguali naturalmente a quella del 11.05.2021. Per queste due ultime previsioni i colpi da giocare sono ancora rispettivamente 7 e 9 colpi. Secondo me è da tenere in considerazione e provare con questa previsione tu che dici?

 

[Marco-elle]

Grazie dello script
Ho provato a elaborarlo e ho notato una cosa che ora ti espongo per un tuo parere. Vi è una previsione scaturita in data 11.05.2021 a seguito dell'uscita dell'ambo gemello 11.55 che è risultata negativa. Successivamente prima in data 01.06.2021 e poi in data 05.06.2021 è uscito nuovamente lo stesso ambo gemello è quindi il programma ha elaborato in queste due estrazioni due identiche previsioni, uguali naturalmente a quella del 11.05.2021. Per queste due ultime previsioni i colpi da giocare sono ancora rispettivamente 7 e 9 colpi. Secondo me è da tenere in considerazione e provare con questa previsione tu che dici?

Ciao Zac,
Hanno tutte pari opportunità e quindi è sempre bene scegliere quelle dove si converge