Giulio Pedrinelli
Super member
Ciao a tutti;
Alla 9° Estrazione del mese metteremo in gioco 4 cinquine per 5 estrazioni, su Bari.
Il periodo di ricerca è dal 24/04/2021 al 19/11/2022, totale 247 estrazioni.
Algoritmi:
1° BA + 28/+36/+42/+43/+78
2° FI + 07/+45/+54/+65/+89
1° GE + 47/+52/+69/+82/+88
4° NA + 10/+13/+28/+38/+47
Ho esaminato il periodo del metodo I Fantastici 4 (ambi) alla 3° estrazione del mese e ho notato che il periodo di ricerca era di 247 estrazioni, forse è un caso, vediamo impostando 247 estrazioni cosa esce....
Qui sotto lo script:
Sub Main
Dim poste(3)im ruote(2)im t1(9)
poste(2) = 1
'poste(3) = 0.5
ruote(1) = 1
Ini = 9916
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 9 Then
t1(1) = Fuori90(Estratto(es,1,1) + 28)
t1(2) = Fuori90(Estratto(es,1,1) + 36)
t1(3) = Fuori90(Estratto(es,1,1) + 42)
t1(4) = Fuori90(Estratto(es,1,1) + 43)
t1(5) = Fuori90(Estratto(es,1,1) + 78)
ImpostaGiocata 1,t1,ruote,poste,5
t1(1) = Fuori90(Estratto(es,4,1) + 47)
t1(2) = Fuori90(Estratto(es,4,1) + 52)
t1(3) = Fuori90(Estratto(es,4,1) + 69)
t1(4) = Fuori90(Estratto(es,4,1) + 82)
t1(5) = Fuori90(Estratto(es,4,1) + 88)
ImpostaGiocata 2,t1,ruote,poste,5
t1(1) = Fuori90(Estratto(es,6,4) + 10)
t1(2) = Fuori90(Estratto(es,6,4) + 13)
t1(3) = Fuori90(Estratto(es,6,4) + 28)
t1(4) = Fuori90(Estratto(es,6,4) + 38)
t1(5) = Fuori90(Estratto(es,6,4) + 47)
ImpostaGiocata 3,t1,ruote,poste,5
t1(1) = Fuori90(Estratto(es,3,2) + 7)
t1(2) = Fuori90(Estratto(es,3,2) + 45)
t1(3) = Fuori90(Estratto(es,3,2) + 54)
t1(4) = Fuori90(Estratto(es,3,2) + 65)
t1(5) = Fuori90(Estratto(es,3,2) + 89)
ImpostaGiocata 4,t1,ruote,poste,5
Gioca es
End If
Next
ScriviResoconto
End Sub
Alla 9° Estrazione del mese metteremo in gioco 4 cinquine per 5 estrazioni, su Bari.
Il periodo di ricerca è dal 24/04/2021 al 19/11/2022, totale 247 estrazioni.
Algoritmi:
1° BA + 28/+36/+42/+43/+78
2° FI + 07/+45/+54/+65/+89
1° GE + 47/+52/+69/+82/+88
4° NA + 10/+13/+28/+38/+47
Ho esaminato il periodo del metodo I Fantastici 4 (ambi) alla 3° estrazione del mese e ho notato che il periodo di ricerca era di 247 estrazioni, forse è un caso, vediamo impostando 247 estrazioni cosa esce....
Qui sotto lo script:
Sub Main
Dim poste(3)im ruote(2)im t1(9)
poste(2) = 1
'poste(3) = 0.5
ruote(1) = 1
Ini = 9916
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 9 Then
t1(1) = Fuori90(Estratto(es,1,1) + 28)
t1(2) = Fuori90(Estratto(es,1,1) + 36)
t1(3) = Fuori90(Estratto(es,1,1) + 42)
t1(4) = Fuori90(Estratto(es,1,1) + 43)
t1(5) = Fuori90(Estratto(es,1,1) + 78)
ImpostaGiocata 1,t1,ruote,poste,5
t1(1) = Fuori90(Estratto(es,4,1) + 47)
t1(2) = Fuori90(Estratto(es,4,1) + 52)
t1(3) = Fuori90(Estratto(es,4,1) + 69)
t1(4) = Fuori90(Estratto(es,4,1) + 82)
t1(5) = Fuori90(Estratto(es,4,1) + 88)
ImpostaGiocata 2,t1,ruote,poste,5
t1(1) = Fuori90(Estratto(es,6,4) + 10)
t1(2) = Fuori90(Estratto(es,6,4) + 13)
t1(3) = Fuori90(Estratto(es,6,4) + 28)
t1(4) = Fuori90(Estratto(es,6,4) + 38)
t1(5) = Fuori90(Estratto(es,6,4) + 47)
ImpostaGiocata 3,t1,ruote,poste,5
t1(1) = Fuori90(Estratto(es,3,2) + 7)
t1(2) = Fuori90(Estratto(es,3,2) + 45)
t1(3) = Fuori90(Estratto(es,3,2) + 54)
t1(4) = Fuori90(Estratto(es,3,2) + 65)
t1(5) = Fuori90(Estratto(es,3,2) + 89)
ImpostaGiocata 4,t1,ruote,poste,5
Gioca es
End If
Next
ScriviResoconto
End Sub