Novità

Tre numeri decine per ambo

G

Giulio Pedrinelli

Super Member >PLATINUM<
Ciao a tutti;

Sto lavorando a un metodo con ricerca su Bari e gioco per 13 estrazioni su BA-CA-FI-GE-MI.

Bisogna rilevare tre numeri appartenenti alle decine:

Da 01 a 09
Da 11 a 19
Da 21 a 29
Eccetera fino a 80-89

Ho preparato lo script, devo estendere la ricerca dal 2000 al 2026, fino all’ultima estrazione.
Inizialmente avevo messo 24 mesi di ricerca, va bene per la ricerca delle decine (algoritmi ed ambi - 2 ambi), per lo script ci vuole un periodo più lungo, altrimenti escono pochi casi giocabili.
Mi sono portato dietro il pc portatile, dopo pubblicherò altri dati.
 
Ciao a tutti;

Decina 01 - 09 su Bari, periodo dal 2000 al 2026, ecco i risultati:

28 casi positivi su 41.
Entro il 7o colpo il 52,9% con una media delle uscite pari a 6,91.

Condizioni: rilevare una terzina fra i numeri da 1 a 9 su Bari.

Ambi:
1) Terzo estratto di NA + 66
2) Primo estratto di FI + 46
3) Quarto estratto di MI + 11
4) Quinto estratto di VE + 50

Abbinamento:

1-3 e 2-4

Da giocare su BA CA FI GE MI per 13 estrazioni

Qui di seguito lo script, per la decina 01-09 su Bari.

Sub Main()
'
Dim ruote(10),ruota(10),n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n19,n15,x1,x2,x3,x4,x5,x6,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(1) = 0
poste(2) = 1
fin = EstrazioneFin
Ini = 6877
For es = Ini To fin

n0 = 0
n15 = 1 ' Unica riga da correggere !!
AvanzamentoElab Ini,fin,es
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,2)
n3 = Estratto(es,r1,3)
n4 = Estratto(es,r1,4)
n5 = Estratto(es,r1,5)
If n1 >= 1 And n1 <= 9 Then n0 = n0 + 1
If n2 >= 1 And n2 <= 9 Then n0 = n0 + 1
If n3 >= 1 And n3 <= 9 Then n0 = n0 + 1
If n4 >= 1 And n4 <= 9 Then n0 = n0 + 1
If n5 >= 1 And n5 <= 9 Then n0 = n0 + 1

If n0 >= 3 Then

ok = 0

x1 = Fuori90(Estratto(es,6,3) + 66)
x2 = Fuori90(Estratto(es,3,1) + 46)
x3 = Fuori90(Estratto(es,5,4) + 11)
x4 = Fuori90(Estratto(es,10,5) + 50)
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1)
Scrivi
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruota(4) = r4
ruota(5) = r5
k = 13
' co = 0 Non viene utilizzata !
nu2(1) = x1
nu2(2) = x3
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x2
nu2(2) = x4
ImpostaGiocata 2,nu2,ruota,poste,k
Gioca es
End If
Next
Scrivi
Scrivi String(75,"=")
Scrivi "CASI REALI RILEVATI = " & casi
Scrivi "Giocate impostate = " & casi * 2
Scrivi String(75,"=")
Scrivi
ScriviResoconto
End Sub
 
Decina 21-29.
Percentuale 22 su 25.
Periodo dal 2000 al 2026.
Entro il 7o colpo il 62,5%
Media 6,33 colpi.

Ambi
1) 4 estratto di GE + 5
2) 5 estratto di VE + 80
3) 1 estratto di PA + 44
4) 2 estratto di FI + 55

Abbinamenti:
1-4 e 2-3

Ruote BA CA FI GE MI per 13 colpi
 
Decina 41-49.
Percentuale 27 su 30.
Periodo dal 2000 al 2026.
Entro il 7o colpo il 53,3%
Media 6,5 colpi

Ambi
1) 2 estratto di RO + 83
2) 5 estratto di RO + 41
3) 3 estratto di PA + 24
4) 3 estratto di TO + 22

Abbinamenti:
1-4 e 2-3

Ruote BA CA FI GE MI per 13 colpi
 
Decina 51-59.
Percentuale 24 su 30
Periodo dal 2000 al 2026.
Entro il 7o colpo il 41,4%
Media 8,41 colpi

Ambi
1) 3 estratto di GE + 15
2) 5 estratto di MI + 17
3) 1 estratto di GE + 19
4) 4 estratto di MI + 36

Abbinamenti:
1-3 e 2-4

Ruote BA CA FI GE MI per 13 colpi
 
Decina 71-79.
Percentuale 20 su 23.
Periodo dal 2000 al 2026.
Entro il 7o colpo il 59,1%
Media 6,59 colpi

Ambi
1) 1 estratto di PA + 39
2) 2 estratto di NZ + 72
3) 4 estratto di TO + 5
4) 3 estratto di FI + 9

Abbinamenti:
1-4 e 2-4

Ruote BA CA FI GE MI per 13 colpi

Riguardo alla ruota di Bari, per ora non ho trovato altri gruppi di decina con algoritmi statisticamente validi.
 
Ruota CA.
Decina 11-19.
Percentuale 21 su 23.
Periodo dal 2000 al 2026.
Entro il 7o colpo il 41,7%
Media 8,25 colpi

Ambi
1) 2 estratto di FI + 89
2) 3 estratto di TO + 9
3) 5 estratto di VE + 35
4) 4 estratto di GE + 55

Abbinamenti:
1-3 e 2-4

Ruote BA CA FI GE MI per 13 colpi

Cercherò altri algoritmi su Cagliari.
 
Ruota CA.
Decina 51-59.
Percentuale 24 su 30.
Periodo dal 2000 al 2026.
Entro il 7o colpo il 62,5%
Media 6,59 colpi

Ambi
1) 3 estratto di PA + 76
2) 5 estratto di FI + 24
3) 5 estratto di NA + 4
4) 1 estratto di NA + 6

Abbinamenti:
1-3 e 2-4

Ruote BA CA FI GE MI per 13 colpi
 
Ruota CA.
Decina 61-69.
Percentuale 21 su 31.
Periodo dal 2000 al 2026.
Entro il 7o colpo il 44%
Media 7,52 colpi

Ambi
1) 2 estratto di VE + 35
2) 2 estratto di MI + 79
3) 3 estratto di PA + 5
4) 4 estratto di GE + 65

Abbinamenti:
1-3 e 2-3

Ruote BA CA FI GE MI per 13 colpi

Per ora direi che basta, se esce una terzina su Cagliari inserirò la previsione e lo script, se non l'ho già pubblicato,
 
Script CA decina 51-59.

Sub Main()
'
Dim ruote(10),ruota(10),n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n19,n15,x1,x2,x3,x4,x5,x6,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(1) = 0
poste(2) = 1
fin = EstrazioneFin
Ini = 6877
For es = Ini To fin

n0 = 0
n15 = 1 ' Unica riga da correggere !!
AvanzamentoElab Ini,fin,es
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
n1 = Estratto(es,r2,1)
n2 = Estratto(es,r2,2)
n3 = Estratto(es,r2,3)
n4 = Estratto(es,r2,4)
n5 = Estratto(es,r2,5)
If n1 >= 51 And n1 <= 59 Then n0 = n0 + 1
If n2 >= 51 And n2 <= 59 Then n0 = n0 + 1
If n3 >= 51 And n3 <= 59 Then n0 = n0 + 1
If n4 >= 51 And n4 <= 59 Then n0 = n0 + 1
If n5 >= 51 And n5 <= 59 Then n0 = n0 + 1

If n0 >= 3 Then

ok = 0

x1 = Fuori90(Estratto(es,7,3) + 76)
x2 = Fuori90(Estratto(es,3,5) + 24)
x3 = Fuori90(Estratto(es,6,5) + 4)
x4 = Fuori90(Estratto(es,6,1) + 6)
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1)
Scrivi
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruota(4) = r4
ruota(5) = r5
k = 13
' co = 0 Non viene utilizzata !
nu2(1) = x1
nu2(2) = x3
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x2
nu2(2) = x4
ImpostaGiocata 2,nu2,ruota,poste,k
Gioca es
End If
Next
Scrivi
Scrivi String(75,"=")
Scrivi "CASI REALI RILEVATI = " & casi
Scrivi "Giocate impostate = " & casi * 2
Scrivi String(75,"=")
Scrivi
ScriviResoconto
End Sub

Script CA decina 61-69.

Sub Main()
'
Dim ruote(10),ruota(10),n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n19,n15,x1,x2,x3,x4,x5,x6,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(1) = 0
poste(2) = 1
fin = EstrazioneFin
Ini = 6877
For es = Ini To fin

n0 = 0
n15 = 1 ' Unica riga da correggere !!
AvanzamentoElab Ini,fin,es
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
n1 = Estratto(es,r2,1)
n2 = Estratto(es,r2,2)
n3 = Estratto(es,r2,3)
n4 = Estratto(es,r2,4)
n5 = Estratto(es,r2,5)
If n1 >= 61 And n1 <= 69 Then n0 = n0 + 1
If n2 >= 61 And n2 <= 69 Then n0 = n0 + 1
If n3 >= 61 And n3 <= 69 Then n0 = n0 + 1
If n4 >= 61 And n4 <= 69 Then n0 = n0 + 1
If n5 >= 61 And n5 <= 69 Then n0 = n0 + 1

If n0 >= 3 Then

ok = 0

x1 = Fuori90(Estratto(es,10,2) + 35)
x2 = Fuori90(Estratto(es,5,2) + 79)
x3 = Fuori90(Estratto(es,7,3) + 5)
x4 = Fuori90(Estratto(es,4,4) + 65)
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1)
Scrivi
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruota(4) = r4
ruota(5) = r5
k = 13
' co = 0 Non viene utilizzata !
nu2(1) = x1
nu2(2) = x3
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x2
nu2(2) = x3
ImpostaGiocata 2,nu2,ruota,poste,k
Gioca es
End If
Next
Scrivi
Scrivi String(75,"=")
Scrivi "CASI REALI RILEVATI = " & casi
Scrivi "Giocate impostate = " & casi * 2
Scrivi String(75,"=")
Scrivi
ScriviResoconto
End Sub


Inserirò gli altri, tempo permettendo.
 
Buongiorno e grazie per gli script a Giulio Pedrinelli, una domanda ...ma la ricerca degli script non è ogni qualvolta escono i numeri? ad esempio a bari il 26/06 sono usciti i numeri 56 e 59 , come mai lo script non lo evidenzia?
 
Rossella35 ha scritto:
Buongiorno e grazie per gli script a Giulio Pedrinelli, una domanda ...ma la ricerca degli script non è ogni qualvolta escono i numeri? ad esempio a bari il 26/06 sono usciti i numeri 56 e 59 , come mai lo script non lo evidenzia?
Clicca per espandere...
Ho notato anche io ; per vedere l'estrazione ho aggiunto questo display :
' Scrivi DataEstrazione(es,1) inserito dopo questa riga , che va commentata !
Scrivi(" Estrazione del : " & DataEstrazione(es) & " "),1,0
Scrivi(SiglaRuota(r1) & " " & Format2(Estratto(es,r1,1)) & " " & Format2(Estratto(es,r1,2)) & " " & Format2(Estratto(es,r1,3)) & " " & Format2(Estratto(es,r1,4)) & " " & Format2(Estratto(es,r1,5)) & " "),1,0
... mi sembra utile per una veloce verifica
Ringrazio Pedrinelli per gli script che gentilmente fornisce ,( potrebbe anche inserire Solo le modifiche per ogni diverso Caso di Decina
'
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 01 ottobre 2026
    Bari
    72
    18
    46
    68
    08
    Cagliari
    36
    73
    74
    13
    25
    Firenze
    04
    45
    39
    75
    68
    Genova
    19
    82
    73
    29
    07
    Milano
    35
    53
    23
    20
    05
    Napoli
    65
    07
    29
    41
    34
    Palermo
    09
    51
    48
    31
    58
    Roma
    87
    09
    90
    37
    10
    Torino
    85
    67
    47
    49
    17
    Venezia
    25
    52
    16
    72
    45
    Nazionale
    46
    42
    72
    76
    73
    Estrazione Simbolotto
    26
    04
    23
    41
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto