5 Numeri su Ca-Fi-Ge (1°a Estrazione)

[Giulio Pedrinelli]

Ciao a tutti;

questo mio metodo mette in gioco una cinquina su Ca-Fi-Ge alla 1a Estrazione del mese.
Periodo di gioco: 6 estrazioni.

Inizio: 01/02/2024
Fine: 30/01/2026

Calcolo previsioni.
A = 1° PA +4
B = 1° BA +21
C = 1° FI + 36
D = 4° VE + 40
E = 3° GE + 79

Le somme vanno fatte con il Fuori 90.
Circa il 77% delle previsioni si sfalda entro il 4° colpo.

La previsione in gioco è:
mar 03.02.2026 [10799]
G 1: A 24.47.51.53.80 Ca Fi Ge 0/6
i.c. (6 colpi)

Qui di seguito lo script.

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

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

clp=6 'colpi di gioco
rt(1)=2 '1a ruota di gioco
rt(2)=3
rt(3)=4

ini=10380
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,7,1) + 4
b=Estratto (es,1,1) + 21
c=Estratto (es,3,1) + 36
d=Estratto (es,10,4) + 40
e=Estratto (es,4,3) + 79
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 1,n1,rt,pt,clp

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

End Sub