Due quartine su Mi-Na-Pa alla 6° Estrazione

[Giulio Pedrinelli]

Ciao a tutti;

questo mio nuovo metodo mette in gioco due quartina su Mi-Na-Pa per 9 estrazioni, alla 6° estrazione del mese.

Inizio: 08/11/2024
Fine: 11/11/2025

1° Quartina: 2° FI + 3 / 2° MI + 3 / 5° CA + 8 / 2° GE + 35
2° Quartina: 2° FI + 3 / 2° MI + 3 / 3° NZ + 57 / 4° NA + 79

Nei 13 mesi precedenti sono usciti 29 ambi e 3 terni.

La previsione, elaborata dall'estrazione del 11/11/2025 è la seguente:

mar 11.11.2025 [10751]
G 1: A 30.81.22.11 Mi Na Pa 2/9
in corso (2° su 9)
G 2: A 30.81.54.37 Mi Na Pa 2/9
in corso (2° su 9)

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=9
rt(1)=5
rt(2)=6
rt(3)=7


ini=10541
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=6 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,3,2) + 3
b=Estratto (es,5,5) + 3
c=Estratto (es,2,5) + 8
d=Estratto (es,4,2) + 35
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,3,2) + 3
b=Estratto (es,5,5) + 3
c=Estratto (es,12,3) + 57
d=Estratto (es,6,4) + 79
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

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

End Sub