Novità

Chiedo questo Script ai Scripter

trivellatomariotretre33

Super Member >PLATINUM<
Buonasera a tutti, desideravo sapere se sia possibile questo tipo di ricerca:
ricercare su ogni ruota, in ogni posizione e in ogni estrazione del mese,
i numeri che si ripetono con maggiore presenza su altre ruote e determinare quale posizione
ha la maggiore frequenza di tali numeri.
Per esempio: alla 8a estrazione mensile i numeri che si sono ripetuti maggiormente
sulle ruote di Roma e Venezia sono:
Bari = 3° estratto
Genova = 1° estratto
Napoli = 2° estratto
 
Ciao, se ti può interessare ti mando un listato, di molto tempo fa, ma sempre interessante, se lo sai modificare a tuo piacere, o comunque lo potrai studiare così com'è secondo i tuoi studi.
Ti inserisco il resoconto, per prima cosa, e ti mando veloce spiegazione :

RESOCONTO :

volte che si è ripetuto il 1° estratto di Bari nell'estrazione successiva nella ruota di Nazionale


10221 / 10222 1° estratto n° 73 a Bari riestratto a Nazionale n° 73
10223 / 10224 1° estratto n° 51 a Bari riestratto a Nazionale n° 51
10225 / 10226 1° estratto n° 23 a Bari riestratto a Nazionale n° 23

volte che si è ripetuto il 2° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10202 / 10203 2° estratto n° 61 a Bari riestratto a Nazionale n° 61
10246 / 10247 2° estratto n° 9 a Bari riestratto a Nazionale n° 9
10264 / 10265 2° estratto n° 82 a Bari riestratto a Nazionale n° 82
10272 / 10273 2° estratto n° 56 a Bari riestratto a Nazionale n° 56

volte che si è ripetuto il 3° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10204 / 10205 3° estratto n° 69 a Bari riestratto a Nazionale n° 69
10246 / 10247 3° estratto n° 59 a Bari riestratto a Nazionale n° 59
10250 / 10251 3° estratto n° 50 a Bari riestratto a Nazionale n° 50
10270 / 10271 3° estratto n° 70 a Bari riestratto a Nazionale n° 70

volte che si è ripetuto il 4° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10219 / 10220 4° estratto n° 40 a Bari riestratto a Nazionale n° 40
10229 / 10230 4° estratto n° 53 a Bari riestratto a Nazionale n° 53
10240 / 10241 4° estratto n° 37 a Bari riestratto a Nazionale n° 37
10242 / 10243 4° estratto n° 89 a Bari riestratto a Nazionale n° 89
10255 / 10256 4° estratto n° 77 a Bari riestratto a Nazionale n° 77
10270 / 10271 4° estratto n° 82 a Bari riestratto a Nazionale n° 82

volte che si è ripetuto il 5° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10216 / 10217 5° estratto n° 24 a Bari riestratto a Nazionale n° 24
10220 / 10221 5° estratto n° 69 a Bari riestratto a Nazionale n° 69

le totali ripetizioni dei 5 estratti sono 19 volte


scelta una ruota, potrai impostare una seconda ruota per vederne gli esiti.
Nel listato ho impostato come 1° ruota Bari, e poi ho inserito come 2° ruota la Nazionale per vedere tra gli estratti di Bari, ad ogni estrazione consecutiva, cioè, ad un solo colpo, quali estratti si sono ripetuti nella ruota Nazionale e in quale posizione.

LISTATO :
Option Explicit
Sub Main
Dim Ini,fine,ct,retestratti,retidestr,nu,j,r1,ru2,rudue,p2,p3,p4,p5,p6,es2,es1,i,ct2
Dim an(1),ar(10),dati(10,5),cip
cip = 10200
r1 = 1 ' <-------------- 1^ ruota
rudue = 12 ' <---------- 2^ ruota
Ini = cip
fine = 10274
For j = 1 To 1
ar(j) = j
Next
For Ini = Ini + 1 To 10274
nu = Estratto(Ini,r1,1)
an(1) = nu
Call VerificaEsitoTurbo(an,ar,Ini + 1,1,1,,,,retestratti,retidestr)
If retestratti <> "" Then
ct = ct + 1
End If
Next
ColoreTesto 1
Scrivi"volte che si è ripetuto il 1° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,1)
i = Ini
For ru2 = rudue To rudue
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
ct2 = ct2 + 1
Scrivi Ini & " / " & Ini + 1 & " 1° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 2° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,2)
i = Ini
For ru2 = rudue To rudue
For p3 = 1 To 5
es2 = Estratto(i + 1,ru2,p3)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 2° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 1
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 3° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,3)
i = Ini
For ru2 = rudue To rudue
For p4 = 1 To 5
es2 = Estratto(i + 1,ru2,p4)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 3° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 4° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,4)
i = Ini
For ru2 = rudue To rudue
For p5 = 1 To 5
es2 = Estratto(i + 1,ru2,p5)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 4° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 5° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,5)
i = Ini
For ru2 = rudue To rudue
For p6 = 1 To 5
es2 = Estratto(i + 1,ru2,p6)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 5° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "le totali ripetizioni dei 5 estratti sono " & ct2 & " volte ",1
End Sub

Buona Fortuna !! 🍀🍀
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto