Numero 85 su Ca-Fi

[Giulio Pedrinelli]

Ciao a tutti;

su Cagliari-Firenze è uscito in 4° posizione il numero 85.
Ho cercato nelle due ruote sopra quante volte è uscito il numero 85, anche in posizione non isotopa, dal 08/03/1941 è uscito 20 volte, compresa l'estrazione del 20/02/2026.
Naturalmente ho fatto la ricerca anche per la posizione isotopa, mettendo 50 casi è uscito 7 volte, direi troppo pochi.
Algoritmi con l'uscita del numero 85 su Ca-Fi:

A = 2° BA + 44
B = 3° RO + 74
C = 4° MI + 20
D = 3° BA + 12
E = 5° TO + 17
F = 3° VE + 21

Previsione:
A-B-C-D
A-B-E-F

La previsione in gioco con l'estrazione del 20/02/2026 è:

Ruote CA-FI
63-13-73-36
63-13-36-09

NB: il 36 è ripetuto, non si tratta di un errore di calcolo o di battitura.

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,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 = 3662
For es = Ini To fin

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