Ambo con Distanza 30 BA-CA

[Giulio Pedrinelli]

Ciao a tutti;

ho fatto un aggiornamento del metodo mettendo 24 mesi e distanza 30 su Bari-Cagliari.
Condizione: ambo con distanza 30 ripetuto su Ba-Ca.
Periodo di gioco: 9 estrazioni.

Calcolo Previsioni:
1 capogioco: 3° NA + 30
2 capogioco: 1° NZ + 44
1 abbinamento: 4° BA + 7
2 abbinamento: 1° GE + 63
3 abbinamento: 1° NZ + 81

1° quartina: 3° NA + 30 / 1° NZ + 44 / 4° BA + 7 / 2 / 1° GE + 63
2° quartina: 3° NA + 30 / 1° NZ + 44 / 1° GE + 63 / 1° NZ + 81

Il numero di abbinamenti sono dispari e dalla ricerca effettuata i primi 3 abbinamenti per ambo sono numericamente elevati.

Inizio Ricerca: 10/01/2023
Fine Ricerca: 13/09/2025

Quindi seguito lo script.

Sub Main()
'
Dim ruote(10),ruota(10),n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n19,n15,x1,x2,x3,x4,x5,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(2) = 1
fin = EstrazioneFin
Ini = 10184
For es = Ini To fin

n0 = 0
n15 = 1 ' Unica riga da correggere !!
AvanzamentoElab Ini,fin,es
r1 = 1
r2 = 2
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,2)
n3 = Estratto(es,r1,3)
n4 = Estratto(es,r1,4)
n5 = Estratto(es,r1,5)
n6 = Estratto(es,r2,1)
n7 = Estratto(es,r2,2)
n8 = Estratto(es,r2,3)
n9 = Estratto(es,r2,4)
n10 = Estratto(es,r2,5)
If Distanza(n1,n2) = 30 Then n0 = 30
If Distanza(n1,n3) = 30 Then n0 = 30
If Distanza(n1,n4) = 30 Then n0 = 30
If Distanza(n1,n5) = 30 Then n0 = 30
If Distanza(n2,n3) = 30 Then n0 = 30
If Distanza(n2,n4) = 30 Then n0 = 30
If Distanza(n2,n5) = 30 Then n0 = 30
If Distanza(n3,n4) = 30 Then n0 = 30
If Distanza(n3,n5) = 30 Then n0 = 30
If Distanza(n4,n5) = 30 Then n0 = 30
If Distanza(n6,n7) = 30 Then n15 = 30
If Distanza(n6,n8) = 30 Then n15 = 30
If Distanza(n6,n9) = 30 Then n15 = 30
If Distanza(n6,n10) = 30 Then n15 = 30
If Distanza(n7,n8) = 30 Then n15 = 30
If Distanza(n7,n9) = 30 Then n15 = 30
If Distanza(n7,n10) = 30 Then n15 = 30
If Distanza(n8,n9) = 30 Then n15 = 30
If Distanza(n8,n10) = 30 Then n15 = 30
If Distanza(n9,n10) = 30 Then n15 = 30
ok = 0
If n0 = n15 Then
x1 = Fuori90(Estratto(es,6,3) + 30)
x2 = Fuori90(Estratto(es,12,1) + 44)
x3 = Fuori90(Estratto(es,1,4) + 7)
x4 = Fuori90(Estratto(es,4,1) + 63)
x5 = Fuori90(Estratto(es,12,1) + 81)
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1)
Scrivi
ruota(1) = r1
ruota(2) = r2
k = 9
' co = 0 Non viene utilizzata !
nu2(1) = x1
nu2(2) = x2
nu2(3) = x3
nu2(4) = x4
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x1
nu2(2) = x2
nu2(3) = x4
nu2(4) = x5
ImpostaGiocata 2,nu2,ruota,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub

L'ultimo caso giocabile è del 02/09/2025, che si è sfaldato con l'ambo 35-87 su Bari.