Ambo con distanza 30 su Venezia

[Giulio Pedrinelli]

Ciao a tutti;

il 17/9/2026 su Venezia è uscito l'ambo 31-61 avente distanza 30.
Ho fatto una ricerca per gli algoritmi negli ultimi 24 casi.
Periodo di gioco: 9 estrazioni

Inizio: 17/10/2024
Fine: 17/09/2024

1° Quartina: 3° NA + 54 / 5° GE + 14 / 1° TO + 44 / 4° MI + 5
2° Quartina: 3° NA + 54 / 5° GE + 14 / 3° NZ + 8 / 2° RO + 23
3° Quartina: 3° NA + 54 / 5° GE + 14 / 2° TO + 31 / 3° GE + 32
4° Quartina: 3° NA + 54 / 5° GE + 14 / 2° NA + 33 / 2° BA + 43

La previsione per l'estrazione del 17/10/2024 è:

48-22-5
48-22-77-59
48-22-38-26
48-22-7-80

Lo script lo posterò successivamente.

 

[micro__]

Buongiorno Giulio Pedrinelli...c'è da fare probabilmente qualche correzione sulle date? leggo 2024 e anche le date dei mesi inizio/fine...?

Saluti!

 

[Giulio Pedrinelli]

Scusate, devo rettificare....... stesso periodo, ruota Venezia, 10° Estrazione del mese.

 

[Giulio Pedrinelli]

Si Confermo,

l'estrazione del mese è la decima.
Ruota Venezia.
Ho fatto girare lo script,
Qundi:

Inizio 17/10/2024
Fine 17/09/2026

Decima estrazione del mese, ruota Venezia.
La previsione in gioco:

gio 17.09.2026 [10928]
G 1: A 48.22.05 Ve 1/9
in corso (1° su 9)
G 2: A 48.22.77.59 Ve 1/9
in corso (1° su 9)
G 3: A 48.22.38.26 Ve 1/9
in corso (1° su 9)
G 4: A 48.22.27.80 Ve 1/9
in corso (1° su 9)

Qui di seguito lo script.

Sub main()
Dim rt(10),pt(4),n1(7)

pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0

clp=9 'colpi di gioco
rt(1)=10

ini=10528
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=10 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,3) + 54
b=Estratto (es,4,5) + 14
c=Estratto (es,9,1) + 44
d=Estratto (es,5,4) + 5
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,6,3) + 54
b=Estratto (es,4,5) + 14
c=Estratto (es,12,3) + 8
d=Estratto (es,8,2) + 23
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 2,n1,rt,pt,clp
a=Estratto (es,6,3) + 54
b=Estratto (es,4,5) + 14
c=Estratto (es,9,2) + 31
d=Estratto (es,4,3) + 32
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 3,n1,rt,pt,clp
a=Estratto (es,6,3) + 54
b=Estratto (es,4,5) + 14
c=Estratto (es,6,3) + 33
d=Estratto (es,1,2) + 43
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 4,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub