Ruote Ba-Ca-Fi-Ge-Mi - 3 estrazioni

[Giulio Pedrinelli]

Ciao a tutti;

il periodo è poco più di un anno, vediamo se mantiene gli esiti del passato.

Inserisco lo script e l'immagine, ho fretta.
1a Estrazione, l'inizio è dal 2/9/25.

Sub main()
Dim rt(10),pt(4),n1(8)

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

clp=3 'colpi di gioco
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5
'GIULIO

ini=10711
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,4,2) + 28
b=Estratto (es,4,5) + 18
c=Estratto (es,5,5) + 79
d=Estratto (es,9,2) + 4
e=Estratto (es,6,2) + 11
n1(1)=Fuori90 (a)
n1(2)=Fuori90 (b)
n1(3)=Fuori90 (c)
n1(4)=Fuori90 (d)
n1(5)=Fuori90 (e)
ImpostaGiocata 1,n1,rt,pt,clp

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

End Sub

 

[aldinobis]

Ciao e complimenti per i tuoi lavori.

quando poi e se non e' un disturbo

potresti impostare una ricerca ,simile ,con le ruote FI-RO-NZ

che se vengono fuori delle convergenze,vediamo di ridurre la cinquina a terno o quartina

grazie

 

[Giulio Pedrinelli]

Ciao a tutti;

Stasera, fra poco inizia il lavoro........
Generalmente allungando il periodo perde efficacia, come il vino allungato con l'acqua........., ho fatto una versione a 26 mesi, sempre per 3 estrazioni....
Stasera posto e anche per aldinobis.

 

[Giulio Pedrinelli]

Ho testato su FI-RO-NZ, su 14 mesi ha dato 11 casi positivi e 3 negativi.
Si, potrebbe essere utile per le convergenze, anche se le ruote non sono consecutive,

Sezione Elemento Valori
Estrazioni
N° casi 14
Fine 7388 29/09/2026 PM:17
Ruote
Ruote origine FI RO NZ
Tutte
Ruote gioco FI RO NZ
Posizionii
Posizioni 1 2 3 4 5
Colpi
Colpi gioco 3
Calcolo Previsioni
1 4° di CA + 5
2 1° di TO + 44
3 1° di FI + 74
4 5° di MI + 3
5 3° di VE + 22
1 2 3 4 5 2-Ambo

Riguardo a BA_CA_FI_GE_MI come vi ho anticipato ho alzato il periodo a 26 casi.
Ho dovuto modificare gli algoritmi, gli esiti sono 22 positivi e 4 negativi,
Qui sotto i nuovi algoritmi e lo script a 26 casi.
Con un periodo a 14 casi inizialmente potrebbe andar forte, per così dire, però il futuro?

Sub main()
Dim rt(10),pt(4),n1(8)

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

clp=3 'colpi di gioco
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5
'GIULIO Versione 26 mesi
'inizio 1/8/24

ini=10484
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,4,3) + 17
b=Estratto (es,4,5) + 60
c=Estratto (es,1,3) + 74
d=Estratto (es,10,4) + 58
e=Estratto (es,12,4) + 82
n1(1)=Fuori90 (a)
n1(2)=Fuori90 (b)
n1(3)=Fuori90 (c)
n1(4)=Fuori90 (d)
n1(5)=Fuori90 (e)
ImpostaGiocata 1,n1,rt,pt,clp

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

End Sub

Scusate, inizio 1/8/24.
Fine: 26/09/2026.
Periodo di gioco: 3 estrazioni

3° GE + 17
5° GE + 60
3° BA + 74
4° VE + 58
4° NZ + 82

Avevo inserito l'immagine del periodo a 13 casi.