Giulio Pedrinelli
Super Member >PLATINUM<
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
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
