Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

la legge di Benford

fillotto

Advanced Member >PLATINUM<
A questo punto, grazie all'intuizione di Salvo e alla legge di benford, sappiamo che i ritardi che cominciano per 1 e che i ritardi che cominciano per 2 sono i più propabili circa il 50% .Allora mi sono detto ...controlliamo ! Certo non posso controllarne tutti ovvero ritatdo 1, 10,11,12 .....19 oltre che i ritardi 100,101,ecc 199 e i ritardi 2,20,21,22....29 oltre che i ritardi
200,201,ecc 299 perciò controllerò solo i ritardi 1 e 2 cioè ipotizzo di giocare per ambo la cinquina appena uscita saltando l'estraz. successiva e giocando solo al rit 1 e2 .Come fare per controllare ? Si va sulle estrazioni di spazio ... evidenzia numeri ...si evidenziano i numeri di una vecchia cinquina e si vede se nel ritardo 1 o 2 cioè dopo 2 o 3 estrazioni (rit 0 non giochiamo) sono usciti 2 o adddiritura 3 numeri , questo giochetto non riuscirà per 10 15 volte ma....controllate, controllate !!!
Chi fa uno script?
 

silop2005

Advanced Member >GOLD<
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Giggio ,
======================
se possibile e se hai tempo, potresti implementare alcune colonne
vicino al prospetto per estratto della legge di Benford ?
======================
Di seguito te le elenco le 4 colonne :
La prima lo "Scarto" i cui valori in rosso indicano le percentuali in eccesso in nero in difetto rispetto alla BASE
La seconda "ESTRATTI" sono gli estratti sortiti alla data di elaborazione
La terza "Rit.Prec." indica i ritardi che gli estratti sortiti avevano all'estrazione precedente
e scritti nelle rispettive righe delle cifre corrispondenti.
Esempio : sia l'estratto n. 82 che il ritardo precedente 1 si scriveranno in corrispondenza alla riga della cifra 1
Esempio : sia l'estratto n. 61 che il ritardo precedente 52 si scriveranno in corrispondenza alla riga della cifra 5
Esempio : sia l'estratto n. 7 che il ritardo precedente 35 si scriveranno in corrispondenza alla riga della cifra 3
ecc… ecc…
ecc… ecc…
La quarta "Formula dei 5 rit." indica la quantità dei rit.prec. che si trovano sulla riga
======================
Ecco le immagini relative ad alcune estrazioni della ruota Nazionale :
=====================
=====================
=====================
=====================
=====================
Queste colonne potranno essere utili per ulteriori approfondimento di studio dell'estratto sulla legge di Benford.
======================
Buon pomeriggio a tutto il forum.
======================
A presto
Silop ;) ;) ;)
PS : x filotto
solo per curiosità ma chi è Salvo ????
 

lotto_tom75

Premium Member
Nonostante la risata di Giggio :unsure: :LOL:, che saluto 👋😃 ho provato ad estendere leggermente il range temporale di analisi e come era abbastanza intuibile... la Legge di Benford tende a presentarsi sempre di + eliminando via via sempre + ruote... dall'area disarmonica rilevata... o_O

Questo ad esempio esaminando le ultime 180 estrazioni...

Ruota : Bari
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 855
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
45​
NonCompresoNelTotRit​
1​
282​
32,982​
2​
177​
20,702​
3​
95​
11,111​
4​
81​
9,474​
5​
54​
6,316​
6​
49​
5,731​
7​
48​
5,614​
8​
37​
4,327​
9​
32​
3,743​




Ruota : Cagliari
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 848
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
52​
NonCompresoNelTotRit​
1​
273​
32,193​
2​
185​
21,816​
3​
92​
10,849​
4​
82​
9,67​
5​
48​
5,66​
6​
36​
4,245​
7​
45​
5,307​
8​
48​
5,66​
9​
39​
4,599​




Ruota : Firenze
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 848
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
52​
NonCompresoNelTotRit​
1​
288​
33,962​
2​
169​
19,929​
3​
106​
12,5​
4​
74​
8,726​
5​
59​
6,958​
6​
42​
4,953​
7​
41​
4,835​
8​
36​
4,245​
9​
33​
3,892​




Ruota : Genova
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 845
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
55​
NonCompresoNelTotRit​
1​
292​
34,556​
2​
171​
20,237​
3​
98​
11,598​
4​
72​
8,521​
5​
65​
7,692​
6​
46​
5,444​
7​
43​
5,089​
8​
32​
3,787​
9​
26​
3,077​




Ruota : Milano
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 843
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
57​
NonCompresoNelTotRit​
1​
273​
32,384​
2​
172​
20,403​
3​
101​
11,981​
4​
83​
9,846​
5​
48​
5,694​
6​
57​
6,762​
7​
33​
3,915​
8​
37​
4,389​
9​
39​
4,626​




Ruota : Napoli
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 836
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
64​
NonCompresoNelTotRit​
1​
251​
30,024​
2​
183​
21,89​
3​
96​
11,483​
4​
71​
8,493​
5​
64​
7,656​
6​
50​
5,981​
7​
45​
5,383​
8​
45​
5,383​
9​
31​
3,708​




Ruota : Palermo
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 840
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
60​
NonCompresoNelTotRit​
1​
245​
29,167​
2​
177​
21,071​
3​
99​
11,786​
4​
82​
9,762​
5​
65​
7,738​
6​
49​
5,833​
7​
42​
5​
8​
38​
4,524​
9​
43​
5,119​




Ruota : Roma
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 852
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
48​
NonCompresoNelTotRit​
1​
291​
34,155​
2​
153​
17,958​
3​
103​
12,089​
4​
78​
9,155​
5​
67​
7,864​
6​
54​
6,338​
7​
44​
5,164​
8​
31​
3,638​
9​
31​
3,638​




Ruota : Torino
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 849
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
51​
NonCompresoNelTotRit​
1​
263​
30,978​
2​
174​
20,495​
3​
137​
16,137​
4​
82​
9,658​
5​
51​
6,007​
6​
39​
4,594​
7​
38​
4,476​
8​
34​
4,005​
9​
31​
3,651​




Ruota : Venezia
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 849
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
51​
NonCompresoNelTotRit​
1​
283​
33,333​
2​
165​
19,435​
3​
114​
13,428​
4​
73​
8,598​
5​
48​
5,654​
6​
41​
4,829​
7​
45​
5,3​
8​
46​
5,418​
9​
34​
4,005​




Ruota : Nazionale
Da : [09671] [100] 20.08.2019
A : [09850] [122] 21.11.2020
ETot : 180
RTot : 851
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
49​
NonCompresoNelTotRit​
1​
270​
31,727​
2​
171​
20,094​
3​
115​
13,514​
4​
87​
10,223​
5​
49​
5,758​
6​
59​
6,933​
7​
42​
4,935​
8​
33​
3,878​
9​
25​
2,938​


Estendendo di volta in volta il range (in figura 9 temporale per comodità di analisi...) già a 630 estrazioni rimarrebbe una sola ruota "leggermente fuori armonia" rispetto la Legge di Benford e cioè quella di NAPOLI.

Di seguito il rapido test effettuato con le relative "sbavature di cifra" evidenziate:

Ruota : Bari
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2979
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
171​
NonCompresoNelTotRit​
1​
955​
32,058​
2​
599​
20,107​
3​
355​
11,917​
4​
270​
9,063​
5​
208​
6,982​
6​
186​
6,244​
7​
155​
5,203​
8​
140​
4,7​
9​
111​
3,726​




Ruota : Cagliari
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2954
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
196​
NonCompresoNelTotRit​
1​
960​
32,498​
2​
625​
21,158​
3​
365​
12,356​
4​
272​
9,208​
5​
181​
6,127​
6​
158​
5,349​
7​
142​
4,807​
8​
126​
4,265​
9​
125​
4,232​




Ruota : Firenze
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2990
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
160​
NonCompresoNelTotRit​
1​
972​
32,508​
2​
577​
19,298​
3​
400​
13,378​
4​
279​
9,331​
5​
212​
7,09​
6​
170​
5,686​
7​
149​
4,983​
8​
124​
4,147​
9​
107​
3,579​




Ruota : Genova
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2959
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
191​
NonCompresoNelTotRit​
1​
948​
32,038​
2​
597​
20,176​
3​
378​
12,775​
4​
280​
9,463​
5​
219​
7,401​
6​
156​
5,272​
7​
137​
4,63​
8​
128​
4,326​
9​
116​
3,92​




Ruota : Milano
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2968
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
182​
NonCompresoNelTotRit​
1​
915​
30,829​
2​
617​
20,788​
3​
345​
11,624​
4​
287​
9,67​
5​
217​
7,311​
6​
186​
6,267​
7​
134​
4,515​
8​
128​
4,313​
9​
139​
4,683​




Ruota : Napoli
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2958
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
192​
NonCompresoNelTotRit​
1​
921​
31,136​
2​
591​
19,98​
3​
392​
13,252​
4​
267​
9,026​
5​
204​
6,897​
6
165​
5,578
7​
138​
4,665​
8
165​
5,578
9​
115​
3,888​




Ruota : Palermo
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2954
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
196​
NonCompresoNelTotRit​
1​
959​
32,464​
2​
584​
19,77​
3​
349​
11,814​
4​
282​
9,546​
5​
215​
7,278​
6​
159​
5,383​
7​
147​
4,976​
8​
130​
4,401​
9​
129​
4,367​




Ruota : Roma
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2979
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
171​
NonCompresoNelTotRit​
1​
972​
32,628​
2​
583​
19,57​
3​
400​
13,427​
4​
262​
8,795​
5​
215​
7,217​
6​
163​
5,472​
7​
149​
5,002​
8​
124​
4,162​
9​
111​
3,726​




Ruota : Torino
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2975
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
175​
NonCompresoNelTotRit​
1​
940​
31,597​
2​
572​
19,227​
3​
422​
14,185​
4​
280​
9,412​
5​
198​
6,655​
6​
157​
5,277​
7​
127​
4,269​
8​
146​
4,908​
9​
133​
4,471​




Ruota : Venezia
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2967
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
183​
NonCompresoNelTotRit​
1​
948​
31,951​
2​
614​
20,694​
3​
398​
13,414​
4​
237​
7,988​
5​
215​
7,246​
6​
133​
4,483​
7​
150​
5,056​
8​
135​
4,55​
9​
137​
4,617​




Ruota : Nazionale
Da : [09221] [119] 04.10.2016
A : [09850] [122] 21.11.2020
ETot : 630
RTot : 2982
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
168​
NonCompresoNelTotRit​
1​
940​
31,522​
2​
613​
20,557​
3​
410​
13,749​
4​
272​
9,121​
5​
203​
6,808​
6​
172​
5,768​
7​
125​
4,192​
8​
135​
4,527​
9​
112​
3,756​


In realtà se guardiamo anche i valori dopo la virgola... anche 630 estrazioni non bastano ad isolare una potenziale ruota "teoricamente + disarmonica rispetto la Legge di Benford". A 1440 estrazioni però la situazione tende a stabilizzarsi con la ruota di VENEZIA...


Ruota : Bari
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6798
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
402​
NonCompresoNelTotRit​
1​
2198​
32,333​
2​
1402​
20,624​
3​
853​
12,548​
4​
604​
8,885​
5​
449​
6,605​
6​
398​
5,855​
7​
321​
4,722​
8​
307​
4,516​
9​
266​
3,913​




Ruota : Cagliari
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6805
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
395​
NonCompresoNelTotRit​
1​
2169​
31,874​
2​
1347​
19,794​
3​
908​
13,343​
4​
637​
9,361​
5​
461​
6,774​
6​
380​
5,584​
7​
322​
4,732​
8​
311​
4,57​
9​
270​
3,968​




Ruota : Firenze
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6831
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
369​
NonCompresoNelTotRit​
1​
2204​
32,265​
2​
1346​
19,704​
3​
915​
13,395​
4​
627​
9,179​
5​
464​
6,793​
6​
386​
5,651​
7​
343​
5,021​
8​
285​
4,172​
9​
261​
3,821​




Ruota : Genova
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6798
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
402​
NonCompresoNelTotRit​
1​
2143​
31,524​
2​
1378​
20,271​
3​
903​
13,283​
4​
608​
8,944​
5​
498​
7,326​
6​
353​
5,193​
7​
326​
4,796​
8​
308​
4,531​
9​
281​
4,134​




Ruota : Milano
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6786
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
414​
NonCompresoNelTotRit​
1​
2141​
31,55​
2​
1386​
20,424​
3​
870​
12,821​
4​
602​
8,871​
5​
490​
7,221​
6​
399​
5,88​
7​
336​
4,951​
8​
282​
4,156​
9​
280​
4,126​




Ruota : Napoli
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6800
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
400​
NonCompresoNelTotRit​
1​
2153​
31,662​
2​
1406​
20,676​
3​
878​
12,912​
4​
632​
9,294​
5​
488​
7,176​
6​
360​
5,294​
7​
327​
4,809​
8​
305​
4,485​
9​
251​
3,691​




Ruota : Palermo
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6767
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
433​
NonCompresoNelTotRit​
1​
2207​
32,614​
2​
1309​
19,344​
3​
838​
12,384​
4​
657​
9,709​
5​
469​
6,931​
6​
386​
5,704​
7​
338​
4,995​
8​
290​
4,286​
9​
273​
4,034​




Ruota : Roma
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6813
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
387​
NonCompresoNelTotRit​
1​
2251​
33,04​
2​
1354​
19,874​
3​
900​
13,21​
4​
624​
9,159​
5​
467​
6,855​
6​
369​
5,416​
7​
305​
4,477​
8​
280​
4,11​
9​
263​
3,86​




Ruota : Torino
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6798
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
402​
NonCompresoNelTotRit​
1​
2138​
31,45​
2​
1378​
20,271​
3​
945​
13,901​
4​
623​
9,164​
5​
437​
6,428​
6​
382​
5,619​
7​
304​
4,472​
8​
302​
4,442​
9​
289​
4,251​




Ruota : Venezia
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6771
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
429​
NonCompresoNelTotRit​
1​
2137​
31,561​
2​
1332​
19,672​
3​
932​
13,765​
4​
639​
9,437​
5​
489​
7,222​
6
337​
4,977
7
338​
4,992
8​
286​
4,224​
9​
281​
4,15​

Leggera e unica "sbavatura di cifra" valutando anche i valori dopo la virgola...


Ruota : Nazionale
Da : [08411] [ 92] 02.08.2011
A : [09850] [122] 21.11.2020
ETot : 1440
RTot : 6813
Classe: 1
Sorte : 1


Cifra​
Quantita​
Percentuale​
0​
387​
NonCompresoNelTotRit​
1​
2171​
31,866​
2​
1376​
20,197​
3​
940​
13,797​
4​
636​
9,335​
5​
464​
6,811​
6​
379​
5,563​
7​
305​
4,477​
8​
296​
4,345​
9​
246​
3,611​


Per concludere prima dei saluti propongo al grande Giggio o ai bravi scripter in grado di farlo di affiancare o mettere sotto ad ogni tabella di rilevamento il grafico corrispettivo.. in modo da poter avere, anche dal punto di vista visuale e immediato, eventuali picchi disarmonici durante le analisi eventualmente effettuate.

👋:)

Personalmente le risultanti di questo test forse non li giocherò sempre... e mi limiterò solo a cambiarli qui sotto x monitorarli insieme a voi di volta in volta in base a questa mia bislacca intuizione sui "Ritardi Benford applicati ad un range temporale tale da avere solo una ruota isolata potenziale... " derivante a sua volta dall'idea del grande Silop sull'analisi ritardi by sequenza Benford.

Vediamo se uscirà qualcosa o meno... e in quanti colpi... rispetto la relativa estrapolazione... Ovviamente in questo caso, essendo "legati" ai loro rispettivi RA, i numeri ipoteticamente in uscita... varieranno per ogni estrazione... a meno che la prima cifra del rispettivo ritardo xEinE sulla propria ruota target (in questo caso VE) non sia sempre la stessa...

x il 26/11/2020 avremmo x E/a/t:

VE 17.53.59


Curiosità extra: il 59 mi risulterebbe anche da quest'altra mia analisi posizionale... :unsure:

il 59 inoltre sarebbe l'unico dei tre che in caso di NON USCITA A COLPO potrebbe restare teoricamente "pappabile" entro 70-60= 10 colpi "Benford" proprio perchè secondo questa particolare ottica resterebbe comunque con un RA con la prima cifra 6 per altre 10 estrazioni... ☝️🥸

Continuerò questo particolare monitoraggio solo per max 10 estrazioni o, se avverrà prima, solo fino all'uscita del n.59 con la prima cifra 6 nei suoi attuale e prossimi 9 ritardi appunto.



Combinazioni di classe 1 analizzate per punti 1 sulle ruote VE
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [08412] [ 93] 04.08.2011 fino a [09851] [123] 24.11.2020
Estrazioni analizzate totali : 1440

formazione: 5 - FQ 77 - RA 70 - RS 79 - 9 - INCMAX 0 - contatore 1
formazione: 59 - FQ 78 - RA 60 - RS 70 - 10 - INCMAX 0 - contatore 2
formazione: 61 - FQ 78 - RA 53 - RS 60 - 7 - INCMAX 0 - contatore 3
formazione: 30 - FQ 82 - RA 49 - RS 91 - DIFF 42 - INCMAX 0 - contatore 4
formazione: 11 - FQ 78 - RA 48 - RS 124 - DIFF 76 - INCMAX 0 - contatore 5
formazione: 73 - FQ 70 - RA 47 - RS 94 - DIFF 47 - INCMAX 0 - contatore 6
formazione: 88 - FQ 82 - RA 44 - RS 82 - DIFF 38 - INCMAX 0 - contatore 7
formazione: 86 - FQ 82 - RA 44 - RS 79 - DIFF 35 - INCMAX 0 - contatore 8
formazione: 38 - FQ 78 - RA 41 - RS 74 - DIFF 33 - INCMAX 0 - contatore 9
formazione: 22 - FQ 97 - RA 41 - RS 123 - DIFF 82 - INCMAX 0 - contatore 10
formazione: 85 - FQ 71 - RA 40 - RS 69 - DIFF 29 - INCMAX 0 - contatore 11
formazione: 6 - FQ 77 - RA 40 - RS 104 - DIFF 64 - INCMAX 0 - contatore 12
formazione: 81 - FQ 84 - RA 39 - RS 89 - DIFF 50 - INCMAX 0 - contatore 13
formazione: 51 - FQ 84 - RA 39 - RS 67 - DIFF 28 - INCMAX 0 - contatore 14
formazione: 9 - FQ 68 - RA 37 - RS 128 - DIFF 91 - INCMAX 0 - contatore 15
formazione: 41 - FQ 88 - RA 35 - RS 89 - DIFF 54 - INCMAX 0 - contatore 16
formazione: 44 - FQ 83 - RA 34 - RS 63 - DIFF 29 - INCMAX 0 - contatore 17
formazione: 34 - FQ 96 - RA 30 - RS 96 - DIFF 66 - INCMAX 0 - contatore 18
formazione: 14 - FQ 67 - RA 30 - RS 106 - DIFF 76 - INCMAX 0 - contatore 19
formazione: 70 - FQ 77 - RA 29 - RS 87 - DIFF 58 - INCMAX 0 - contatore 20
formazione: 4 - FQ 74 - RA 29 - RS 62 - DIFF 33 - INCMAX 0 - contatore 21
formazione: 3 - FQ 75 - RA 29 - RS 94 - DIFF 65 - INCMAX 0 - contatore 22
formazione: 80 - FQ 81 - RA 26 - RS 84 - DIFF 58 - INCMAX 0 - contatore 23
formazione: 26 - FQ 93 - RA 25 - RS 77 - DIFF 52 - INCMAX 0 - contatore 24
formazione: 33 - FQ 75 - RA 24 - RS 88 - DIFF 64 - INCMAX 0 - contatore 25
formazione: 48 - FQ 80 - RA 23 - RS 110 - DIFF 87 - INCMAX 0 - contatore 26
formazione: 40 - FQ 93 - RA 23 - RS 78 - DIFF 55 - INCMAX 0 - contatore 27
formazione: 31 - FQ 85 - RA 23 - RS 73 - DIFF 50 - INCMAX 0 - contatore 28
formazione: 16 - FQ 74 - RA 21 - RS 74 - DIFF 53 - INCMAX 0 - contatore 29
formazione: 79 - FQ 85 - RA 20 - RS 76 - DIFF 56 - INCMAX 0 - contatore 30
formazione: 72 - FQ 71 - RA 20 - RS 118 - DIFF 98 - INCMAX 0 - contatore 31
formazione: 15 - FQ 67 - RA 20 - RS 81 - DIFF 61 - INCMAX 0 - contatore 32
formazione: 84 - FQ 89 - RA 19 - RS 102 - DIFF 83 - INCMAX 0 - contatore 33
formazione: 55 - FQ 92 - RA 19 - RS 64 - DIFF 45 - INCMAX 0 - contatore 34
formazione: 20 - FQ 82 - RA 19 - RS 105 - DIFF 86 - INCMAX 0 - contatore 35
formazione: 71 - FQ 68 - RA 18 - RS 104 - DIFF 86 - INCMAX 0 - contatore 36
formazione: 39 - FQ 76 - RA 17 - RS 82 - DIFF 65 - INCMAX 0 - contatore 37
formazione: 19 - FQ 66 - RA 17 - RS 75 - DIFF 58 - INCMAX 0 - contatore 38
formazione: 49 - FQ 71 - RA 16 - RS 123 - DIFF 107 - INCMAX 0 - contatore 39
formazione: 47 - FQ 69 - RA 16 - RS 100 - DIFF 84 - INCMAX 0 - contatore 40
formazione: 77 - FQ 75 - RA 15 - RS 91 - DIFF 76 - INCMAX 0 - contatore 41
formazione: 74 - FQ 82 - RA 15 - RS 79 - DIFF 64 - INCMAX 0 - contatore 42
formazione: 1 - FQ 74 - RA 15 - RS 98 - DIFF 83 - INCMAX 0 - contatore 43
formazione: 78 - FQ 93 - RA 14 - RS 106 - DIFF 92 - INCMAX 0 - contatore 44
formazione: 62 - FQ 70 - RA 13 - RS 80 - DIFF 67 - INCMAX 0 - contatore 45
formazione: 24 - FQ 80 - RA 13 - RS 86 - DIFF 73 - INCMAX 0 - contatore 46
formazione: 60 - FQ 69 - RA 12 - RS 142 - DIFF 130 - INCMAX 0 - contatore 47
formazione: 32 - FQ 99 - RA 12 - RS 69 - DIFF 57 - INCMAX 0 - contatore 48
formazione: 76 - FQ 81 - RA 11 - RS 104 - DIFF 93 - INCMAX 0 - contatore 49
formazione: 56 - FQ 93 - RA 11 - RS 100 - DIFF 89 - INCMAX 0 - contatore 50
formazione: 27 - FQ 92 - RA 10 - RS 55 - DIFF 45 - INCMAX 0 - contatore 51
formazione: 23 - FQ 75 - RA 10 - RS 90 - DIFF 80 - INCMAX 0 - contatore 52
formazione: 8 - FQ 75 - RA 10 - RS 86 - DIFF 76 - INCMAX 0 - contatore 53
formazione: 35 - FQ 82 - RA 9 - RS 78 - DIFF 69 - INCMAX 0 - contatore 54
formazione: 29 - FQ 77 - RA 9 - RS 62 - DIFF 53 - INCMAX 0 - contatore 55
formazione: 10 - FQ 89 - RA 9 - RS 64 - DIFF 55 - INCMAX 0 - contatore 56
formazione: 68 - FQ 86 - RA 8 - RS 53 - DIFF 45 - INCMAX 0 - contatore 57
formazione: 28 - FQ 72 - RA 8 - RS 94 - DIFF 86 - INCMAX 0 - contatore 58
formazione: 89 - FQ 85 - RA 7 - RS 74 - DIFF 67 - INCMAX 0 - contatore 59
formazione: 83 - FQ 72 - RA 7 - RS 98 - DIFF 91 - INCMAX 0 - contatore 60
formazione: 54 - FQ 87 - RA 7 - RS 55 - DIFF 48 - INCMAX 0 - contatore 61
formazione: 12 - FQ 86 - RA 7 - RS 118 - DIFF 111 - INCMAX 0 - contatore 62
formazione: 53 - FQ 95 - RA 6 - RS 75 - DIFF 69 - INCMAX 0 - contatore 63
formazione: 17 - FQ 71 - RA 6 - RS 78 - DIFF 72 - INCMAX 0 - contatore 64
formazione: 90 - FQ 81 - RA 5 - RS 101 - DIFF 96 - INCMAX 0 - contatore 65
formazione: 66 - FQ 84 - RA 5 - RS 71 - DIFF 66 - INCMAX 0 - contatore 66
formazione: 58 - FQ 74 - RA 5 - RS 71 - DIFF 66 - INCMAX 0 - contatore 67
formazione: 57 - FQ 75 - RA 5 - RS 114 - DIFF 109 - INCMAX 0 - contatore 68
formazione: 36 - FQ 64 - RA 5 - RS 67 - DIFF 62 - INCMAX 0 - contatore 69
formazione: 87 - FQ 88 - RA 4 - RS 139 - DIFF 135 - INCMAX 0 - contatore 70
formazione: 63 - FQ 80 - RA 4 - RS 81 - DIFF 77 - INCMAX 0 - contatore 71
formazione: 46 - FQ 86 - RA 4 - RS 65 - DIFF 61 - INCMAX 0 - contatore 72
formazione: 21 - FQ 80 - RA 4 - RS 67 - DIFF 63 - INCMAX 0 - contatore 73
formazione: 65 - FQ 87 - RA 3 - RS 78 - DIFF 75 - INCMAX 0 - contatore 74
formazione: 50 - FQ 78 - RA 3 - RS 66 - DIFF 63 - INCMAX 0 - contatore 75
formazione: 7 - FQ 74 - RA 3 - RS 68 - DIFF 65 - INCMAX 0 - contatore 76
formazione: 69 - FQ 75 - RA 2 - RS 69 - DIFF 67 - INCMAX 0 - contatore 77
formazione: 43 - FQ 94 - RA 2 - RS 56 - DIFF 54 - INCMAX 0 - contatore 78
formazione: 37 - FQ 79 - RA 2 - RS 104 - DIFF 102 - INCMAX 0 - contatore 79
formazione: 25 - FQ 78 - RA 2 - RS 75 - DIFF 73 - INCMAX 0 - contatore 80
formazione: 67 - FQ 85 - RA 1 - RS 76 - DIFF 75 - INCMAX 0 - contatore 81
formazione: 64 - FQ 67 - RA 1 - RS 87 - DIFF 86 - INCMAX 0 - contatore 82
formazione: 52 - FQ 73 - RA 1 - RS 98 - DIFF 97 - INCMAX 0 - contatore 83
formazione: 42 - FQ 97 - RA 1 - RS 80 - DIFF 79 - INCMAX 0 - contatore 84
formazione: 2 - FQ 73 - RA 1 - RS 107 - DIFF 106 - INCMAX 0 - contatore 85
formazione: 82 - FQ 88 - RA 0 - RS 81 - DIFF 81 - INCMAX 0 - contatore 86
formazione: 75 - FQ 67 - RA 0 - RS 121 - DIFF 121 - INCMAX 0 - contatore 87
formazione: 45 - FQ 85 - RA 0 - RS 72 - DIFF 72 - INCMAX 0 - contatore 88
formazione: 18 - FQ 90 - RA 0 - RS 147 - DIFF 147 - INCMAX 0 - contatore 89
formazione: 13 - FQ 75 - RA 0 - RS 94 - DIFF 94 - INCMAX 0 - contatore 90

Tempo trascorso: 00:00:15




Un saluto a tutti gli intervenuti 👋🙂

nop: analizzando1440 estrazioni con scelta dei numeri secondo cifre dei rispettivi ra "Benford" sbavate e in leggera presenza inferiore rispetto a quella ipotizzata dalla relativa iperbole by analisi ExEsuVEby90


x il 28/11/2020 : 2° di 10 tentativi a colpo... con capogioco fisso 59

VE 59 + 90.58.36

xchè:
formazione: 59 - FQ 536 - RA 61 - RS 101 - DIFF 40 - INCMAX 0 - contatore 2
formazione: 90 - FQ 536 - RA 6 - RS 103 - DIFF 97 - INCMAX 0 - contatore 63
formazione: 58 - FQ 555 - RA 6 - RS 92 - DIFF 86 - INCMAX 0 - contatore 64
formazione: 36 - FQ 516 - RA 6 - RS 108 - DIFF 102 - INCMAX 0 - contatore 65


Nessuna Certezza Solo Poca Probabilità
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Giggio ,
======================
se possibile e se hai tempo, potresti implementare alcune colonne
vicino al prospetto per estratto della legge di Benford ?
======================
Di seguito te le elenco le 4 colonne :
La prima lo "Scarto" i cui valori in rosso indicano le percentuali in eccesso in nero in difetto rispetto alla BASE
La seconda "ESTRATTI" sono gli estratti sortiti alla data di elaborazione
La terza "Rit.Prec." indica i ritardi che gli estratti sortiti avevano all'estrazione precedente
e scritti nelle rispettive righe delle cifre corrispondenti.
Esempio : sia l'estratto n. 82 che il ritardo precedente 1 si scriveranno in corrispondenza alla riga della cifra 1
Esempio : sia l'estratto n. 61 che il ritardo precedente 52 si scriveranno in corrispondenza alla riga della cifra 5
Esempio : sia l'estratto n. 7 che il ritardo precedente 35 si scriveranno in corrispondenza alla riga della cifra 3
ecc… ecc…
ecc… ecc…
La quarta "Formula dei 5 rit." indica la quantità dei rit.prec. che si trovano sulla riga
======================
Ecco le immagini relative ad alcune estrazioni della ruota Nazionale :
=====================
=====================
=====================
=====================
=====================
Queste colonne potranno essere utili per ulteriori approfondimento di studio dell'estratto sulla legge di Benford.
======================
Buon pomeriggio a tutto il forum.
======================
A presto
Silop ;) ;) ;)
PS : x filotto
solo per curiosità ma chi è Salvo ????
Non so come mi è uscito Salvo (?) intendevo Silop!!!!!
 

lotto_tom75

Premium Member
Personalmente le risultanti di questo test forse non li giocherò sempre... e mi limiterò solo a cambiarli qui sotto x monitorarli insieme a voi di volta in volta in base a questa mia bislacca intuizione sui "Ritardi Benford applicati ad un range temporale tale da avere solo una ruota isolata potenziale... " derivante a sua volta dall'idea del grande Silop sull'analisi ritardi by sequenza Benford.

Vediamo se uscirà qualcosa o meno... e in quanti colpi... rispetto la relativa estrapolazione... Ovviamente in questo caso, essendo "legati" ai loro rispettivi RA, i numeri ipoteticamente in uscita... varieranno per ogni estrazione... a meno che la prima cifra del rispettivo ritardo xEinE sulla propria ruota target (in questo caso VE) non sia sempre la stessa...

x il 26/11/2020 avremmo x E/a/t:

VE 17.53.59


Curiosità extra: il 59 mi risulterebbe anche da quest'altra mia analisi posizionale... :unsure:

il 59 inoltre sarebbe l'unico dei tre che in caso di NON USCITA A COLPO potrebbe restare teoricamente "pappabile" entro 70-60= 10 colpi "Benford" proprio perchè secondo questa particolare ottica resterebbe comunque con un RA con la prima cifra 6 per altre 10 estrazioni... ☝️🥸

Continuerò questo particolare monitoraggio solo per max 10 estrazioni o, se avverrà prima, solo fino all'uscita del n.59 con la prima cifra 6 nei suoi attuale e prossimi 9 ritardi appunto.



Combinazioni di classe 1 analizzate per punti 1 sulle ruote VE
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [08412] [ 93] 04.08.2011 fino a [09851] [123] 24.11.2020
Estrazioni analizzate totali : 1440

formazione: 5 - FQ 77 - RA 70 - RS 79 - 9 - INCMAX 0 - contatore 1
formazione: 59 - FQ 78 - RA 60 - RS 70 - 10 - INCMAX 0 - contatore 2
formazione: 61 - FQ 78 - RA 53 - RS 60 - 7 - INCMAX 0 - contatore 3
formazione: 30 - FQ 82 - RA 49 - RS 91 - DIFF 42 - INCMAX 0 - contatore 4
formazione: 11 - FQ 78 - RA 48 - RS 124 - DIFF 76 - INCMAX 0 - contatore 5
formazione: 73 - FQ 70 - RA 47 - RS 94 - DIFF 47 - INCMAX 0 - contatore 6
formazione: 88 - FQ 82 - RA 44 - RS 82 - DIFF 38 - INCMAX 0 - contatore 7
formazione: 86 - FQ 82 - RA 44 - RS 79 - DIFF 35 - INCMAX 0 - contatore 8
formazione: 38 - FQ 78 - RA 41 - RS 74 - DIFF 33 - INCMAX 0 - contatore 9
formazione: 22 - FQ 97 - RA 41 - RS 123 - DIFF 82 - INCMAX 0 - contatore 10
formazione: 85 - FQ 71 - RA 40 - RS 69 - DIFF 29 - INCMAX 0 - contatore 11
formazione: 6 - FQ 77 - RA 40 - RS 104 - DIFF 64 - INCMAX 0 - contatore 12
formazione: 81 - FQ 84 - RA 39 - RS 89 - DIFF 50 - INCMAX 0 - contatore 13
formazione: 51 - FQ 84 - RA 39 - RS 67 - DIFF 28 - INCMAX 0 - contatore 14
formazione: 9 - FQ 68 - RA 37 - RS 128 - DIFF 91 - INCMAX 0 - contatore 15
formazione: 41 - FQ 88 - RA 35 - RS 89 - DIFF 54 - INCMAX 0 - contatore 16
formazione: 44 - FQ 83 - RA 34 - RS 63 - DIFF 29 - INCMAX 0 - contatore 17
formazione: 34 - FQ 96 - RA 30 - RS 96 - DIFF 66 - INCMAX 0 - contatore 18
formazione: 14 - FQ 67 - RA 30 - RS 106 - DIFF 76 - INCMAX 0 - contatore 19
formazione: 70 - FQ 77 - RA 29 - RS 87 - DIFF 58 - INCMAX 0 - contatore 20
formazione: 4 - FQ 74 - RA 29 - RS 62 - DIFF 33 - INCMAX 0 - contatore 21
formazione: 3 - FQ 75 - RA 29 - RS 94 - DIFF 65 - INCMAX 0 - contatore 22
formazione: 80 - FQ 81 - RA 26 - RS 84 - DIFF 58 - INCMAX 0 - contatore 23
formazione: 26 - FQ 93 - RA 25 - RS 77 - DIFF 52 - INCMAX 0 - contatore 24
formazione: 33 - FQ 75 - RA 24 - RS 88 - DIFF 64 - INCMAX 0 - contatore 25
formazione: 48 - FQ 80 - RA 23 - RS 110 - DIFF 87 - INCMAX 0 - contatore 26
formazione: 40 - FQ 93 - RA 23 - RS 78 - DIFF 55 - INCMAX 0 - contatore 27
formazione: 31 - FQ 85 - RA 23 - RS 73 - DIFF 50 - INCMAX 0 - contatore 28
formazione: 16 - FQ 74 - RA 21 - RS 74 - DIFF 53 - INCMAX 0 - contatore 29
formazione: 79 - FQ 85 - RA 20 - RS 76 - DIFF 56 - INCMAX 0 - contatore 30
formazione: 72 - FQ 71 - RA 20 - RS 118 - DIFF 98 - INCMAX 0 - contatore 31
formazione: 15 - FQ 67 - RA 20 - RS 81 - DIFF 61 - INCMAX 0 - contatore 32
formazione: 84 - FQ 89 - RA 19 - RS 102 - DIFF 83 - INCMAX 0 - contatore 33
formazione: 55 - FQ 92 - RA 19 - RS 64 - DIFF 45 - INCMAX 0 - contatore 34
formazione: 20 - FQ 82 - RA 19 - RS 105 - DIFF 86 - INCMAX 0 - contatore 35
formazione: 71 - FQ 68 - RA 18 - RS 104 - DIFF 86 - INCMAX 0 - contatore 36
formazione: 39 - FQ 76 - RA 17 - RS 82 - DIFF 65 - INCMAX 0 - contatore 37
formazione: 19 - FQ 66 - RA 17 - RS 75 - DIFF 58 - INCMAX 0 - contatore 38
formazione: 49 - FQ 71 - RA 16 - RS 123 - DIFF 107 - INCMAX 0 - contatore 39
formazione: 47 - FQ 69 - RA 16 - RS 100 - DIFF 84 - INCMAX 0 - contatore 40
formazione: 77 - FQ 75 - RA 15 - RS 91 - DIFF 76 - INCMAX 0 - contatore 41
formazione: 74 - FQ 82 - RA 15 - RS 79 - DIFF 64 - INCMAX 0 - contatore 42
formazione: 1 - FQ 74 - RA 15 - RS 98 - DIFF 83 - INCMAX 0 - contatore 43
formazione: 78 - FQ 93 - RA 14 - RS 106 - DIFF 92 - INCMAX 0 - contatore 44
formazione: 62 - FQ 70 - RA 13 - RS 80 - DIFF 67 - INCMAX 0 - contatore 45
formazione: 24 - FQ 80 - RA 13 - RS 86 - DIFF 73 - INCMAX 0 - contatore 46
formazione: 60 - FQ 69 - RA 12 - RS 142 - DIFF 130 - INCMAX 0 - contatore 47
formazione: 32 - FQ 99 - RA 12 - RS 69 - DIFF 57 - INCMAX 0 - contatore 48
formazione: 76 - FQ 81 - RA 11 - RS 104 - DIFF 93 - INCMAX 0 - contatore 49
formazione: 56 - FQ 93 - RA 11 - RS 100 - DIFF 89 - INCMAX 0 - contatore 50
formazione: 27 - FQ 92 - RA 10 - RS 55 - DIFF 45 - INCMAX 0 - contatore 51
formazione: 23 - FQ 75 - RA 10 - RS 90 - DIFF 80 - INCMAX 0 - contatore 52
formazione: 8 - FQ 75 - RA 10 - RS 86 - DIFF 76 - INCMAX 0 - contatore 53
formazione: 35 - FQ 82 - RA 9 - RS 78 - DIFF 69 - INCMAX 0 - contatore 54
formazione: 29 - FQ 77 - RA 9 - RS 62 - DIFF 53 - INCMAX 0 - contatore 55
formazione: 10 - FQ 89 - RA 9 - RS 64 - DIFF 55 - INCMAX 0 - contatore 56
formazione: 68 - FQ 86 - RA 8 - RS 53 - DIFF 45 - INCMAX 0 - contatore 57
formazione: 28 - FQ 72 - RA 8 - RS 94 - DIFF 86 - INCMAX 0 - contatore 58
formazione: 89 - FQ 85 - RA 7 - RS 74 - DIFF 67 - INCMAX 0 - contatore 59
formazione: 83 - FQ 72 - RA 7 - RS 98 - DIFF 91 - INCMAX 0 - contatore 60
formazione: 54 - FQ 87 - RA 7 - RS 55 - DIFF 48 - INCMAX 0 - contatore 61
formazione: 12 - FQ 86 - RA 7 - RS 118 - DIFF 111 - INCMAX 0 - contatore 62
formazione: 53 - FQ 95 - RA 6 - RS 75 - DIFF 69 - INCMAX 0 - contatore 63
formazione: 17 - FQ 71 - RA 6 - RS 78 - DIFF 72 - INCMAX 0 - contatore 64
formazione: 90 - FQ 81 - RA 5 - RS 101 - DIFF 96 - INCMAX 0 - contatore 65
formazione: 66 - FQ 84 - RA 5 - RS 71 - DIFF 66 - INCMAX 0 - contatore 66
formazione: 58 - FQ 74 - RA 5 - RS 71 - DIFF 66 - INCMAX 0 - contatore 67
formazione: 57 - FQ 75 - RA 5 - RS 114 - DIFF 109 - INCMAX 0 - contatore 68
formazione: 36 - FQ 64 - RA 5 - RS 67 - DIFF 62 - INCMAX 0 - contatore 69
formazione: 87 - FQ 88 - RA 4 - RS 139 - DIFF 135 - INCMAX 0 - contatore 70
formazione: 63 - FQ 80 - RA 4 - RS 81 - DIFF 77 - INCMAX 0 - contatore 71
formazione: 46 - FQ 86 - RA 4 - RS 65 - DIFF 61 - INCMAX 0 - contatore 72
formazione: 21 - FQ 80 - RA 4 - RS 67 - DIFF 63 - INCMAX 0 - contatore 73
formazione: 65 - FQ 87 - RA 3 - RS 78 - DIFF 75 - INCMAX 0 - contatore 74
formazione: 50 - FQ 78 - RA 3 - RS 66 - DIFF 63 - INCMAX 0 - contatore 75
formazione: 7 - FQ 74 - RA 3 - RS 68 - DIFF 65 - INCMAX 0 - contatore 76
formazione: 69 - FQ 75 - RA 2 - RS 69 - DIFF 67 - INCMAX 0 - contatore 77
formazione: 43 - FQ 94 - RA 2 - RS 56 - DIFF 54 - INCMAX 0 - contatore 78
formazione: 37 - FQ 79 - RA 2 - RS 104 - DIFF 102 - INCMAX 0 - contatore 79
formazione: 25 - FQ 78 - RA 2 - RS 75 - DIFF 73 - INCMAX 0 - contatore 80
formazione: 67 - FQ 85 - RA 1 - RS 76 - DIFF 75 - INCMAX 0 - contatore 81
formazione: 64 - FQ 67 - RA 1 - RS 87 - DIFF 86 - INCMAX 0 - contatore 82
formazione: 52 - FQ 73 - RA 1 - RS 98 - DIFF 97 - INCMAX 0 - contatore 83
formazione: 42 - FQ 97 - RA 1 - RS 80 - DIFF 79 - INCMAX 0 - contatore 84
formazione: 2 - FQ 73 - RA 1 - RS 107 - DIFF 106 - INCMAX 0 - contatore 85
formazione: 82 - FQ 88 - RA 0 - RS 81 - DIFF 81 - INCMAX 0 - contatore 86
formazione: 75 - FQ 67 - RA 0 - RS 121 - DIFF 121 - INCMAX 0 - contatore 87
formazione: 45 - FQ 85 - RA 0 - RS 72 - DIFF 72 - INCMAX 0 - contatore 88
formazione: 18 - FQ 90 - RA 0 - RS 147 - DIFF 147 - INCMAX 0 - contatore 89
formazione: 13 - FQ 75 - RA 0 - RS 94 - DIFF 94 - INCMAX 0 - contatore 90

Tempo trascorso: 00:00:15




Un saluto a tutti gli intervenuti 👋🙂

nop: analizzando1440 estrazioni con scelta dei numeri secondo cifre dei rispettivi ra "Benford" sbavate e in leggera presenza inferiore rispetto a quella ipotizzata dalla relativa iperbole by analisi ExEsuVEby90


x il 28/11/2020 : 2° di 10 tentativi a colpo... con capogioco fisso 59

VE 59 + 90.58.36

xchè:
formazione: 59 - FQ 536 - RA 61 - RS 101 - DIFF 40 - INCMAX 0 - contatore 2
formazione: 90 - FQ 536 - RA 6 - RS 103 - DIFF 97 - INCMAX 0 - contatore 63
formazione: 58 - FQ 555 - RA 6 - RS 92 - DIFF 86 - INCMAX 0 - contatore 64
formazione: 36 - FQ 516 - RA 6 - RS 108 - DIFF 102 - INCMAX 0 - contatore 65


Nessuna Certezza Solo Poca Probabilità

Incredibile ma vero o_O questa sera usciti a colpo 2 dei 4 elementi con RA 6 (il 36 e il 90) evidenziati dalla mia analisi soprastante di tipo "Benford" su 1440 estrazioni di range temporale 🎯😁 . Peccato solo che il 53 che avevo aggiunto e che derivava dalla precedente analisi analoga si sia rigirato... altrimenti sarebbe stato un bel ternuzzo in 5ina a colpo 🤤

36-90-a-colpo-in5ina-su-VE.jpg
 

lotto_tom75

Premium Member
lotto tom questa è la situazione alla vigilia del 26/11/20 si vede chiaramente che lo scostamento maggiore è sulla cifra 6 quindi l'idea è buona !!!Vedi l'allegato 2207979

L'ideale a questo punto, come ho proposto sopra, sarebbe poter avere il grafico per ogni rilevamento per ogni ruota direttamente in automatico tramite lo stesso script in modo da avere, come nel caso da te sopra evidenziato benissimo, la visuale del suo andamento in rapporto alla linea "Benford" valutando per adesso appunto solo le ultime 1440 estrazioni che sembrano, almeno per ora, bastare ad isolare una sola potenziale ruota di attacco secondo questa nuova originalissima prospettiva.
 

Giggio

Super Member >PLATINUM<
ho fatto delle modifiche ...


Codice:
Option Explicit
Sub Main
   
   Dim r
   Dim aQPerCifra,aPercPerCifra,nQrit
   Dim nClasse,nSorte
   
   nClasse = ScegliEsito 
   nSorte = ScegliEsito
   
   If nSorte <= nClasse Then
   
 
      For r = 1 To 12
         If r = 11 Then r = 12
         Call Messaggio("Ruota " & NomeRuota(r))
         Call GetDatiRitardi(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
         Call OutputDati(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
      Next
      
   Else
      MsgBox "Sorte non coerente per la classe di sviluppo"
   End If
End Sub
Sub AlimentaValoriDiRiferimento (aValoriRif)

   ReDim aValoriRif (9)
   
   aValoriRif(1) = 30.10
   aValoriRif(2) = 17.61
   aValoriRif(3) = 12.49
   aValoriRif(4) = 9.69
   aValoriRif(5) = 7.92
   aValoriRif(6) = 6.70
   aValoriRif(7) = 5.80
   aValoriRif(8) = 5.11
   aValoriRif(9) = 4.58
    
   
End Sub 


Function GetDatiRitardi(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)


   Dim aRetRitardi,aRetIdEstr,k,n,t,c,nColTot,nFatte
   ReDim aN(0)
   ReDim aRt(1)
   
   ReDim aQPerCifra(9)
   ReDim aPercPerCifra(9)
   Dim aNumDaSvil
   
   aNumDaSvil = GetANumeri()
     
   aRt(1) = Rt
   
   nColTot = InitSviluppoIntegrale(aNumDaSvil,nClasse)
   Do While GetCombSviluppo(aN)
      Call ElencoRitardiTurbo(aN,aRt,nSorte,Inizio,Fine,aRetRitardi,aRetIdEstr)
      For k = 1 To UBound(aRetRitardi) - 1
         If aRetRitardi(k) > 0 Then
            c = Int(Left(CStr(aRetRitardi(k)),1))
            aQPerCifra(c) = aQPerCifra(c) + 1
            t = t + 1
         Else
            c = 0
            aQPerCifra(c) = aQPerCifra(c) + 1

         End If
         
      Next
      nFatte = nFatte + 1
      Call AvanzamentoElab(1,nColTot,nFatte)
      If ScriptInterrotto Then Exit Do
      
   Loop
   
   
   For c = 1 To 9
      aPercPerCifra(c) = aQPerCifra(c) / t
   Next
   nQRit = t
   
End Function
Sub AlimentaEsrattiPerCifraDiRitardo (aRetEstratti  ,Rt , IdEstr)
   Dim k , c  , n , nRit 
   ReDim aRetEstratti (9 ,2)
    
   
   If IdEstr > 1 Then  
      If  Estratto ( IdEstr  ,  Rt, 1)   > 0 Then 

         For k  =1 To 5
         
            n = Estratto ( IdEstr ,  Rt,k)
           
             
            nRit = RitardoEstrattoTurbo( n , IdEstr-1,Rt)
            c = Int( Left (CStr(nRit) ,1))
            aRetEstratti (c,0) =aRetEstratti (c,0) & Format2(n) & "."
            aRetEstratti (c,1) =aRetEstratti (c,1) & nRit & "."
            aRetEstratti (c,2) = aRetEstratti (c,2) +1  
         Next             
         For k = 1 To 9 
            aRetEstratti (k,0)  =RimuoviLastChr ( aRetEstratti (k,0) , ".")
            aRetEstratti (k,1)  =RimuoviLastChr ( aRetEstratti (k,1) , ".")
            
         Next
        
      End If 
      
   End If 
    

End Sub 
Sub AlimentaNumeriAlRitardoPerCifra (aRetNumeri  ,Rt , IdEstr)

    Dim k , c  , n , nRit 
    ReDim aRetNumeri  (9 ,2)
  
    If IdEstr > 0 Then  
       For n  =1 To 90
         
             
           
             
            nRit = RitardoEstrattoTurbo( n , IdEstr ,Rt)
            c = Int( Left (CStr(nRit) ,1))
            aRetNumeri  (c,0) =aRetNumeri  (c,0) & Format2(n) & "."
            aRetNumeri  (c,1) =aRetNumeri  (c,1) & nRit & "."
            aRetNumeri  (c,2) = aRetNumeri  (c,2) +1  
       Next             
    End If 
     
    For k = 0  To 9 
            aRetNumeri  (k,0)  =RimuoviLastChr ( aRetNumeri  (k,0) , ".")
            aRetNumeri  (k,1)  =RimuoviLastChr ( aRetNumeri  (k,1) , ".")
            
    Next
  


End Sub 

Sub OutputDati(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)
   
   Dim k
   Dim aValoriRif 
   Dim aEstrattiPerCifra   ,aEstrattiAllaCifra  
   
   Call AlimentaValoriDiRiferimento (aValoriRif)
   Call AlimentaEsrattiPerCifraDiRitardo (aEstrattiPerCifra   , Rt , Fine  )
   Call AlimentaNumeriAlRitardoPerCifra  ( aEstrattiAllaCifra  , Rt , Fine-1)
   

   Scrivi "Ruota : " & NomeRuota(Rt)
   Scrivi "Da    : " & GetInfoEstrazione(Inizio)
   Scrivi "A     : " & GetInfoEstrazione(Fine)
   Scrivi "ETot  : " &(Fine - Inizio) + 1
   Scrivi "RTot  : " & nQRit
   Scrivi "Classe: " & nClasse
   Scrivi "Sorte : " & nSorte
   Scrivi
    
   
   Dim aD
   aD = Array("","Cifra","Quantita","Percentuale" , "Scarto" , "Estratti" , "RitPrec" , "Formula del 5 rit", "EPrec Num con Rit alla Cifra" , "EPrec Rit", "EPrec Quantita" )
   Dim aClr 
   aClr = Array ( 0,0,0,0,0,0,0,0,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192))

   Call InitTabella(aD,vbBlue,,,vbWhite)
   
   For k = 0 To 9
      aD(1) = k
      aD(2) = aQPerCifra(k)
      If k > 0 Then
         aD(3) = Round(aPercPerCifra(k),5) * 100
         aD(4) = Round (aValoriRif(k) - aD(3),5) 
        


         If aD(4) > 0 Then 
            aClr(4)  =0 
         Else
            aClr(4) =  vbRed 
         End If 
         
      
      Else
         aD(3) = "NonCompresoNelTotRit"
         aD(4) = "-"
        
                
      End If
      
       aD(5) = aEstrattiPerCifra   (k,0)
         aD(6) = aEstrattiPerCifra   (k,1)
         aD(7) = aEstrattiPerCifra   (k,2)
          
         aD(8) = aEstrattiAllaCifra  (k,0)
         aD(9) = aEstrattiAllaCifra  (k,1)
         aD(10) = aEstrattiAllaCifra  (k,2)

      
      Call AddRigaTabella(aD ,,,,aClr )
      
   Next

   Call CreaTabella
   
   Scrivi ""
   
   
End Sub
 
Ultima modifica:

Giggio

Super Member >PLATINUM<
Codice:
Option Explicit
Class clsQuantita
    Private mValue 
    Private mQuantita 
    
    Public Property Let Value(v)
       mValue = v 
    End Property 
    Public Property Get Value 
       Value = mValue 
    End Property 
    
    Public Property Let Quantita(v)
       mQuantita = v 
    End Property 
    Public Property Get Quantita
       Quantita = mQuantita
    End Property 
    
    Sub IncrementaQuantita
       mQuantita = mQuantita  +1 
    End Sub 
   
End Class
Sub Main
   
   Dim r
   Dim aQPerCifra,aPercPerCifra,nQrit
   Dim nClasse,nSorte
   
   nClasse = ScegliEsito 
   nSorte = ScegliEsito
   
   If nSorte <= nClasse Then
   
 
      For r = 1 To 12
         If r = 11 Then r = 12
         Call Messaggio("Ruota " & NomeRuota(r))
         Call GetDatiRitardi(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
         Call OutputDati(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
      Next
      
   Else
      MsgBox "Sorte non coerente per la classe di sviluppo"
   End If
End Sub
Sub AlimentaValoriDiRiferimento (aValoriRif)

   ReDim aValoriRif (9)
   
   aValoriRif(1) = 30.10
   aValoriRif(2) = 17.61
   aValoriRif(3) = 12.49
   aValoriRif(4) = 9.69
   aValoriRif(5) = 7.92
   aValoriRif(6) = 6.70
   aValoriRif(7) = 5.80
   aValoriRif(8) = 5.11
   aValoriRif(9) = 4.58
    
   
End Sub 


Function GetDatiRitardi(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)


   Dim aRetRitardi,aRetIdEstr,k,n,t,c,nColTot,nFatte
   ReDim aN(0)
   ReDim aRt(1)
   
   ReDim aQPerCifra(9)
   ReDim aPercPerCifra(9)
   Dim aNumDaSvil
   
   aNumDaSvil = GetANumeri()
     
   aRt(1) = Rt
   
   nColTot = InitSviluppoIntegrale(aNumDaSvil,nClasse)
   Do While GetCombSviluppo(aN)
      Call ElencoRitardiTurbo(aN,aRt,nSorte,Inizio,Fine,aRetRitardi,aRetIdEstr)
      For k = 1 To UBound(aRetRitardi) - 1
         If aRetRitardi(k) > 0 Then
            c = Int(Left(CStr(aRetRitardi(k)),1))
            aQPerCifra(c) = aQPerCifra(c) + 1
            t = t + 1
         Else
            c = 0
            aQPerCifra(c) = aQPerCifra(c) + 1

         End If
         
      Next
      nFatte = nFatte + 1
      Call AvanzamentoElab(1,nColTot,nFatte)
      If ScriptInterrotto Then Exit Do
      
   Loop
   
   
   For c = 1 To 9
      aPercPerCifra(c) = aQPerCifra(c) / t
   Next
   nQRit = t
   
End Function
Sub AlimentaEsrattiPerCifraDiRitardo (aRetEstratti  ,Rt , IdEstr)
   Dim k , c  , n , nRit 
   ReDim aRetEstratti (9 ,2)
    
   
   If IdEstr > 1 Then  
      If  Estratto ( IdEstr  ,  Rt, 1)   > 0 Then 

         For k  =1 To 5
         
            n = Estratto ( IdEstr ,  Rt,k)
           
             
            nRit = RitardoEstrattoTurbo( n , IdEstr-1,Rt)
            c = Int( Left (CStr(nRit) ,1))
            aRetEstratti (c,0) =aRetEstratti (c,0) & Format2(n) & "."
            aRetEstratti (c,1) =aRetEstratti (c,1) & nRit & "."
            aRetEstratti (c,2) = aRetEstratti (c,2) +1  
         Next             
         For k = 1 To 9 
            aRetEstratti (k,0)  =RimuoviLastChr ( aRetEstratti (k,0) , ".")
            aRetEstratti (k,1)  =RimuoviLastChr ( aRetEstratti (k,1) , ".")
            
         Next
        
      End If 
      
   End If 
    

End Sub 
Sub AlimentaNumeriAlRitardoPerCifra (aRetNumeri  ,Rt , IdEstr)

    Dim k , c  , n , nRit 
    ReDim aRetNumeri  (9 ,2)
  
    If IdEstr > 0 Then  
       For n  =1 To 90
         
             
           
             
            nRit = RitardoEstrattoTurbo( n , IdEstr ,Rt)
            c = Int( Left (CStr(nRit) ,1))
            aRetNumeri  (c,0) =aRetNumeri  (c,0) & Format2(n) & "."
            aRetNumeri  (c,1) =aRetNumeri  (c,1) & nRit & "."
            aRetNumeri  (c,2) = aRetNumeri  (c,2) +1  
       Next             
    End If 
     
    For k = 0  To 9 
            aRetNumeri  (k,0)  =RimuoviLastChr ( aRetNumeri  (k,0) , ".")
            aRetNumeri  (k,1)  =RimuoviLastChr ( aRetNumeri  (k,1) , ".")
            
    Next
  


End Sub 
Function RaggruppaPerQuantita (sSerie )
   Dim coll , k , aV , sKey  , sRet , cQ 
   
   Set coll = GetNewCollection 
  
   
   aV= Split(sSerie , ".")
   For k =0 To UBound(aV)
      sKey="k" & aV(k)
      If GetItemCollection ( coll , sKey , cQ ) Then
         cQ.IncrementaQuantita 
      Else
         Set cQ = New clsQuantita
         cQ.IncrementaQuantita 
         cQ.Value  = aV(k)
         
         Call AddItemColl ( coll , cQ , sKey )
      End If 
   
   Next
   
   Call OrdinaItemCollection ( coll , "Quantita" )
   sRet =  ""  
   For Each cQ In coll 
      sRet = sRet & cQ.Value  & "(" & cQ.Quantita   &")" & "."
   Next 
   
   RaggruppaPerQuantita   = RimuoviLastChr( sRet , "." )
End Function 

Sub OutputDati(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)
   
   Dim k
   Dim aValoriRif 
   Dim aEstrattiPerCifra   ,aEstrattiAllaCifra  
   
   Call AlimentaValoriDiRiferimento (aValoriRif)
   Call AlimentaEsrattiPerCifraDiRitardo (aEstrattiPerCifra   , Rt , Fine  )
   Call AlimentaNumeriAlRitardoPerCifra  ( aEstrattiAllaCifra  , Rt , Fine-1)
   

   Scrivi "Ruota : " & NomeRuota(Rt)
   Scrivi "Da    : " & GetInfoEstrazione(Inizio)
   Scrivi "A     : " & GetInfoEstrazione(Fine)
   Scrivi "ETot  : " &(Fine - Inizio) + 1
   Scrivi "RTot  : " & nQRit
   Scrivi "Classe: " & nClasse
   Scrivi "Sorte : " & nSorte
   Scrivi
    
   
   Dim aD
   aD = Array("","Cifra","Quantita","Percentuale" , "Scarto" , "Estratti" , "RitPrec" , "Formula del 5 rit", "EPrec Num con Rit alla Cifra" , "EPrec Rit", "EPrec Quantita", "QuantPerRit" )
   Dim aClr 
   aClr = Array ( 0,0,0,0,0,0,0,0,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192))

   Call InitTabella(aD,vbBlue,,,vbWhite)
   
   For k = 0 To 9
      aD(1) = k
      aD(2) = aQPerCifra(k)
      If k > 0 Then
         aD(3) = Round(aPercPerCifra(k),5) * 100
         aD(4) = Round (aValoriRif(k) - aD(3),5) 
        


         If aD(4) > 0 Then 
            aClr(4)  =0 
         Else
            aClr(4) =  vbRed 
         End If 
         
      
      Else
         aD(3) = "NonCompresoNelTotRit"
         aD(4) = "-"
        
                
      End If
      
      aD(5) = aEstrattiPerCifra   (k,0)
      aD(6) = aEstrattiPerCifra   (k,1)
      aD(7) = aEstrattiPerCifra   (k,2)
          
      aD(8) = aEstrattiAllaCifra  (k,0)
      aD(9) = aEstrattiAllaCifra  (k,1)
      aD(10) = aEstrattiAllaCifra  (k,2)
      aD(11) = RaggruppaPerQuantita( aEstrattiAllaCifra  (k,1))
 
      
      Call AddRigaTabella(aD ,,,,aClr )
      
   Next

   Call CreaTabella
   
   Scrivi ""
   
   
End Sub
 

lotto_tom75

Premium Member
Spettacolari anche le modifiche che hai apportato mirabile Giggio! :eek:👌👍
Ti sarebbe possibile, tempo e voglia permettendo..., aggiungerci anche il grafico della relativa iperbole "Benford" comparata a quella dell'andamento rilevato per le varie cifre e ruote come ho proposto al messaggio #29 postato qui poca sopra in risposta a fillotto? Ciao, grazie e buona domenica mito 💪🦸‍♂️ :)


Ho rieseguito lo script con le ultime modifiche apportate dal grande Giggio e sempre analizzando le ultime 1440 estrazioni e, salvo errori, secondo lo stesso tipo di analisi che aveva evidenziato VENEZIA adesso questa sembrerebbe essere tornata in sintonia con l'andamento Benford... mentre parrebbe subentrare come possibile candidata al prossimo sfaldamento di questo tipo particolarissimo MILANO...

Vediamo perchè:

VENEZIA

Ruota : Venezia

Da : [08414] [ 95] 09.08.2011

A : [09853] [125] 28.11.2020

ETot : 1440

RTot : 6771

Classe: 1

Sorte : 1

Cifra​
Quantita​
Percentuale​
Scarto​
Estratti​
RitPrec​
Formula del 5 rit​
EPrec Num con Rit alla Cifra​
EPrec Rit​
EPrec Quantita​
QuantPerRit​
0​
429​
NonCompresoNelTotRit​
-​
57.​
0.​
1​
34.52.57.66.88​
0.0.0.0.0​
5​
0(5)​
1​
2137​
31,561​
-1,461​
35​
10​
1​
01.08.10.13.18.19.23.24.27.29.32.35.39.45.47.49.56.60.62.71.74.75.76.77.78.82​
16.11.10.1.1.18.11.14.11.10.13.10.18.1.17.17.12.13.14.19.16.1.12.16.15.1​
26​
1(5).16(3).10(3).11(3).17(2).12(2).13(2).18(2).14(2).15(1).19(1)​
2​
1330​
19,643​
-2,033​
02.15.16.20.26.31.33.40.42.48.55.64.67.72.79.80.84​
2.21.22.20.26.24.25.24.2.24.20.2.2.21.21.27.20​
17​
2(4).20(3).24(3).21(3).27(1).25(1).22(1).26(1)​
3​
933​
13,779​
-1,289​
03.04.09.14.25.37.41.43.44.69.70​
30.30.38.31.3.3.36.3.35.3.30​
11​
3(4).30(3).35(1).36(1).38(1).31(1)​
4​
642​
9,482​
0,208​
06.07.11.22.38.50.51.65.73.81.85.86​
41.4.49.42.42.4.40.4.48.40.41.45​
12​
4(3).42(2).40(2).41(2).45(1).48(1).49(1)​
5​
490​
7,237​
0,683​
21.30.46.61.63.87​
5.50.5.54.5.5​
6​
5(4).54(1).50(1)​
6​
337​
4,977​
1,723​
36.90​
6.6​
2​
36.58.59.90​
6.6.61.6​
4​
6(3).61(1)​
7​
336​
4,962​
0,838​
05.17.53​
71.7.7​
3​
7(2).71(1)​
8​
285​
4,209​
0,901​
12.54.83.89​
8.8.8.8​
4​
8(4)​
9​
281​
4,15​
0,43​
28​
9​
1​
28.68​
9.9​
2​
9(2)​



Adesso sembra non avere + nessuna "SBAVATURA DI CIFRA" per questo range temporale analizzato...

Mentre MILANO (unica ruota per il momento a presentare una situazione di questo tipo) presenta un lievissimo scompenso teorico dalla linea BENFORD per la cifra 8 relativa ai ritardi per estratto esaminati by 90. Ovvero la cifra 8 ha lo stesso valore percentuale della cifra 9 che invece dovrebbe essere, secondo Benford..., leggermente minore...

Ruota : Milano

Da : [08414] [ 95] 09.08.2011

A : [09853] [125] 28.11.2020

ETot : 1440

RTot : 6786

Classe: 1

Sorte : 1

Cifra​
Quantita​
Percentuale​
Scarto​
Estratti​
RitPrec​
Formula del 5 rit​
EPrec Num con Rit alla Cifra​
EPrec Rit​
EPrec Quantita​
QuantPerRit​
0​
414​
NonCompresoNelTotRit​
-​
04.31.43.44.77​
0.0.0.0.0​
5​
0(5)​
1​
2147​
31,639​
-1,539​
86.14​
15.16​
2​
07.09.13.14.15.18.21.25.27.30.35.36.37.38.45.47.49.56.57.58.64.66.71.82.86.88​
18.11.12.16.10.19.1.14.12.13.19.14.10.13.1.15.12.1.14.1.11.15.10.11.15.13​
26​
1(4).10(3).14(3).13(3).15(3).11(3).12(3).19(2).18(1).16(1)​
2​
1381​
20,351​
-2,741​
02.10.17.22.41.46.48.50.59.60.65.68.69.80.89​
27.2.2.27.29.2.29.25.26.2.23.23.2.27.26​
15​
2(5).27(3).26(2).23(2).29(2).25(1)​
3​
871​
12,835​
-0,345​
23​
3​
1​
01.03.16.23.24.28.34.42.52.63.79.81​
33.38.37.3.3.3.36.36.38.37.3.37​
12​
3(4).37(3).36(2).38(2).33(1)​
4​
601​
8,856​
0,834​
08.11.19.32.40.51.70.74.75.83​
49.40.48.47.4.41.48.4.4.40​
10​
4(3).48(2).40(2).41(1).49(1).47(1)​
5​
487​
7,177​
0,743​
62​
54​
1​
05.12.29.62.76​
5.5.5.54.54​
5​
5(3).54(2)​
6​
397​
5,85​
0,85​
54​
61​
1​
20.53.54.72.78.84​
64.68.61.6.6.6​
6​
6(3).61(1).64(1).68(1)​
7​
336​
4,951​
0,849​
06.39.61.67​
7.7.71.75​
4​
7(2).75(1).71(1)​
8
283​
4,17
0,94​
55.85.87​
86.8.8​
3​
8(2).86(1)​
9​
283​
4,17
0,41​
26.33.73.90​
9.9.9.9​
4​
9(4)​


Se andiamo a vedere quindi la cifra 8 su MILANO nei ritardi attuali per estratto i sospettati per la prossima teorica uscita in pochi colpi "Benford" sarebbero questa volta:

formazione: 55 - FQ 83 - RA 87 - RS 87 - 0 - INCMAX 8 - contatore 1
formazione: 39 - FQ 78 - RA 8 - RS 84 - DIFF 76 - INCMAX 0 - contatore 58
formazione: 6 - FQ 75 - RA 8 - RS 77 - DIFF 69 - INCMAX 0 - contatore 59

:unsure:

Nessuna Certezza Solo Poca Probabilità

👋:)
 
Ultima modifica:

Giggio

Super Member >PLATINUM<
Codice:
Option Explicit
Class clsQuantita
    Private mValue
    Private mQuantita
    
    Public Property Let Value(v)
       mValue = v
    End Property
    Public Property Get Value
       Value = mValue
    End Property
    
    Public Property Let Quantita(v)
       mQuantita = v
    End Property
    Public Property Get Quantita
       Quantita = mQuantita
    End Property
    
    Sub IncrementaQuantita
       mQuantita = mQuantita + 1
    End Sub
   
End Class
Sub Main
   
   Dim r
   Dim aQPerCifra,aPercPerCifra,nQrit
   Dim nClasse,nSorte
   
   nClasse = ScegliEsito
   nSorte = ScegliEsito
   
   If nSorte <= nClasse Then
   
 
      For r = 1 To 12
         If r = 11 Then r = 12
         Call Messaggio("Ruota " & NomeRuota(r))
         Call GetDatiRitardi(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
         Call OutputDati(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
      Next
      
   Else
      MsgBox "Sorte non coerente per la classe di sviluppo"
   End If
End Sub
Sub AlimentaValoriDiRiferimento(aValoriRif)

   ReDim aValoriRif(9)
   
   aValoriRif(1) = 30.10
   aValoriRif(2) = 17.61
   aValoriRif(3) = 12.49
   aValoriRif(4) = 9.69
   aValoriRif(5) = 7.92
   aValoriRif(6) = 6.70
   aValoriRif(7) = 5.80
   aValoriRif(8) = 5.11
   aValoriRif(9) = 4.58
    
   
End Sub


Function GetDatiRitardi(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)


   Dim aRetRitardi,aRetIdEstr,k,n,t,c,nColTot,nFatte
   ReDim aN(0)
   ReDim aRt(1)
   
   ReDim aQPerCifra(9)
   ReDim aPercPerCifra(9)
   Dim aNumDaSvil
   
   aNumDaSvil = GetANumeri()
     
   aRt(1) = Rt
   
   nColTot = InitSviluppoIntegrale(aNumDaSvil,nClasse)
   Do While GetCombSviluppo(aN)
      Call ElencoRitardiTurbo(aN,aRt,nSorte,Inizio,Fine,aRetRitardi,aRetIdEstr)
      For k = 1 To UBound(aRetRitardi) - 1
         If aRetRitardi(k) > 0 Then
            c = Int(Left(CStr(aRetRitardi(k)),1))
            aQPerCifra(c) = aQPerCifra(c) + 1
            t = t + 1
         Else
            c = 0
            aQPerCifra(c) = aQPerCifra(c) + 1

         End If
         
      Next
      nFatte = nFatte + 1
      Call AvanzamentoElab(1,nColTot,nFatte)
      If ScriptInterrotto Then Exit Do
      
   Loop
   
   
   For c = 1 To 9
      aPercPerCifra(c) = aQPerCifra(c) / t
   Next
   nQRit = t
   
End Function
Sub AlimentaEsrattiPerCifraDiRitardo(aRetEstratti,Rt,IdEstr)
   Dim k,c,n,nRit
   ReDim aRetEstratti(9,2)
    
   
   If IdEstr > 1 Then
      If Estratto(IdEstr,Rt,1) > 0 Then

         For k = 1 To 5
         
            n = Estratto(IdEstr,Rt,k)
           
             
            nRit = RitardoEstrattoTurbo(n,IdEstr - 1,Rt)
            c = Int(Left(CStr(nRit),1))
            aRetEstratti(c,0) = aRetEstratti(c,0) & Format2(n) & "."
            aRetEstratti(c,1) = aRetEstratti(c,1) & nRit & "."
            aRetEstratti(c,2) = aRetEstratti(c,2) + 1
         Next
         For k = 1 To 9
            aRetEstratti(k,0) = RimuoviLastChr(aRetEstratti(k,0),".")
            aRetEstratti(k,1) = RimuoviLastChr(aRetEstratti(k,1),".")
            
         Next
        
      End If
      
   End If
    

End Sub
Sub AlimentaNumeriAlRitardoPerCifra(aRetNumeri,Rt,IdEstr)

    Dim k,c,n,nRit
    ReDim aRetNumeri(9,2)
  
    If IdEstr > 0 Then
       For n = 1 To 90
         
             
           
             
            nRit = RitardoEstrattoTurbo(n,IdEstr,Rt)
            c = Int(Left(CStr(nRit),1))
            aRetNumeri(c,0) = aRetNumeri(c,0) & Format2(n) & "."
            aRetNumeri(c,1) = aRetNumeri(c,1) & nRit & "."
            aRetNumeri(c,2) = aRetNumeri(c,2) + 1
       Next
    End If
     
    For k = 0 To 9
            aRetNumeri(k,0) = RimuoviLastChr(aRetNumeri(k,0),".")
            aRetNumeri(k,1) = RimuoviLastChr(aRetNumeri(k,1),".")
            
    Next
  


End Sub
Function RaggruppaPerQuantita(sSerie)
   Dim coll,k,aV,sKey,sRet,cQ
   
   Set coll = GetNewCollection
  
   
   aV = Split(sSerie,".")
   For k = 0 To UBound(aV)
      sKey = "k" & aV(k)
      If GetItemCollection(coll,sKey,cQ) Then
         cQ.IncrementaQuantita
      Else
         Set cQ = New clsQuantita
         cQ.IncrementaQuantita
         cQ.Value = aV(k)
         
         Call AddItemColl(coll,cQ,sKey)
      End If
   
   Next
   
   Call OrdinaItemCollection(coll,"Quantita")
   sRet = ""
   For Each cQ In coll
      sRet = sRet & cQ.Value & "(" & cQ.Quantita & ")" & "."
   Next
   
   RaggruppaPerQuantita = RimuoviLastChr(sRet,".")
End Function

Sub OutputDati(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)
   
   Dim k
   Dim aValoriRif
   Dim aEstrattiPerCifra,aEstrattiAllaCifra
   Dim aValoriPerGraf 
   
   Call AlimentaValoriDiRiferimento(aValoriRif)
   Call AlimentaEsrattiPerCifraDiRitardo(aEstrattiPerCifra,Rt,Fine)
   Call AlimentaNumeriAlRitardoPerCifra(aEstrattiAllaCifra,Rt,Fine - 1)
   

   Scrivi "Ruota : " & NomeRuota(Rt)
   Scrivi "Da    : " & GetInfoEstrazione(Inizio)
   Scrivi "A     : " & GetInfoEstrazione(Fine)
   Scrivi "ETot  : " &(Fine - Inizio) + 1
   Scrivi "RTot  : " & nQRit
   Scrivi "Classe: " & nClasse
   Scrivi "Sorte : " & nSorte
   Scrivi
    
   
   Dim aD
   aD = Array("","Cifra","Quantita","Percentuale","Scarto","Estratti","RitPrec","Formula del 5 rit","EPrec Num con Rit alla Cifra","EPrec Rit","EPrec Quantita","QuantPerRit")
   Dim aClr
   aClr = Array(0,0,0,0,0,0,0,0,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192))

   Call InitTabella(aD,vbBlue,,,vbWhite)
   
   ReDim aValoriPerGraf (9)
   For k = 0 To 9
      aD(1) = k
      aD(2) = aQPerCifra(k)
      If k > 0 Then
         aD(3) = Round(aPercPerCifra(k),5) * 100
         aD(4) = Round(aValoriRif(k) - aD(3),5)
         


         If aD(4) > 0 Then
            aClr(4) = 0
         Else
            aClr(4) = vbRed
         End If
         
         aValoriPerGraf (k)  =aD(3)
         
      
      Else
         aD(3) = "NonCompresoNelTotRit"
         aD(4) = "-"
        
                
      End If
      
      aD(5) = aEstrattiPerCifra(k,0)
      aD(6) = aEstrattiPerCifra(k,1)
      aD(7) = aEstrattiPerCifra(k,2)
          
      aD(8) = aEstrattiAllaCifra(k,0)
      aD(9) = aEstrattiAllaCifra(k,1)
      aD(10) = aEstrattiAllaCifra(k,2)
      aD(11) = RaggruppaPerQuantita(aEstrattiAllaCifra(k,1))
 
       
      
      Call AddRigaTabella(aD,,,,aClr)
      
   Next

   Call CreaTabella
   
   Call PreparaGrafico("Grafico" , 0,9, 0,35 , 1,1 )
   
   ReDim aValoriGraf (9 , 2)
   For k  =1 To 9 
      aValoriGraf (k , 1) = k 
      aValoriGraf (k , 2) = aValoriRif(k)
   Next
   Call DisegnaLineaGrafico(aValoriGraf,Blu_,"Riferimento")
   For k  =1 To 9 
      aValoriGraf (k , 1) = k 
      aValoriGraf (k , 2) = aValoriPerGraf (k)
   Next
   Call DisegnaLineaGrafico(aValoriGraf,Rosso_,"Empirico")
   


   Call InserisciGrafico 

   
   Scrivi ""
   
   
End Sub
 

fillotto

Advanced Member >PLATINUM<
Codice:
Option Explicit
Class clsQuantita
    Private mValue
    Private mQuantita
   
    Public Property Let Value(v)
       mValue = v
    End Property
    Public Property Get Value
       Value = mValue
    End Property
   
    Public Property Let Quantita(v)
       mQuantita = v
    End Property
    Public Property Get Quantita
       Quantita = mQuantita
    End Property
   
    Sub IncrementaQuantita
       mQuantita = mQuantita + 1
    End Sub
  
End Class
Sub Main
  
   Dim r
   Dim aQPerCifra,aPercPerCifra,nQrit
   Dim nClasse,nSorte
  
   nClasse = ScegliEsito
   nSorte = ScegliEsito
  
   If nSorte <= nClasse Then
  

      For r = 1 To 12
         If r = 11 Then r = 12
         Call Messaggio("Ruota " & NomeRuota(r))
         Call GetDatiRitardi(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
         Call OutputDati(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
      Next
     
   Else
      MsgBox "Sorte non coerente per la classe di sviluppo"
   End If
End Sub
Sub AlimentaValoriDiRiferimento(aValoriRif)

   ReDim aValoriRif(9)
  
   aValoriRif(1) = 30.10
   aValoriRif(2) = 17.61
   aValoriRif(3) = 12.49
   aValoriRif(4) = 9.69
   aValoriRif(5) = 7.92
   aValoriRif(6) = 6.70
   aValoriRif(7) = 5.80
   aValoriRif(8) = 5.11
   aValoriRif(9) = 4.58
   
  
End Sub


Function GetDatiRitardi(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)


   Dim aRetRitardi,aRetIdEstr,k,n,t,c,nColTot,nFatte
   ReDim aN(0)
   ReDim aRt(1)
  
   ReDim aQPerCifra(9)
   ReDim aPercPerCifra(9)
   Dim aNumDaSvil
  
   aNumDaSvil = GetANumeri()
    
   aRt(1) = Rt
  
   nColTot = InitSviluppoIntegrale(aNumDaSvil,nClasse)
   Do While GetCombSviluppo(aN)
      Call ElencoRitardiTurbo(aN,aRt,nSorte,Inizio,Fine,aRetRitardi,aRetIdEstr)
      For k = 1 To UBound(aRetRitardi) - 1
         If aRetRitardi(k) > 0 Then
            c = Int(Left(CStr(aRetRitardi(k)),1))
            aQPerCifra(c) = aQPerCifra(c) + 1
            t = t + 1
         Else
            c = 0
            aQPerCifra(c) = aQPerCifra(c) + 1

         End If
        
      Next
      nFatte = nFatte + 1
      Call AvanzamentoElab(1,nColTot,nFatte)
      If ScriptInterrotto Then Exit Do
     
   Loop
  
  
   For c = 1 To 9
      aPercPerCifra(c) = aQPerCifra(c) / t
   Next
   nQRit = t
  
End Function
Sub AlimentaEsrattiPerCifraDiRitardo(aRetEstratti,Rt,IdEstr)
   Dim k,c,n,nRit
   ReDim aRetEstratti(9,2)
   
  
   If IdEstr > 1 Then
      If Estratto(IdEstr,Rt,1) > 0 Then

         For k = 1 To 5
        
            n = Estratto(IdEstr,Rt,k)
          
            
            nRit = RitardoEstrattoTurbo(n,IdEstr - 1,Rt)
            c = Int(Left(CStr(nRit),1))
            aRetEstratti(c,0) = aRetEstratti(c,0) & Format2(n) & "."
            aRetEstratti(c,1) = aRetEstratti(c,1) & nRit & "."
            aRetEstratti(c,2) = aRetEstratti(c,2) + 1
         Next
         For k = 1 To 9
            aRetEstratti(k,0) = RimuoviLastChr(aRetEstratti(k,0),".")
            aRetEstratti(k,1) = RimuoviLastChr(aRetEstratti(k,1),".")
           
         Next
       
      End If
     
   End If
   

End Sub
Sub AlimentaNumeriAlRitardoPerCifra(aRetNumeri,Rt,IdEstr)

    Dim k,c,n,nRit
    ReDim aRetNumeri(9,2)
 
    If IdEstr > 0 Then
       For n = 1 To 90
        
            
          
            
            nRit = RitardoEstrattoTurbo(n,IdEstr,Rt)
            c = Int(Left(CStr(nRit),1))
            aRetNumeri(c,0) = aRetNumeri(c,0) & Format2(n) & "."
            aRetNumeri(c,1) = aRetNumeri(c,1) & nRit & "."
            aRetNumeri(c,2) = aRetNumeri(c,2) + 1
       Next
    End If
    
    For k = 0 To 9
            aRetNumeri(k,0) = RimuoviLastChr(aRetNumeri(k,0),".")
            aRetNumeri(k,1) = RimuoviLastChr(aRetNumeri(k,1),".")
           
    Next
 


End Sub
Function RaggruppaPerQuantita(sSerie)
   Dim coll,k,aV,sKey,sRet,cQ
  
   Set coll = GetNewCollection
 
  
   aV = Split(sSerie,".")
   For k = 0 To UBound(aV)
      sKey = "k" & aV(k)
      If GetItemCollection(coll,sKey,cQ) Then
         cQ.IncrementaQuantita
      Else
         Set cQ = New clsQuantita
         cQ.IncrementaQuantita
         cQ.Value = aV(k)
        
         Call AddItemColl(coll,cQ,sKey)
      End If
  
   Next
  
   Call OrdinaItemCollection(coll,"Quantita")
   sRet = ""
   For Each cQ In coll
      sRet = sRet & cQ.Value & "(" & cQ.Quantita & ")" & "."
   Next
  
   RaggruppaPerQuantita = RimuoviLastChr(sRet,".")
End Function

Sub OutputDati(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)
  
   Dim k
   Dim aValoriRif
   Dim aEstrattiPerCifra,aEstrattiAllaCifra
   Dim aValoriPerGraf
  
   Call AlimentaValoriDiRiferimento(aValoriRif)
   Call AlimentaEsrattiPerCifraDiRitardo(aEstrattiPerCifra,Rt,Fine)
   Call AlimentaNumeriAlRitardoPerCifra(aEstrattiAllaCifra,Rt,Fine - 1)
  

   Scrivi "Ruota : " & NomeRuota(Rt)
   Scrivi "Da    : " & GetInfoEstrazione(Inizio)
   Scrivi "A     : " & GetInfoEstrazione(Fine)
   Scrivi "ETot  : " &(Fine - Inizio) + 1
   Scrivi "RTot  : " & nQRit
   Scrivi "Classe: " & nClasse
   Scrivi "Sorte : " & nSorte
   Scrivi
   
  
   Dim aD
   aD = Array("","Cifra","Quantita","Percentuale","Scarto","Estratti","RitPrec","Formula del 5 rit","EPrec Num con Rit alla Cifra","EPrec Rit","EPrec Quantita","QuantPerRit")
   Dim aClr
   aClr = Array(0,0,0,0,0,0,0,0,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192))

   Call InitTabella(aD,vbBlue,,,vbWhite)
  
   ReDim aValoriPerGraf (9)
   For k = 0 To 9
      aD(1) = k
      aD(2) = aQPerCifra(k)
      If k > 0 Then
         aD(3) = Round(aPercPerCifra(k),5) * 100
         aD(4) = Round(aValoriRif(k) - aD(3),5)
        


         If aD(4) > 0 Then
            aClr(4) = 0
         Else
            aClr(4) = vbRed
         End If
        
         aValoriPerGraf (k)  =aD(3)
        
     
      Else
         aD(3) = "NonCompresoNelTotRit"
         aD(4) = "-"
       
               
      End If
     
      aD(5) = aEstrattiPerCifra(k,0)
      aD(6) = aEstrattiPerCifra(k,1)
      aD(7) = aEstrattiPerCifra(k,2)
         
      aD(8) = aEstrattiAllaCifra(k,0)
      aD(9) = aEstrattiAllaCifra(k,1)
      aD(10) = aEstrattiAllaCifra(k,2)
      aD(11) = RaggruppaPerQuantita(aEstrattiAllaCifra(k,1))

      
     
      Call AddRigaTabella(aD,,,,aClr)
     
   Next

   Call CreaTabella
  
   Call PreparaGrafico("Grafico" , 0,9, 0,35 , 1,1 )
  
   ReDim aValoriGraf (9 , 2)
   For k  =1 To 9
      aValoriGraf (k , 1) = k
      aValoriGraf (k , 2) = aValoriRif(k)
   Next
   Call DisegnaLineaGrafico(aValoriGraf,Blu_,"Riferimento")
   For k  =1 To 9
      aValoriGraf (k , 1) = k
      aValoriGraf (k , 2) = aValoriPerGraf (k)
   Next
   Call DisegnaLineaGrafico(aValoriGraf,Rosso_,"Empirico")
  


   Call InserisciGrafico

  
   Scrivi ""
  
  
End Sub
Grande Giggio!!! Stavo vedendo quest'ultimo script (estraz. esaminate 1442 ultima il 28/11 compresa classe 1 sorte 1 ) output relativo alla NZ cifra 7 si segnalano 5 numeri 21 37 46 47 55 preced ritardo 7 mi domando perchè segnalare il prec rit. ? essendo questa cinquina uscita 9 estrazioni fa il rit attuale sarebbe 8 insomma quale è la ragione da segnalare il rit prec. ?

 

lotto_tom75

Premium Member
Codice:
Option Explicit
Class clsQuantita
    Private mValue
    Private mQuantita
   
    Public Property Let Value(v)
       mValue = v
    End Property
    Public Property Get Value
       Value = mValue
    End Property
   
    Public Property Let Quantita(v)
       mQuantita = v
    End Property
    Public Property Get Quantita
       Quantita = mQuantita
    End Property
   
    Sub IncrementaQuantita
       mQuantita = mQuantita + 1
    End Sub
  
End Class
Sub Main
  
   Dim r
   Dim aQPerCifra,aPercPerCifra,nQrit
   Dim nClasse,nSorte
  
   nClasse = ScegliEsito
   nSorte = ScegliEsito
  
   If nSorte <= nClasse Then
  

      For r = 1 To 12
         If r = 11 Then r = 12
         Call Messaggio("Ruota " & NomeRuota(r))
         Call GetDatiRitardi(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
         Call OutputDati(r,aQPerCifra,aPercPerCifra,nQrit,EstrazioneIni,EstrazioneFin,nClasse,nSorte)
      Next
     
   Else
      MsgBox "Sorte non coerente per la classe di sviluppo"
   End If
End Sub
Sub AlimentaValoriDiRiferimento(aValoriRif)

   ReDim aValoriRif(9)
  
   aValoriRif(1) = 30.10
   aValoriRif(2) = 17.61
   aValoriRif(3) = 12.49
   aValoriRif(4) = 9.69
   aValoriRif(5) = 7.92
   aValoriRif(6) = 6.70
   aValoriRif(7) = 5.80
   aValoriRif(8) = 5.11
   aValoriRif(9) = 4.58
   
  
End Sub


Function GetDatiRitardi(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)


   Dim aRetRitardi,aRetIdEstr,k,n,t,c,nColTot,nFatte
   ReDim aN(0)
   ReDim aRt(1)
  
   ReDim aQPerCifra(9)
   ReDim aPercPerCifra(9)
   Dim aNumDaSvil
  
   aNumDaSvil = GetANumeri()
    
   aRt(1) = Rt
  
   nColTot = InitSviluppoIntegrale(aNumDaSvil,nClasse)
   Do While GetCombSviluppo(aN)
      Call ElencoRitardiTurbo(aN,aRt,nSorte,Inizio,Fine,aRetRitardi,aRetIdEstr)
      For k = 1 To UBound(aRetRitardi) - 1
         If aRetRitardi(k) > 0 Then
            c = Int(Left(CStr(aRetRitardi(k)),1))
            aQPerCifra(c) = aQPerCifra(c) + 1
            t = t + 1
         Else
            c = 0
            aQPerCifra(c) = aQPerCifra(c) + 1

         End If
        
      Next
      nFatte = nFatte + 1
      Call AvanzamentoElab(1,nColTot,nFatte)
      If ScriptInterrotto Then Exit Do
     
   Loop
  
  
   For c = 1 To 9
      aPercPerCifra(c) = aQPerCifra(c) / t
   Next
   nQRit = t
  
End Function
Sub AlimentaEsrattiPerCifraDiRitardo(aRetEstratti,Rt,IdEstr)
   Dim k,c,n,nRit
   ReDim aRetEstratti(9,2)
   
  
   If IdEstr > 1 Then
      If Estratto(IdEstr,Rt,1) > 0 Then

         For k = 1 To 5
        
            n = Estratto(IdEstr,Rt,k)
          
            
            nRit = RitardoEstrattoTurbo(n,IdEstr - 1,Rt)
            c = Int(Left(CStr(nRit),1))
            aRetEstratti(c,0) = aRetEstratti(c,0) & Format2(n) & "."
            aRetEstratti(c,1) = aRetEstratti(c,1) & nRit & "."
            aRetEstratti(c,2) = aRetEstratti(c,2) + 1
         Next
         For k = 1 To 9
            aRetEstratti(k,0) = RimuoviLastChr(aRetEstratti(k,0),".")
            aRetEstratti(k,1) = RimuoviLastChr(aRetEstratti(k,1),".")
           
         Next
       
      End If
     
   End If
   

End Sub
Sub AlimentaNumeriAlRitardoPerCifra(aRetNumeri,Rt,IdEstr)

    Dim k,c,n,nRit
    ReDim aRetNumeri(9,2)
 
    If IdEstr > 0 Then
       For n = 1 To 90
        
            
          
            
            nRit = RitardoEstrattoTurbo(n,IdEstr,Rt)
            c = Int(Left(CStr(nRit),1))
            aRetNumeri(c,0) = aRetNumeri(c,0) & Format2(n) & "."
            aRetNumeri(c,1) = aRetNumeri(c,1) & nRit & "."
            aRetNumeri(c,2) = aRetNumeri(c,2) + 1
       Next
    End If
    
    For k = 0 To 9
            aRetNumeri(k,0) = RimuoviLastChr(aRetNumeri(k,0),".")
            aRetNumeri(k,1) = RimuoviLastChr(aRetNumeri(k,1),".")
           
    Next
 


End Sub
Function RaggruppaPerQuantita(sSerie)
   Dim coll,k,aV,sKey,sRet,cQ
  
   Set coll = GetNewCollection
 
  
   aV = Split(sSerie,".")
   For k = 0 To UBound(aV)
      sKey = "k" & aV(k)
      If GetItemCollection(coll,sKey,cQ) Then
         cQ.IncrementaQuantita
      Else
         Set cQ = New clsQuantita
         cQ.IncrementaQuantita
         cQ.Value = aV(k)
        
         Call AddItemColl(coll,cQ,sKey)
      End If
  
   Next
  
   Call OrdinaItemCollection(coll,"Quantita")
   sRet = ""
   For Each cQ In coll
      sRet = sRet & cQ.Value & "(" & cQ.Quantita & ")" & "."
   Next
  
   RaggruppaPerQuantita = RimuoviLastChr(sRet,".")
End Function

Sub OutputDati(Rt,aQPerCifra,aPercPerCifra,nQRit,Inizio,Fine,nClasse,nSorte)
  
   Dim k
   Dim aValoriRif
   Dim aEstrattiPerCifra,aEstrattiAllaCifra
   Dim aValoriPerGraf
  
   Call AlimentaValoriDiRiferimento(aValoriRif)
   Call AlimentaEsrattiPerCifraDiRitardo(aEstrattiPerCifra,Rt,Fine)
   Call AlimentaNumeriAlRitardoPerCifra(aEstrattiAllaCifra,Rt,Fine - 1)
  

   Scrivi "Ruota : " & NomeRuota(Rt)
   Scrivi "Da    : " & GetInfoEstrazione(Inizio)
   Scrivi "A     : " & GetInfoEstrazione(Fine)
   Scrivi "ETot  : " &(Fine - Inizio) + 1
   Scrivi "RTot  : " & nQRit
   Scrivi "Classe: " & nClasse
   Scrivi "Sorte : " & nSorte
   Scrivi
   
  
   Dim aD
   aD = Array("","Cifra","Quantita","Percentuale","Scarto","Estratti","RitPrec","Formula del 5 rit","EPrec Num con Rit alla Cifra","EPrec Rit","EPrec Quantita","QuantPerRit")
   Dim aClr
   aClr = Array(0,0,0,0,0,0,0,0,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192))

   Call InitTabella(aD,vbBlue,,,vbWhite)
  
   ReDim aValoriPerGraf (9)
   For k = 0 To 9
      aD(1) = k
      aD(2) = aQPerCifra(k)
      If k > 0 Then
         aD(3) = Round(aPercPerCifra(k),5) * 100
         aD(4) = Round(aValoriRif(k) - aD(3),5)
        


         If aD(4) > 0 Then
            aClr(4) = 0
         Else
            aClr(4) = vbRed
         End If
        
         aValoriPerGraf (k)  =aD(3)
        
     
      Else
         aD(3) = "NonCompresoNelTotRit"
         aD(4) = "-"
       
               
      End If
     
      aD(5) = aEstrattiPerCifra(k,0)
      aD(6) = aEstrattiPerCifra(k,1)
      aD(7) = aEstrattiPerCifra(k,2)
         
      aD(8) = aEstrattiAllaCifra(k,0)
      aD(9) = aEstrattiAllaCifra(k,1)
      aD(10) = aEstrattiAllaCifra(k,2)
      aD(11) = RaggruppaPerQuantita(aEstrattiAllaCifra(k,1))

      
     
      Call AddRigaTabella(aD,,,,aClr)
     
   Next

   Call CreaTabella
  
   Call PreparaGrafico("Grafico" , 0,9, 0,35 , 1,1 )
  
   ReDim aValoriGraf (9 , 2)
   For k  =1 To 9
      aValoriGraf (k , 1) = k
      aValoriGraf (k , 2) = aValoriRif(k)
   Next
   Call DisegnaLineaGrafico(aValoriGraf,Blu_,"Riferimento")
   For k  =1 To 9
      aValoriGraf (k , 1) = k
      aValoriGraf (k , 2) = aValoriPerGraf (k)
   Next
   Call DisegnaLineaGrafico(aValoriGraf,Rosso_,"Empirico")
  


   Call InserisciGrafico

  
   Scrivi ""
  
  
End Sub
Senza parole... 😵😲 anzi 4 si... GRAZIEEE SUPER MITICO GIGGIOOO!!!
 

lotto_tom75

Premium Member
Grande Giggio!!! Stavo vedendo quest'ultimo script (estraz. esaminate 1442 ultima il 28/11 compresa classe 1 sorte 1 ) output relativo alla NZ cifra 7 si segnalano 5 numeri 21 37 46 47 55 preced ritardo 7 mi domando perchè segnalare il prec rit. ? essendo questa cinquina uscita 9 estrazioni fa il rit attuale sarebbe 8 insomma quale è la ragione da segnalare il rit prec. ?


Anche io aggiungerei l'evidenziazione dei numeri con ritardo "attuale" equivalente alla cifra analizzata in modo da non dover fare un'altra analisi per rintracciarli. Concordo con fillotto che saluto insieme al grande Giggio, Silop e a tutti gli intervenuti. 👋:)
 

MANCIN072

Junior Member
Alla riga 272, mi sono permesso di modificare per me il valore Y del grafico portandolo da 35 a 40; in alcuni grafici di sole 300 estrazioni non genera la linea perchè si va oltre il consentito. Genera errore ma si avvia lo stesso lo script.
 

silop2005

Advanced Member >GOLD<
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Giggio ,
======================
grazie come sempre sei un "mostro" di bravura e generosità (identico a L….).
======================
Anch'io sono d’accordo con filotto e lotto_Tom di avere in output solo i dati
riferiti alla "Formula dei 5 rit."
======================
Poi stavo osservando la grande "distorsione/anomalia" che vi è nella ruota di PALERMO
con i ritardi della cifra 3 e la cifra 4.
Osservate anche voi il periodo che va dalla 7440 ad oggi e vedrete che l'unica ruota
delle 11 che ha la cifra 3 in nero e la cifra 4 in rosso è quella di PALERMO.
Perché ?????
Da tutti i partecipanti interessati, aspetto vostre gradite riflessioni a riguardo.
======================
Buona serata a tutto il forum.
======================
A presto
Silop ;) ;) ;)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 gennaio 2021
    Bari
    21
    55
    01
    42
    88
    Cagliari
    75
    28
    81
    06
    88
    Firenze
    53
    63
    35
    90
    83
    Genova
    03
    64
    78
    66
    60
    Milano
    31
    48
    47
    08
    37
    Napoli
    87
    65
    76
    42
    54
    Palermo
    85
    64
    66
    20
    78
    Roma
    61
    31
    45
    60
    20
    Torino
    35
    83
    53
    81
    11
    Venezia
    17
    26
    45
    77
    61
    Nazionale
    13
    49
    82
    80
    47
    Estrazione Simbolotto
    Bari
    39
    07
    26
    25
    19
Alto