2 Quartine su Ge-Mi-Na alla 12° Estrazione

[Giulio Pedrinelli]

Ciao a tutti;

Inizio Ricerca: 28/01/2023
Fine Ricerca: 22/02/2025

Estrazione: 12°
Periodo gioco: 9 estrazioni.

Ruote: Ge-Mi-Na

Prima Quartina: 2° FI + 53 / 4° Na + 68 / 5° Mi +35 / 1° Pa + 24
Seconda Quartina: 2° FI + 53 / 4° Na + 68 / 2° Fi + 49 / 4° Ve + 74

Casi Esaminati: 25
Positivi: 21 (84%)
Attesa Media: 5,09

Lo script considera negativo se una della due quartine non è uscita.
Consiglio d'interrompere il gioco alla prima vincita, sebbene ho rilevato 5 vincite multiple su 25.

Ecco lo script.

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

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

clp=13
rt(1)=4
rt(2)=5
rt(3)=6


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