Giulio Pedrinelli
Super Member >PLATINUM<
Ciao a tutti;
Questo mio nuovo metodo mette in gioco 3 cinquine su Torino alla 5° estrazione del mese.
Inizio: 8/10/2024
Fine: 9/07/2026
Periodo di gioco: 9 estrazioni.
1° Cinquina: 3° di PA + 40 / 5° di FI + 42 / 2° di PA + 3 / 5° di MI + 4 / 5° di VE + 21
2° Cinquina: 3° di PA + 40 / 5° di FI + 42 / 5° di VE + 22 / 3° di VE + 47 / 4° di PA + 12
3° Cinqiona: 3° di PA + 40 / 5° di FI + 42 / 4° di MI + 17 / 1° di GE + 19 / 3° di VE + 19
Totale: 21 casi
Positivi: 17
Negativi: 4
Il resoconto dello script dice 63 casi totali di cui 35 positivi e 23 negativi, probabilmente andrebbe divisa per 3.
Media 4,93 colpi.
Qui di seguito lo script:
Sub main()
Dim rt(1),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=9 'colpi di gioco
rt(1)=9 '1a ruota di gioco
ini=10523
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=5 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,7,3) + 40
b=Estratto (es,4,5) + 42
c=Estratto (es,7,2) + 3
d=Estratto (es,5,5) + 4
e=Estratto (es,10,5) + 21
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
a=Estratto (es,7,3) + 40
b=Estratto (es,4,5) + 42
c=Estratto (es,10,5) + 22
d=Estratto (es,10,3) + 47
e=Estratto (es,7,4) + 12
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 2,n1,rt,pt,clp
a=Estratto (es,7,3) + 40
b=Estratto (es,4,5) + 42
c=Estratto (es,5,4) + 17
d=Estratto (es,4,1) + 19
e=Estratto (es,10,3) + 19
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 3,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Questo mio nuovo metodo mette in gioco 3 cinquine su Torino alla 5° estrazione del mese.
Inizio: 8/10/2024
Fine: 9/07/2026
Periodo di gioco: 9 estrazioni.
1° Cinquina: 3° di PA + 40 / 5° di FI + 42 / 2° di PA + 3 / 5° di MI + 4 / 5° di VE + 21
2° Cinquina: 3° di PA + 40 / 5° di FI + 42 / 5° di VE + 22 / 3° di VE + 47 / 4° di PA + 12
3° Cinqiona: 3° di PA + 40 / 5° di FI + 42 / 4° di MI + 17 / 1° di GE + 19 / 3° di VE + 19
Totale: 21 casi
Positivi: 17
Negativi: 4
Il resoconto dello script dice 63 casi totali di cui 35 positivi e 23 negativi, probabilmente andrebbe divisa per 3.
Media 4,93 colpi.
Qui di seguito lo script:
Sub main()
Dim rt(1),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=9 'colpi di gioco
rt(1)=9 '1a ruota di gioco
ini=10523
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=5 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,7,3) + 40
b=Estratto (es,4,5) + 42
c=Estratto (es,7,2) + 3
d=Estratto (es,5,5) + 4
e=Estratto (es,10,5) + 21
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
a=Estratto (es,7,3) + 40
b=Estratto (es,4,5) + 42
c=Estratto (es,10,5) + 22
d=Estratto (es,10,3) + 47
e=Estratto (es,7,4) + 12
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 2,n1,rt,pt,clp
a=Estratto (es,7,3) + 40
b=Estratto (es,4,5) + 42
c=Estratto (es,5,4) + 17
d=Estratto (es,4,1) + 19
e=Estratto (es,10,3) + 19
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 3,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub