Distanza 20 - PA - RO

[Giulio Pedrinelli]

Ciao a tutti;

La distanza 20 su Palermo - Roma dal 08/04/2023 ha dato esiti interessanti, che riassumo qui:

15/07/2023 - Ambo in terzina 82-43 su Roma - 5° colpo + terno in quartina 22-82-43
14/11/2023 - Ambo in terzina 34-68 su Roma - 1° colpo + terno in quartina 34-68-46
11/01/2024 - Ambo in terzina 18-42 su Roma - 5° colpo + terno in quartina 18-42-47
30/01/2024 - Ambo in terzina 83-44 su Palermo - 2° colpo + terno in quartina 83-44-11 + 83-35-44
14/05/2024 - Ambo in terzina 18-51 su Palermo - 2° colpo + 6° c. PA 64-18 + 64-13-18
17/08/2024 - Ambo in terzina 68-24 su Palermo - 4° colpo + terno in quartina 40-68-24 + 68-24-90 + 23-68-24
27/12/2024 - Ambo in terzina 64-04 su Palermo - 8° colpo
02/01/2025 - Ambo in terzina 45-04 su Palermo - 4° colpo
04/01/2025 - Ambo in terzina 46-13 su Palermo - 1° colpo + terno in quartina 46-20-13
21/01/2025 - Ambo in terzina 06-80 su Palermo - 8° colpo + terno in quartina 06-80-25
28/01/2025 - Ambo in terzina 05-26 su Palermo - 2° colpo + terno in quartina 05-10-26 + 05-26-58
07/03/2025 - Ambo in terzina 18-24 su Palermo - 8° colpo + terno in quartina 61-18-24
25/07/2025 - Ambo in terzina 51-68 su Palermo - 9° colpo + terno in quartina 51-68-42
11/09/2025 - Ambo in terzina 22-68 su Palermo - 2° colpo + terno in quartina 61-22-68

Il periodo di gioco è 9 estrazioni.

Nell'estrazione del 20/09/2025 su Palermo - Roma c'era un ambo con distanza 20 ripetuto (47-27 e 49-69).
Previsione: PA-RO

49-84-16 ambo
per terno 46-88-36-11

Quindi: 49-84-16 + 49-84-16-46 + 49-84-16-88 + 49-84-16-36 + 49-84-16-11

Inizio Ricerca: 01/07/2023
Fine Ricerca: 20/09/2025

1° capogioco: 5° NA + 18
2° abb.x ambo: 1° FI + 9
3° abb.x ambo: 4° RO + 15
1° abb.x terno: 3° TO + 19
2° abb.x terno: 5° BA + 48
3° abb.x terno: 5° PA + 15
4° abb.x terno: 3° BA + 43

Condizione : 1 ambo ripetuto con distanza 20 su Palermo - Roma

Qui di 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,x6,x7,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(2) = 1
poste(3) = 1
fin = EstrazioneFin
Ini = 10261
For es = Ini To fin

n0 = 0
n15 = 1 ' Unica riga da correggere !!
AvanzamentoElab Ini,fin,es
r1 = 7
r2 = 8
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) = 20 Then n0 = 20
If Distanza(n1,n3) = 20 Then n0 = 20
If Distanza(n1,n4) = 20 Then n0 = 20
If Distanza(n1,n5) = 20 Then n0 = 20
If Distanza(n2,n3) = 20 Then n0 = 20
If Distanza(n2,n4) = 20 Then n0 = 20
If Distanza(n2,n5) = 20 Then n0 = 20
If Distanza(n3,n4) = 20 Then n0 = 20
If Distanza(n3,n5) = 20 Then n0 = 20
If Distanza(n4,n5) = 20 Then n0 = 20
If Distanza(n6,n7) = 20 Then n15 = 20
If Distanza(n6,n8) = 20 Then n15 = 20
If Distanza(n6,n9) = 20 Then n15 = 20
If Distanza(n6,n10) = 20 Then n15 = 20
If Distanza(n7,n8) = 20 Then n15 = 20
If Distanza(n7,n9) = 20 Then n15 = 20
If Distanza(n7,n10) = 20 Then n15 = 20
If Distanza(n8,n9) = 20 Then n15 = 20
If Distanza(n8,n10) = 20 Then n15 = 20
If Distanza(n9,n10) = 20 Then n15 = 20
ok = 0
If n0 = n15 Then
x1 = Fuori90(Estratto(es,6,5) + 18)
x2 = Fuori90(Estratto(es,3,1) + 9)
x3 = Fuori90(Estratto(es,8,4) + 15)
x4 = Fuori90(Estratto(es,9,3) + 19)
x5 = Fuori90(Estratto(es,1,5) + 48)
x6 = Fuori90(Estratto(es,7,5) + 15)
x7 = Fuori90(Estratto(es,1,3) + 43)
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) = x1
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x1
nu2(2) = x2
nu2(3) = x3
nu2(4) = x4
ImpostaGiocata 2,nu2,ruota,poste,k
nu2(1) = x1
nu2(2) = x2
nu2(3) = x3
nu2(4) = x5
ImpostaGiocata 3,nu2,ruota,poste,k
nu2(1) = x1
nu2(2) = x2
nu2(3) = x3
nu2(4) = x6
ImpostaGiocata 4,nu2,ruota,poste,k
nu2(1) = x1
nu2(2) = x2
nu2(3) = x3
nu2(4) = x7
ImpostaGiocata 5,nu2,ruota,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub

Per chi vuole ridurre la spesa si potrebbe mettere in gioco 2 cinquine.