Ambi ripetuti su Ca-Fi - ultimi 30 casi

[Giulio Pedrinelli]

Ciao a tutti;

Nel l’estrazione del 04/07/2026 su Cagliari Firenze è uscito l’ambo 61-68, parzialmente isotopo. E’ presente solo nell’estrazione sopra, quindi ho verifcato che in passato non è mai uscito su Ca-Fi.
Però mettendo gli ambi uguali sortiti negli ultimi 30 casi con un periodo di gioco di 13 estrazioni i risultati parlano da soli.
Due capogiochi per ambo + 4 abbinamenti.

Prima quartina.
5 estratto di Cagliari + 45
2 estratto di Venezia + 46
3 estratto di Nazionale + 48
1 estratto di Firenze + 85

Seconda quartina
5 estratto di Cagliari + 45
2 estratto di Venezia + 46
2 estratto di Venezia + 89
3 estratto di Bari + 24

Fornisco alcuni dati.

30 casi in totale
positivi: 27
negativi: 3

Attesa media: 8,09 colpi

Il resoconto complessivo dello script da 60 casi esaminati (2 previsioni suppongo) e 58 casi finali di cui 38 positivi e 20 negativi,

Ecco lo script.

Sub Main()

Dim rt(2), poste(5), q1(4), q2(4)
Dim es, ini, fin, colpi, casi
Dim rCA, rFI, rVE, rNZ, rBA
Dim i, j, a, b, ok

rBA = 1
rCA = 2
rFI = 3
rVE = 10
rNZ = 11

rt(1) = rCA
rt(2) = rFI

poste(1) = 0
poste(2) = 1 ' Ambo
poste(3) = 0
poste(4) = 0
poste(5) = 0

colpi = 13
fin = EstrazioneFin

ini = 9580

For es = ini To fin

AvanzamentoElab ini, fin, es

ok = 0

' Cerca ambo uguale su Cagliari e Firenze
For i = 1 To 4
For j = i + 1 To 5

a = Estratto(es, rCA, i)
b = Estratto(es, rCA, j)

If PresenteSuRuota(es, rFI, a) And PresenteSuRuota(es, rFI, b) Then
ok = 1
Exit For
End If

Next
If ok = 1 Then Exit For
Next

If ok = 1 Then

casi = casi + 1
Scrivi String(60, "=")
Scrivi "Caso n° " & casi & " - Estrazione " & es
Scrivi "Ambo ripetuto CA-FI: " & a & "-" & b

capo1 = Fuori90(Estratto(es, rCA, 5) + 45)
capo2 = Fuori90(Estratto(es, rVE, 2) + 46)

abb1 = Fuori90(Estratto(es, rNZ, 3) + 48)
abb2 = Fuori90(Estratto(es, rFI, 1) + 85)
abb3 = Fuori90(Estratto(es, rVE, 2) + 89)
abb4 = Fuori90(Estratto(es, rBA, 3) + 24)

q1(1) = capo1
q1(2) = capo2
q1(3) = abb1
q1(4) = abb2

q2(1) = capo1
q2(2) = capo2
q2(3) = abb3
q2(4) = abb4

Scrivi "Capogiochi: " & capo1 & "-" & capo2
Scrivi "Quartina 1: " & q1(1) & "-" & q1(2) & "-" & q1(3) & "-" & q1(4)
Scrivi "Quartina 2: " & q2(1) & "-" & q2(2) & "-" & q2(3) & "-" & q2(4)

ImpostaGiocata 1, q1, rt, poste, colpi
ImpostaGiocata 2, q2, rt, poste, colpi

Gioca es

End If

Next

Scrivi
Scrivi "Casi rilevati: " & casi
ScriviResoconto

End Sub


Function PresenteSuRuota(es, ruota, numero)

Dim p

PresenteSuRuota = False

For p = 1 To 5
If Estratto(es, ruota, p) = numero Then
PresenteSuRuota = True
Exit Function
End If
Next

End Function