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
    martedì 14 ottobre 2025
    Bari
    48
    72
    06
    17
    82
    Cagliari
    28
    15
    25
    20
    34
    Firenze
    07
    17
    49
    62
    04
    Genova
    49
    09
    84
    14
    71
    Milano
    66
    57
    78
    07
    33
    Napoli
    17
    27
    25
    21
    66
    Palermo
    24
    34
    19
    29
    53
    Roma
    82
    53
    47
    25
    55
    Torino
    66
    58
    13
    07
    29
    Venezia
    68
    82
    10
    31
    01
    Nazionale
    19
    76
    15
    45
    26
    Estrazione Simbolotto
    26
    02
    15
    45
    40

Ultimi Messaggi

Indietro
Alto