Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Pare che qualcuno di loro... (anzi il più grosso tra quelli...) l'abbia raccolta...
|
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 ???? |
Nonostante la risata di Giggio , 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...
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.
Non so come mi è uscito Salvo (?) intendevo Silop!!!!!
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 ????
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...
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à
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
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
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
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) |
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) |
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. ?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!!!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. ?
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 |