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ì 13 agosto 2026
    Bari
    70
    42
    10
    82
    72
    Cagliari
    47
    88
    48
    24
    78
    Firenze
    45
    26
    08
    35
    65
    Genova
    43
    66
    33
    20
    06
    Milano
    24
    48
    01
    50
    58
    Napoli
    84
    83
    19
    14
    72
    Palermo
    80
    11
    28
    60
    40
    Roma
    73
    55
    34
    58
    37
    Torino
    49
    46
    73
    45
    01
    Venezia
    32
    28
    11
    21
    84
    Nazionale
    31
    63
    28
    82
    32
    Estrazione Simbolotto
    Nazionale
    43
    16
    05
    08
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto