7a Estrazione BA-CA-FI

[Giulio Pedrinelli]

Ciao a tutti;

Questo mio metodo alla 7° estrazione del mese mette in gioco 1 cinquina per Ambo, Terno e Quaterna per 13 estrazioni.

Inizio: 12/09/2025
Fine: 11/09/2026

1° Numero: 4° di NA + 43
2° Numero: 3° di FI + 27
3° Numero: 4° di MI + 37
4° Numero: 5° di RO + 35
5° Numero: 5° di BA + 39

Complessivamente da 12/09/2025 i risultati (entro il 13° colpo) sono: 17 ambi, 8 Terni e 1 quaterna.

La previsione (calcolata dall'estrazione del 11/9) è:

ven 11.09.2026 [10925]
G 1: ATQ 79.85.37.88.55 Ba Ca Fi 0/13
n.i. (13 colpi)

Qui di seguito lo script.

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

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

clp=13 'colpi di gioco
rt(1)=1
rt(2)=2
rt(3)=3

ini=10725
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=7 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,4) + 43
b=Estratto (es,3,3) + 27
c=Estratto (es,5,4) + 37
d=Estratto (es,8,5) + 35
e=Estratto (es,1,5) + 39
n1(1)=Fuori90 (a)
n1(2)=Fuori90 (b)
n1(3)=Fuori90 (c)
n1(4)=Fuori90 (d)
n1(5)=Fuori90 (e)
ImpostaGiocata 1,n1,rt,pt,clp

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

End Sub

*** PS: durante la settimana sono in ufficio, risponderò il sabato/o la domenica. ***