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 25 luglio 2026
    Bari
    86
    66
    30
    01
    25
    Cagliari
    14
    36
    79
    07
    51
    Firenze
    89
    41
    87
    30
    23
    Genova
    29
    11
    35
    57
    66
    Milano
    19
    28
    31
    27
    47
    Napoli
    03
    23
    61
    12
    65
    Palermo
    61
    90
    47
    56
    34
    Roma
    22
    26
    48
    50
    44
    Torino
    62
    75
    23
    15
    13
    Venezia
    80
    25
    84
    49
    61
    Nazionale
    23
    76
    80
    55
    46
    Estrazione Simbolotto
    Nazionale
    37
    44
    16
    05
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto