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
    sabato 11 luglio 2026
    Bari
    42
    14
    74
    44
    05
    Cagliari
    81
    77
    15
    50
    53
    Firenze
    81
    12
    77
    67
    64
    Genova
    49
    32
    61
    33
    17
    Milano
    53
    24
    41
    83
    38
    Napoli
    31
    02
    68
    25
    74
    Palermo
    27
    90
    75
    40
    10
    Roma
    52
    68
    56
    78
    37
    Torino
    54
    33
    64
    42
    05
    Venezia
    49
    70
    73
    16
    06
    Nazionale
    02
    58
    06
    70
    84
    Estrazione Simbolotto
    Nazionale
    11
    42
    35
    36
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto