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
    venerdì 10 luglio 2026
    Bari
    88
    71
    89
    31
    33
    Cagliari
    05
    67
    39
    21
    35
    Firenze
    54
    85
    02
    78
    57
    Genova
    17
    45
    04
    25
    29
    Milano
    56
    58
    49
    35
    08
    Napoli
    49
    56
    19
    68
    08
    Palermo
    87
    39
    72
    05
    56
    Roma
    59
    51
    22
    62
    41
    Torino
    60
    84
    32
    28
    01
    Venezia
    46
    69
    11
    36
    22
    Nazionale
    22
    36
    41
    18
    76
    Estrazione Simbolotto
    Nazionale
    23
    34
    14
    42
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto