GE-MI-NA - 4° Estrazione

[Giulio Pedrinelli]

Ciao a tutti;

Inizio Ricerca: 01/04/2023
Fine Ricerca: 27/03/2025
Ruote: GE-MI-NA
1° Estrazione del mese

1° Quartina: 2° BA + 14 / 4° MI + 18 / 5° RO + 23 / 4° CA + 20
2° Quartina: 2° BA + 14 / 4° MI + 18 / 3° VE + 70 / 5° BA + 5

Nei 24 casi dal 2023 ho contato 47 ambi e 6 terni.

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


ini=10219
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,1,2) + 14
b=Estratto (es,5,4) + 18
c=Estratto (es,8,5) + 23
d=Estratto (es,2,4) + 20
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,1,2) + 14
b=Estratto (es,5,4) + 18
c=Estratto (es,10,3) + 70
d=Estratto (es,1,5) + 5
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

 

[Giulio Pedrinelli]

Scusate, il metodo è alla 1° Estrazione.

 

[Giulio Pedrinelli]

Rispetto agli esiti riportati dallo script verificando gli esiti sono diversi.

Casi Rilevati 24
Vincenti: 22 (91,66%)
Nulli: 2
Ambi: (inclusi quelli nei terni) = 69
Terni: 6

Si parte dall'estrazione del 1 Aprile.