curiosità tecnica su tempo minore di elaborazione

[Rookie]

Ottimo lavoro rookie!

Ho provato a cercarci convergenze con la mia 15ina incmax doc

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

12.13.15.20.24.30.36.40.60.66.67.72.73.82.83


convergenti:...66-73-83

001.G->07742.002.0647.031.098.0.0483-01.02.03.35.45.59.61.62.70.78.79.80.81.82.83-00.45.03.14
002.G->16013.001.0641.029.091.0.0448-04.14.15.18.24.26.27.29.30.33.38.51.75.77.83-00.23.03.17
003.G->32992.001.0638.025.095.0.0468-12.13.15.20.24.30.35.38.46.58.67.71.80.82.89-00.23.03.18
004.G->33002.002.0650.021.090.0.0443-12.13.15.20.24.30.35.40.44.45.55.67.78.79.88-00.45.03.12
005.G->33057.009.0641.020.101.0.0498-12.13.15.20.24.30.36.40.60.66.67.72.73.82.83-02.04.03.17
006.G->33089.001.0638.021.084.0.0414-12.13.15.20.24.30.37.38.51.53.61.67.72.78.88-00.23.03.18
007.G->33256.002.0653.028.105.0.0517-12.13.15.20.24.30.42.45.62.72.78.80.81.84.90-00.45.03.11
008.G->33752.002.0637.034.096.0.0473-13.14.15.35.45.55.59.62.70.78.81.83.84.85.86-00.45.03.19




07742 01 02 03 35 45 59 61 62 70 78 79 80 81 82 83

02 04 02 01 02 04 11 04 01 02 04 05 05 02 02 06 06 03 01 01 03 02 02 02 01 06 02 01 10 07 09 03 11 09 06 04 01 09 03 11 24 03 02

001 02-62 02
002 03-70 02
003 45-59 02
004 45-78 02
005 45-82 02
006 45-83 02
007 59-70 02
008 78-83 02 *
009 79-82 02

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 59-78-83


16013 04 14 15 18 24 26 27 29 30 33 38 51 75 77 83

02 11 03 02 06 08 10 04 06 02 11 07 05 08 01 06 01 01 05 02 05 02 09 02 05 01 02 10 15 02 02 05 03 06 01 01 01 01 05 03 01 04 04 02 07

001 24-26 02
002 30-51 02
003 38-77 02
004 51-75 02
005 77-83 02


16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 18-38-83


32992 12 13 15 20 24 30 35 38 46 58 67 71 80 82 89
02 01 02 01 04 01 01 02 02 03 11 16 03 24 05 07 03 05 01 05 04 10 07 02 02 06 03 21 01 01 02 03 12 05 03 04 07 05 03

001 24-82 02
002 58-82 02
003 82-89 02

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 38


33002 12 13 15 20 24 30 35 40 44 45 55 67 78 79 88
09 02 05 08 02 05 01 02 05 01 06 04 07 06 16 01 05 03 03 02 10 06 02 02 08 12 05 06 02 13 11 06 11 02 03 07

001 20-78 02
002 45-78 02

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 44-78

33057 12 13 15 20 24 30 36 40 60 66 67 72 73 82 83
12 01 03 01 06 03 01 03 01 07 02 06 03 01 10 14 02 09 05 01 02 06 04 06 01 02 01 07 13 05 06 07 05 07 13 03 13

001 13-73 02
002 24-82 02
003 60-73 02
004 72-82 02

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 66-73-83


33089 12 13 15 20 24 30 37 38 51 53 61 67 72 78 88
01 08 07 08 07 08 01 06 01 03 12 10 04 03 02 04 08 06 04 17 01 03 03 06 01 04 14 03 06 08 01 03 06 04 04 02 03 07 01

001 20-78 02
002 30-51 02
003 37-53 02
004 37-78 02

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 38-78

33256 12 13 15 20 24 30 42 45 62 72 78 80 81 84 90
02 02 05 02 04 01 01 02 12 01 05 02 01 06 03 06 02 04 02 03 09 03 01 05 01 08 10 01 05 07 04 01 09 03 28 09 09 01 07 02 03 02 05

001 20-78 02
002 42-81 02
003 45-78 02

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 78-84

33752 13 14 15 35 45 55 59 62 70 78 81 83 84 85 86
04 04 01 02 04 01 01 01 13 03 03 02 03 05 04 04 02 06 03 09 02 02 05 03 10 07 07 05 34 11 02 01 04 04 08 08 04 02 05

001 15-70 02
002 45-59 02
003 45-78 02
004 45-83 02
005 59-70 02
006 78-83 02 *

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

convergenti: 59-78-83-84-85-86



riassunto di tutti i convergenti:

convergenti: 59-78-83
convergenti: 18-38-83
convergenti: 38
convergenti: 44-78
convergenti: 66-73-83
convergenti: 38-78
convergenti: 78-84
convergenti: 59-78-83-84-85-86


GU di tutti i convergenti: 18-38-|44|-(59)-66-73-(78-83-84-85-86) [classe 11]


Per questo varo "convergenziale" io proverò l'ambo comune... asteriscato... e la classe 11 sopra riportata provando a rimuovervi un solo elemento... il 44 (e stai a vedere che esce solo quello )



ps: ho trovato molto interessante, perchè apparentemente contro intuitiva, anche la tua ipotesi di riuscita di un ambo a fq 2 nel range da te esaminato.

Nessuna Certezza Solo Poca Probabilità

Complimentissimi per il tuo lodevole contributo "convergenziale" ma anche a iLegend che nonostante tutto non si e' fermato nello sviluppo dello script. Complimenti anche per il "mezzo" ambo asteriscato
Ciao e Buona domenica

 

[i legend]

A Napoli la 5 lunghetta di quelle selezionate ha dato una quaterna in lunghetta c era 34 e 36 altrimenti era cinquina.

Stasera alla grande.
Viva a le venus .,
Tom sei già a prendere il sole in spiaggia con un martini in una mano e uno spritz nell altra?

 

[i legend]

Grazie Rookie ma questo è tutto merito vostro. Oggi il PC sta lavorando per conto suo e non ho potuto fare nulla .
Questo è da stimolo.

 

[lotto_tom75]

Ahahah mi ha fatto morire ilegend con lo spritz

Bhe... che dire come varo non è stato niente male!

quaterna a colpo in 15ina incmax doc
quaterna a colpo nei convergenti con rookie
+ ambi su TT ecc..
l'unica pecca è stata come per altro avevo purtroppo ipotizzato che del gu di classe 11 è uscito pure il 44 che avevo escluso

Ad ogni modo come primo varo non poteva andare meglio...

Squadra winner brindiamo a noi!

 

[Rookie]

Ahahah mi ha fatto morire ilegend con lo spritz

Bhe... che dire come varo non è stato niente male!

quaterna a colpo in 15ina incmax doc
quaterna a colpo nei convergenti con rookie
+ ambi su TT ecc..
l'unica pecca è stata come per altro avevo purtroppo ipotizzato che del gu di classe 11 è uscito pure il 44 che avevo escluso

Ad ogni modo come primo varo non poteva andare meglio...

Squadra winner brindiamo a noi!

Vedi l'allegato 2244047

Ein hoch auf uns!

 

[Rookie]

Ahahah mi ha fatto morire ilegend con lo spritz

Bhe... che dire come varo non è stato niente male!

quaterna a colpo in 15ina incmax doc
quaterna a colpo nei convergenti con rookie
+ ambi su TT ecc..
l'unica pecca è stata come per altro avevo purtroppo ipotizzato che del gu di classe 11 è uscito pure il 44 che avevo escluso

Ad ogni modo come primo varo non poteva andare meglio...

Squadra winner brindiamo a noi!

Vedi l'allegato 2244047

Complimenti Tom, anche, pure e sopratutto, per averci creduto!

 

[lotto_tom75]

Altro sviluppo della matrice di classe 15 mentre aspetto i vostri...

Se la precedente 15ina "scelta" ha attualmente diff=0 incmax=0 questa è stata ricavata impostando come filtro incmax > 0 e poi scegliendo quella tra le 12 sole risultanze avente teorica maggior stabilità comportamentale di questo parametro con incmax attuale pari a quello storico e in questo specifico caso pari a 6 analizzando la situazione dal 1871.

Analisi incremento ritardo massimo per la sorte di Ambo

Sulla ruota di : RO
Da Estrazione : [00001] [ 1 ] 07.01.1871
A Estrazione : [10146] [123] 13.10.2022

Numeri Formazione : 16.17.18.38.41.44.54.59.66.73.78.83.84.85.86
Ritardo attuale : 36
Ritardo Massimo storico : 36
Frequenza : 2685
Incremento del ritardo massimo attuale : 6
Incremento del ritardo massimo storico più alto : 6
Stringa degli incrementi : 02.02.01.06.06.03.01.01.04.04.06

Ecco i report primario... da qui discende poi la scelta soprastante...


Ruota analizzata: RO
Sorte di ricerca 2

1| 01.02.03.08.09.28.29.30.31.65.66.74.78.80.84 | 39 | 38 | 1976 | 04.08.12.06.01 | 1 | 0
2| 01.02.03.11.15.16.29.47.50.54.58.67.71.72.85 | 34 | 33 | 1952 | 01.01.03.06.02.03.08.03.04.01 | 1 | 1
3| 06.10.16.29.30.32.38.49.50.52.57.76.78.80.83 | 39 | 31 | 1894 | 10.03.04.02.11.08 | 8 | 2
4| 06.10.16.29.30.32.39.40.43.44.50.60.64.80.83 | 40 | 32 | 1969 | 02.02.03.01.03.05.15.08 | 8 | 3
5| 07.08.09.35.36.47.48.55.56.59.60.71.72.75.76 | 33 | 30 | 1896 | 07.03.07.07.01.01.02.03 | 3 | 4
6| 07.08.09.37.41.46.50.51.55.60.64.69.73.78.82 | 32 | 30 | 1958 | 03.05.06.08.01.02 | 2 | 5
7| 07.08.09.38.39.43.50.51.58.62.63.70.71.75.82 | 33 | 30 | 1948 | 04.14.02.04.02.02.03 | 3 | 6
8| 08.09.11.16.20.26.36.44.48.50.55.66.74.85.87 | 32 | 31 | 1969 | 02.08.12.02.01.01 | 1 | 7
9| 08.13.14.16.22.26.29.30.31.32.35.56.63.76.90 | 39 | 28 | 1960 | 04.03.05.01.06.02.02.11 | 11 | 8
10| 08.13.14.16.22.26.29.30.31.32.37.41.60.73.83 | 37 | 36 | 1936 | 04.03.05.06.15.02.01 | 1 | 9
11| 08.13.14.16.22.26.29.30.31.32.43.55.63.83.88 | 37 | 33 | 1942 | 02.06.05.10.03.01.04 | 4 | 10
12| 08.13.14.16.22.26.29.30.31.32.48.55.57.60.66 | 40 | 38 | 1897 | 03.01.03.04.01.12.05.01.05.02.02 | 2 | 11
13| 16.17.18.38.41.44.54.59.66.73.78.83.84.85.86 | 36 | 30 | 2011 | 02.01.06.06.03.01.01.04.04.06 | 6 | 12
Formazioni Filtrate : 13 in 00:00:00

Un'altra curiosità riguardo la stessa matrice, che forse potrebbe tornarci utile, è che non ha al momento nessun valore di ra > 40 anche se il suo storico dal 1871 ha superato anche le 66 estrazioni... Alla luce di questo punto se rimanesse tale sarebbero da monitorare anche le rispettive 15ine con il 40 (ra) in grassetto...



Nessuna Certezza Solo Poca Probabilità

Ho voluto provare anche i convergenti tra la 15ina incmax doc evidenziata in rosso e le altre due con ra pari a 40... (max rilevato fino ad ora) ed è andata bene anche con loro... e questa volta è stato catturato... anche il 44 fuggitivo...

 

[Cinzia27]

Bravissimi!

 

[Elleuca]

Ciao a tutti i partecipanti di questa discussione. Complimenti per i vostri studi e sforzi collimati in ottimi risultati. Non mi attrae questo tipo di studio,ma riconosco che può essere un valido modo per selezionare le migliori sfere.
Rinnovo i complimenti a Tom,Legend e a Rookie . Bravi!

 

[Asuniverso]

Ho voluto provare anche i convergenti tra la 15ina incmax doc evidenziata in rosso e le altre due con ra pari a 40... (max rilevato fino ad ora) ed è andata bene anche con loro... e questa volta è stato catturato... anche il 44 fuggitivo...

Vedi l'allegato 2244052

Complimenti tom a te e al resto dei partecipanti che hanno contribuito al lavoro svolto.

Ciao...

 

[lotto_tom75]

Buongiorno, buona Domenica e grazie a tutti per i complimenti alla squadra!
A proposito di squadra... la nostra, credo di parlare anche a nome di ilegend e rookie, è apertissima a qualsiasi contributo e partecipante , specialmente del vostro calibro... Cinzia, Asuniverso, Elleuca e non solo... Quindi se ci fate un pensierino... noi non facciamo il test di entrata...

Ad ogni modo l'errore più grande che possiamo fare è adagiarsi sugli allori...

Tornando quindi al "fortunato" esito di ieri sera di ben 4 punti in classe 15 a colpo su ruota unica target e cercando di analizzarne, a bocce ferme, la situazione, posso dire intanto che mi ricorda in parte quello di ben 7 anni fa di Q secca su TT (PA) per il fatto sia dei 4 punti sia del fatto che la previsione in realtà fosse anche in quel caso teoricamente incmax doc x 2 punti in classe 4 su TT e non certo per quattro. Solo che anche in quel caso ne caddero fortunatamente 4 proprio sulla stessa 4ina e ruota. Di diverso, che lascia ben sperare per le ottimizzazioni e il caso attuale ci fu anche il fatto che quella volta partii da un gruppo di 49 elementi abs x T su TT e non da soli 15 come nell'ultimo caso di ieri... e che l'analisi aveva appunto come target esito di 2 punti in 4ina a colpo su TT e non di 2 punti a colpo in classe 15 su ruota unica.

Questo per dire che un'eventuale nuova condizione incmax doc x A teoricamente ottimale per esito a colpo o in pochi colpi come quella di ieri può rilasciare (e speriamo che lo rifaccia non tra 7 anni ) anche tre o più punti sulla ruota target di riferimento

Analizzandone le situazione per fq x EinE poi

16.17.18.38.41.44.54.59.66.73.78.83.84.85.86

Combinazioni di classe 1 analizzate per punti 1 sulle ruote RO
La seguente lista mostra le prime Combinazioni In Base al valore di Frequenza
Range analizzato [00001] [ 1 ] 07.01.1871 fino a [10146] [123] 13.10.2022
Estrazioni analizzate totali : 10146

formazione: 84 - FQ 607 - RA 25 - RS 110 - 85 - INCMAX 0 - contatore 1
formazione: 18 - FQ 599 - RA 13 - RS 97 - 84 - INCMAX 0 - contatore 2
formazione: 86 - FQ 594 - RA 4 - RS 102 - 98 - INCMAX 0 - contatore 3
----------------------------------- ambo in 3ina nel gu dei primi 3 liveli di fq max
formazione: 38 - FQ 591 - RA 27 - RS 95 - 68 - INCMAX 0 - contatore 4
formazione: 85 - FQ 590 - RA 11 - RS 113 - 102 - INCMAX 0 - contatore 5
formazione: 73 - FQ 590 - RA 24 - RS 107 - 83 - INCMAX 0 - contatore 6
formazione: 83 - FQ 587 - RA 6 - RS 96 - 90 - INCMAX 0 - contatore 7
-------------------------------------terno in 7ina nel gu dei primi 6 liveli di fq max
formazione: 17 - FQ 586 - RA 10 - RS 112 - 102 - INCMAX 0 - contatore 8
formazione: 66 - FQ 567 - RA 49 - RS 114 - 65 - INCMAX 0 - contatore 9
formazione: 41 - FQ 563 - RA 2 - RS 99 - 97 - INCMAX 0 - contatore 10
formazione: 16 - FQ 560 - RA 120 - RS 143 - 23 - INCMAX 0 - contatore 11
formazione: 54 - FQ 552 - RA 3 - RS 112 - 109 - INCMAX 0 - contatore 12
formazione: 59 - FQ 549 - RA 16 - RS 140 - 124 - INCMAX 0 - contatore 13
----utopica quaterna in 9ina nel gu dei livelli sopra evidenziati + primi due livelli di fq minima
formazione: 44 - FQ 545 - RA 60 - RS 135 - 75 - INCMAX 0 - contatore 14
formazione: 78 - FQ 522 - RA 1 - RS 123 - 122 - INCMAX 0 - contatore 15

Questa come mia prima analisi "freeze" riguardo la mia 15ina incmax doc con ra=rs=36 e incmax att=sto=6 ripetuto 3 volte... a cui aggiungo solamente che se l'ra 40 non venisse presto superato dovremmo prestare attenzione per A in 15ina anche a quel segnalino che potrebbe rappresentare appunto, almeno temporaneamente, un possibile limite di valico...

Aspetto... con impazienza... (quasi un ossimoro logico...) le vostre eventuali considerazioni e analisi post estrazione sulle vostre formazioni e/o su quanto accaduto... e che si potrebbe speriamo ripetere...

 

[Cinzia27]

Grazie dell'invito, Tom.
Mi piacerebbe partecipare, ma per ora per me è troppo complicato.
Però qualche idea mi è venuta leggendo i vostri post, tipo 10 n. abs per ambata su n. di ruote possibile, tipo 5-6 ruote
dalla 7440, spesso si fanno accompagnare da altri numeri della serie, ma sarei fuori tema.
Buona continuazione.

 

[Nikor]

Anche se in ritardo ti faccio i miei Complimenti per i tuoi risultati
Mi dispiace che i miei precedenti interventi non siano mai stati citati o meglio esclusi, pazienza tutti siamo indispensabili e nessuno necessario!
Riporto uno dei miei ultimi scritti:

...Allora te ne posto una io tra le tante di 23 numeri:
03-04-09-10-14-15-21-24-27-28-32-33-37-45-51-54-72-76-77-79-82-88-89 - Max precedente = a ( 1 ) x ambo ( Roma ) ultime 100!
Con 21 numeri:
04-05-14-18-21-25-28-33-34-43-45-49-51-53-54-57-76-79-82-85-86 - Max. precedente = ( 2 )
Queste sono solo le prime sgrossature , è ovvio che si può fare meglio rifiltrando...
*************************************************************************
Passo al valore ( Terno ) con 17 numeri sempre su ( Roma ):
04-05-07-10-14-18-21-25-27-32-37-47-49-53-75-85-87 - Max. precedente = ( 8 ) Att = ( 8 )!
Se vuoi eseguire una verifica sarebbe utile ( come ben sai l'errore potrebbe essere dietro l'angolo )
Ciao Amicone, da Nikor.

Niente di mirabolante , i ( 23 numeri a Rs = 1 ) fanno acqua.
I ( 21 Numeri a RS = 2 ) fanno Terno.
I ( 17 Numeri A Rs = 8 ) fanno solo Ambo.
Avevpo anche scritto che l'analisi era da migliorare perchè era solo alla prima bozza, i miglioramenti non hanno portato alla Quaterna come nel tuo caso, ma con sequele minori comprese tra ( 14 e 18 numeri ) ad una moltitudine di Terni.
Ciao Tom, buon inizio settimana , ( Ad maiora semper )
Nikor.

 

[Rookie]

Buongiorno Tom e iLegend, riporto la nuova elaborazione anche se i gruppi esposti sono esattamente quelli filtrati per la scorsa estrazione. Cambia qualche decimale, ma anche questi hanno un loro perche' nell'economia dell'elaborazione!

Per visualizzare cio' che intendo, ecco la comparazione, l'asterisco dopo i valori visibili nella seconda tabella dovrebbe aiutare a chiarire le mie parole. I filtri per selezionare i gruppi dipendono esclusivamente da come variano questi valori quantitativi, osservando come essi variano nel tempo, cioe' se tali valori procedono nelle successive estrazioni con andamento, stabile, crescente o decrescente.

ANTE estrazione Precedente
001 G->07742 002 0647 031 098 0.0483 01 02 03 35 45 59 61 62 70 78 79 80 81 82 83 00.45 03.14
002 G->16013 001 0641 029 091 0.0448 04 14 15 18 24 26 27 29 30 33 38 51 75 77 83 00.23 03.17
003 G->32992 001 0638 025 095 0.0468 12 13 15 20 24 30 35 38 46 58 67 71 80 82 89 00.23 03.18
004 G->33002 002 0650 021 090 0.0443 12 13 15 20 24 30 35 40 44 45 55 67 78 79 88 00.45 03.12
005 G->33057 009 0641 020 101 0.0498 12 13 15 20 24 30 36 40 60 66 67 72 73 82 83 02.04 03.17
006 G->33089 001 0638 021 084 0.0414 12 13 15 20 24 30 37 38 51 53 61 67 72 78 88 00.23 03.18
007 G->33256 002 0653 028 105 0.0517 12 13 15 20 24 30 42 45 62 72 78 80 81 84 90 00.45 03.11
008 G->33752 002 0637 034 096 0.0473 13 14 15 35 45 55 59 62 70 78 81 83 84 85 86 00.45 03.19

POST estrazione precedente
001 G->07742 003 0647 031 098 0.0483 01 02 03 35 45 59 61 62 70 78 79 80 81 82 83 00.68*03.14
002 G->16013 001 0642*029 091 0.0448 04 14 15 18 24 26 27 29 30 33 38 51 75 77 83 00.23 03.16*
003 G->32992 002 0638 025 095 0.0468 12 13 15 20 24 30 35 38 46 58 67 71 80 82 89 00.45*03.18
004 G->33002 003 0650 021 090 0.0443 12 13 15 20 24 30 35 40 44 45 55 67 78 79 88 00.68*03.12
005 G->33057 010 0641 020 101 0.0497*12 13 15 20 24 30 36 40 60 66 67 72 73 82 83 02.27*03.17
006 G->33089 002 0638 021 084 0.0414 12 13 15 20 24 30 37 38 51 53 61 67 72 78 88 00.45 03.18
007 G->33256 003 0653 028 105 0.0517 12 13 15 20 24 30 42 45 62 72 78 80 81 84 90 00.68*03.11
008 G->33752 001 0638*034 096 0.0473 13 14 15 35 45 55 59 62 70 78 81 83 84 85 86 00.23*03.18*

Ricordo che i valori, presenti nelle due tabelle sopra, si riferiscono a tutte le estrazioni avvenute dal 15/9/2009.


Qui sotto e' la situazione dettagliata degli intervalli di sortita dei gruppi e la tabulazione degli ambi presenti 2 volte nelle ultime 200 estrazioni. Ne trovate uno, sortite 3 volte, sfuggito nella precedente elaborazione, quindi era presente ma non era rappresentato, per la condizione logica al momento dell'elaborazione. Ora, e' visibile e appartiene al gruppo 32992, si tratta dell'ambo 58 82. Il quale per questa estrazione si aggiunge all'ambo 59-70 tra quelli suscettibili di ripetizione...
Buona continuazione

p.s. Tom, prendi in considerazione il caso di allargare il tuo gruppo anche senza la mia presenza, che per ragioni ormai storiche, non (ti) aiuta in questo senso. Capisco la tua posizione... riflettici sopra e... per qualsiasi tua determinazione, non dovrai spiegare (a me) nulla. Capiro' leggendo le tue parole! Frattanto mi dedico ad altro...



venus elaborata RM

Media successi per gruppi da 15 (gr. 46653) 461.5
conv 2031 estrazioni venus

MxInVenus RM=79

020 00001
021 00002
025 00001
028 00001
029 00001
031 00001
034 00001


07742 01 02 03 35 45 59 61 62 70 78 79 80 81 82 83
01 04 02 01 02 04 11 04 01 02 04 05 05 02 02 06 06 03 01 01 03 02 02 02 01 06 02 01 10 07 09 03 11 09 06 04 01 09 03 11 24 03 02

001 02-62 02
002 02-83 02
003 03-70 02
004 35-82 02
005 45-59 02
006 45-78 02
007 45-80 02
008 45-82 02
009 45-83 02
010 59-70 02
011 70-78 02
012 78-83 02
013 79-82 02

16013 04 14 15 18 24 26 27 29 30 33 38 51 75 77 83
01 11 03 02 06 08 10 04 06 02 11 07 05 08 01 06 01 01 05 02 05 02 09 02 05 01 02 10 15 02 02 05 03 06 01 01 01 01 05 03 01 04 04 02 07 01

001 04-30 02
002 24-26 02
003 30-51 02
004 33-51 02
005 38-77 02
006 51-75 02
007 77-83 02

32992 12 13 15 20 24 30 35 38 46 58 67 71 80 82 89
01 01 02 01 04 01 01 02 02 03 11 16 03 24 05 07 03 05 01 05 04 10 07 02 02 06 03 21 01 01 02 03 12 05 03 04 07 05 03

001 24-82 02
002 35-82 02
003 58-82 03
004 82-89 02

33002 12 13 15 20 24 30 35 40 44 45 55 67 78 79 88
08 02 05 08 02 05 01 02 05 01 06 04 07 06 16 01 05 03 03 02 10 06 02 02 08 12 05 06 02 13 11 06 11 02 03 07

001 15-44 02
002 15-55 02
003 20-78 02
004 45-78 02

33057 12 13 15 20 24 30 36 40 60 66 67 72 73 82 83
11 01 03 01 06 03 01 03 01 07 02 06 03 01 10 14 02 09 05 01 02 06 04 06 01 02 01 07 13 05 06 07 05 07 13 03 13

001 13-73 02
002 13-83 02
003 24-82 02
004 60-73 02
005 72-82 02

33089 12 13 15 20 24 30 37 38 51 53 61 67 72 78 88
08 07 08 07 08 01 06 01 03 12 10 04 03 02 04 08 06 04 17 01 03 03 06 01 04 14 03 06 08 01 03 06 04 04 02 03 07 01

001 12-37 02
002 20-78 02
003 30-51 02
004 37-53 02
005 37-78 02
006 38-72 02

33256 12 13 15 20 24 30 42 45 62 72 78 80 81 84 90
01 02 05 02 04 01 01 02 12 01 05 02 01 06 03 06 02 04 02 03 09 03 01 05 01 08 10 01 05 07 04 01 09 03 28 09 09 01 07 02 03 02 05

001 20-78 02
002 24-90 02
003 42-81 02
004 45-72 02
005 45-78 02
006 45-80 02

33752 13 14 15 35 45 55 59 62 70 78 81 83 84 85 86
03 04 01 02 04 01 01 01 13 03 03 02 03 05 04 04 02 06 03 09 02 02 05 03 10 07 07 05 34 11 02 01 04 04 08 08 04 02 05 02

001 13-83 02
002 14-70 02
003 15-55 02
004 15-70 02
005 45-59 02
006 45-78 02
007 45-83 02
008 59-70 02
009 70-78 02
010 78-83 02

 

[Rookie]

... and so be it !

 

[lotto_tom75]

Buongiorno a tutti
Per Nikor la nostra squadra è open! Resta quanto vuoi. Il tuo apporto come quello di tutti gli altri è molto prezioso. Nice work rookie Mentre aspettiamo la proposta di ilegend vi posto il mio tentativo elaborazionale valido solo un colpo. Ricordo a noi tutti che l'obiettivo di questo thread, anche se siamo andati tutti fuori tema ma in modo molto interessante, è quello di cercare in modo + continuativo possibile ambo a colpo su ruota unica in micro lunghetta di classe<= 20 ca... L'idea originale era di velocizzare l'analisi di una matrice corposa di 100k o righe rilevandone per ogni estrazione una formazione che avesse uno dei 4 parametri estremi (ra max o ra min o fq min, o fq max) ma sembra che sia rimasta solo la possibilità di condividere il mio script x cercare di ottimizzarlo insieme per questo aspetto visto che rispetto a quanto da voi proposto finora riesce a fare tutto ma appunto in tempi brevi solo per matrici di 2000 k righe al massimo... mentre dovrebbe riuscire ad operare su matrici di 100k o + righe in al massimo 1 ora...

Ricavare ogni volta una formazione "dinamica" diversa per uno dei 4 parametri estremi è cosa ben diversa dal rilevare un rs "statico" in un range temporale ben definito. Se questa poi è scelta in una matrice di grado di presenza elevato (es. gdp5) e partendo magari dalla massa totale degli elementi "in gioco" questa sua maggior "potenzialità" in termini di sfaldamento della sorte di ricerca aumenta in modo quasi esponenziale...

Dopo aver evidenziato, sperando di aver trovato questa volta le parole giuste, sopra in grassetto la differenza tra quanto "vorrei" ottenere x tutti noi e le proposte elaborazionali fin qui ottenute proverò ad aspettare ancora un pò prima di condividere lo script da ottimizzare e potenziare... sempre per non rischiare di influenzare negativamente le vostre eventuali soluzioni velocizzanti l'analisi.

Nel frattempo posto la mia proposta riduzionale per questa sera premettendo che purtroppo come potrete verificare questa volta non avrebbe alcuna convergenza per 2 punti o superiori con le risultanze di rookie.

Scelta ruota Roma - RO

.01.02.03.06.08.23.31.39.43.44.57.63.66.74.81 RA: 41 RS: 43 INCMAX: 0 FQ: 2610 RUOTA: Roma Diff 2 sorte: 2
.01.02.03.08.09.28.29.30.31.65.66.74.78.80.84 RA: 40 RS: 40 INCMAX: 2 FQ: 2662 RUOTA: Roma Diff 0 sorte: 2
.06.10.16.29.30.32.38.49.50.52.57.76.78.80.83 RA: 40 RS: 40 INCMAX: 9 FQ: 2639 RUOTA: Roma Diff 0 sorte: 2
.08.13.14.16.22.26.29.30.31.32.35.36.53.65.84 RA: 40 RS: 40 INCMAX: 1 FQ: 2715 RUOTA: Roma Diff 0 sorte: 2
.08.13.14.16.22.26.29.30.31.32.35.56.63.76.90 RA: 40 RS: 40 INCMAX: 12 FQ: 2687 RUOTA: Roma Diff 0 sorte: 2
.08.13.14.16.22.26.29.30.31.32.48.55.57.60.66 RA: 41 RS: 41 INCMAX: 3 FQ: 2675 RUOTA: Roma Diff 0 sorte: 2
.09.22.23.25.30.34.38.49.50.52.57.76.78.80.83 RA: 40 RS: 40 INCMAX: 1 FQ: 2616 RUOTA: Roma Diff 0 sorte: 2

Tempo trascorso: 00:01:05

gu: 1-2-3-6-8-9-10-13-14-16-22-23-25-26-28-29-30-31-32-34-35-36-38-39-43-44-48-49-50-52-53-55-56-57-60-63-65-66-74-76-78-80-81-83-84-90 [46]

Purtroppo questa volta analizzando le singl 15ine con ra max e diff=0 (ra >= 40) non ci sono condizioni di incmax att=sto analoghe al caso winner precedente...

La teoricamente migliore sembrerebbe essere questa

Analisi incremento ritardo massimo per la sorte di Ambo

Sulla ruota di : RO
Da Estrazione : [00001] [ 1 ] 07.01.1871
A Estrazione : [10147] [124] 15.10.2022

Numeri Formazione : 08.13.14.16.22.26.29.30.31.32.35.56.63.76.90
Ritardo attuale : 40
Ritardo Massimo storico : 40
Frequenza : 2687
Incremento del ritardo massimo attuale : 12
Incremento del ritardo massimo storico più alto : 6
Stringa degli incrementi : 05.04.03.05.01.06.02.02.12 << CUSPIDE RAGGIUNTA? o nuova CUSPIDE?

Ho scritto cuspide raggiunta... perchè fino a questa formazione di classe 15 tra le 7 scelte sulle 46k della matrice (per il loro ra max) sembrava avere appunto il massimo valore di incremento massimo rilevato... ma proseguendo mi sono imbattuto in questa...

Analisi incremento ritardo massimo per la sorte di Ambo

Sulla ruota di : RO
Da Estrazione : [00001] [ 1 ] 07.01.1871
A Estrazione : [10147] [124] 15.10.2022

Numeri Formazione : 09.22.23.25.30.34.38.49.50.52.57.76.78.80.83
Ritardo attuale : 40
Ritardo Massimo storico : 40
Frequenza : 2616
Incremento del ritardo massimo attuale : 1
Incremento del ritardo massimo storico più alto : 14
Stringa degli incrementi : 03.03.01.02.02.14.02.04.01.07.01 << CUSPIDE 14 nuova cuspide...

Quindi riassumendo la cuspide incmax elaborazionale max sarebbe 14
la + vicina avrebbe valore 12 e sarebbe distante due punti dal suo massimo storico per ra max teorico attuale >= 40 che potrebbe arrivare quindi a 40+2 = 42 estrazioni e 2 colpi di attesa...
Se andiamo poi a vedere anche l'rs delle 7 selezionate vediamo che abbiamo anche un 43. Quindi i colpi massimi teorici di attesa per vedere almeno 2 punti in una delle 7 formazioni estrapolate per ra max >= 40 diventerebbero appunto 3.

Cercando, come sopra ricordato, l'utopico esito a colpo di almeno 2 punti, per questa volta ho scelto di provare una strada riduzionale diversa... Ho voluto vedere se applicando il mio sistema riduzionale 100x100 al gruppo unione di classe 46 delle 7 risultanze in classe 15 avrei ottenuto o meno una formazione di classe interessante per esito a colpo o meno... E sembra che almeno per questa volta la risultanza ci sia

Riducendo a step 3 e step 1 ove possibile il gu iniziale di 46 elementi ho infatti ottenuto una classe 20 teoricamente ottima per esito di almeno A a colpo. Di seguito quella e le classi 10, 5, 3 e 2 ad essa relativa... Solo la classe 20 purtroppo ha il report con crtmin 1 e quindi solo questa è teoricamente la + interessante x eventuale rilascio di almeno 2 punti a colpo sulla ruota target di roma. Le altre classi teoricamente "giocabili" sono invece ovviamente molto meno probabili perchè aventi il crtimin minimo rispetto tutte le altre risultanze ma di valore non proprio contenuto... Se sfalderà anche solo la 20ina a crtmin 1 a colpo sarà comunque un altro risultato riduzionale da appuntarci perchè molto probabilmemente ci permetterà anche in the future di ridurre la matrice di 46653 15ineg5by90 a soli... 20 numeri ca...


elaborazione con archivio aggiornato al [10147] [124] 15.10.2022
sdr 2
sdv 2
cf 20
c+ 57
c-
ca 9
clp rim min 1
formazione con clp rim min .02.03.06.10.13.14.22.25.32.34.35.39.43.48.49.50.56.57.74.84.
ruota con clp rim min .8.
ct
%+ 86.3636363636364
cna 34
clpmax 9



elaborazione con archivio aggiornato al [10147] [124] 15.10.2022
sdr 2
sdv 2
cf 10
c+ 81
c-
ca 9
clp rim min 20
formazione con clp rim min .06.10.13.22.25.39.48.49.56.74.
ruota con clp rim min .8.
ct
%+ 90
cna 10
clpmax 28

e : 0
a : 41
t : 40
q : 0
c : 0
---------------------------
tot : 81

Tempo di elaborazione : 00:00:32




elaborazione con archivio aggiornato al [10147] [124] 15.10.2022
sdr 2
sdv 2
cf 5
c+ 88
c-
ca 9
clp rim min 53
formazione con clp rim min .13.25.39.48.49.
ruota con clp rim min .8.
ct
%+ 90.7216494845361
cna 3
clpmax 61

e : 0
a : 88
t : 0
q : 0
c : 0
---------------------------
tot : 88

Tempo di elaborazione : 00:00:37


elaborazione con archivio aggiornato al [10147] [124] 15.10.2022
sdr 2
sdv 2
cf 3
c+ 90
c-
ca 9
clp rim min 83
formazione con clp rim min .13.39.49.
ruota con clp rim min .8.
ct
%+ 90.9090909090909
cna 1
clpmax 91

e : 0
a : 0
t : 90
q : 0
c : 0
---------------------------
tot : 90

Tempo di elaborazione : 00:00:35


elaborazione con archivio aggiornato al [10147] [124] 15.10.2022
sdr 2
sdv 2
cf 2
c+ 91
c-
ca 9
clp rim min 83
formazione con clp rim min .13.39.
ruota con clp rim min .8.
ct
%+ 91
cna 0
clpmax 91

e : 0
a : 91
t : 0
q : 0
c : 0
---------------------------
tot : 91

Tempo di elaborazione : 00:00:40

Nessunissima Certezza Solo Pochissima Probabilità

 

[i legend]

L'idea originale era di velocizzare l'analisi di una matrice corposa di 100k o righe rilevandone per ogni estrazione una formazione che avesse uno dei 4 parametri estremi (ra max o ra min o fq min, o fq max) ma sembra che sia rimasta solo la possibilità di condividere il mio script x cercare di ottimizzarlo insieme per questo aspetto visto che rispetto a quanto da voi proposto finora riesce a fare tutto ma appunto in tempi brevi solo per matrici di 2000 k righe al massimo... mentre dovrebbe riuscire ad operare su matrici di 100k o + righe in al massimo

Ciao Tom , lo script che ti ho proposto velocizza al massimo rispetto ai tempi che avevi postato inizialmente.
Se allo script chiedi di trovare uno storico minore di 20 estrazioni lui filtra , ma se tu chiedi contemporaneamente di cercare lunghette che avviano ritardo storico < 20 e freq =0
Oppure freqmin>10 and freqmax=5
Lo script non restituisce niente in and
Mentre in or ti restituisce tutte le lunghette.
Tom se lo script che hai è quello che abbiamo fatto con e insieme a LuigiB, è già ottimizzato al massimo, e non sposterei neanche una virgola neanche nei commenti. Per me è questione di rispetto, non solo verso luigi ,ma verso qualsiasi altro script.
Se lo script è tuo , sono sicuro che non riuscirei a capire, ci ho provato più volte.
Se possibile il tuo script io non potrei ottimizzarlo.

In parole povere , da come ho capito che vuoi filtrare , un filtro annulla l altro,
Devi essere tu ha scrivere il tuo filtro.
Cmq adesso rileggo per bene come volevi i filtri che avevi postato e faccio delle prove su centomila righe

 

[lotto_tom75]

Ciao Tom , lo script che ti ho proposto velocizza al massimo rispetto ai tempi che avevi postato inizialmente.
Se allo script chiedi di trovare uno storico minore di 20 estrazioni lui filtra , ma se tu chiedi contemporaneamente di cercare lunghette che avviano ritardo storico < 20 e freq =0
Oppure freqmin>10 and freqmax=5
Lo script non restituisce niente in and
Mentre in or ti restituisce tutte le lunghette.
Tom se lo script che hai è quello che abbiamo fatto con e insieme a LuigiB, è già ottimizzato al massimo, e non sposterei neanche una virgola neanche nei commenti. Per me è questione di rispetto, non solo verso luigi ,ma verso qualsiasi altro script.
Se lo script è tuo , sono sicuro che non riuscirei a capire, ci ho provato più volte.
Se possibile il tuo script io non potrei ottimizzarlo.

Dopo questo non mi resta che postarlo... (nella versione + attuale...) e non ti preoccupare... non è nè tuo nè del Maestro... ma, con tutti i suoi eventuali errori e appesantimenti e ridondanze, una mia creaturina...

Option Explicit
Sub Main
   Dim k,y
   Dim Classe
   Dim aCol
   ReDim aNum(90)
   Dim i
   Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
   Dim ColTot
  'By Lotto_tom75 - Rilevatore su ruote separate e file txt di parametri voluti per qualsiasi sorte per 'qualsiasi classe presente nel txt importato e rilevamento ra o fq max o min voluti con verificatore 'integrato.
  Fine = EstrazioneFin
   Dim ramaxrilevato
   Dim fqmaxrilevata
   Dim raminrilevato
   Dim fqminrilevata
   Dim stringaramaxrilevato
   Dim stringafqmaxrilevata
   Dim stringaraminrilevato
   Dim stringafqminrilevata
   Dim ramaxrilevatoconfiltrook
   Dim fqmaxrilevataconfiltrook
   Dim raminrilevatoconfiltrook
   Dim fqminrilevataconfiltrook
   Dim stringaramaxrilevatoconfiltrook
   Dim stringafqmaxrilevataconfiltrook
   Dim stringaraminrilevatoconfiltrook
   Dim stringafqminrilevataconfiltrook
   Dim colpomassimogeneralerilevato
   colpomassimogeneralerilevato = 0
   Dim colpomassimovalutandole4risultanzeunite
   colpomassimovalutandole4risultanzeunite = 0
   Dim soglialimitevoluta
   soglialimitevoluta = CInt(InputBox("soglia limite voluta? (x tempo di sfaldamento) ",,1))
   Dim valoresoglianonsuperato
   Dim contasuperamentisoglia
   contasuperamentisoglia = 0
   Dim Indiceconsecutivitanegativa
   Indiceconsecutivitanegativa = 0
   Dim Valoremassimoconsecutivitanegativa
   Valoremassimoconsecutivitanegativa = 0
   Dim contatoreconsecutivitanegativa
   contatoreconsecutivitanegativa = 0
   Dim Valorecolpomassimoxfqmassima
   Valorecolpomassimoxfqmassima = 0
   Dim Valorecolpomassimoxfqminima
   Valorecolpomassimoxfqminima = 0
   Dim Valorecolpomassimoxramax
   Valorecolpomassimoxramax = 0
   Dim Valorecolpomassimoxramin
   Valorecolpomassimoxramin = 0
   Dim Valorecolpomassimoxdiff0incmax0
   Valorecolpomassimoxdiff0incmax0 = 0
   Dim colpirestantirispettocolpomassimoxfqmax
   Dim colpirestantirispettocolpomassimoxfqmin
   Dim colpirestantirispettocolpomassimoxramax
   Dim colpirestantirispettocolpomassimoxramin
   Dim colpirestantirispettocolpomassimoxdiff0incmax0
   Dim colpirestantiminimixfqmax
   colpirestantiminimixfqmax = EstrazioneFin
   Dim Formazioneconcolpirestantiminimixfqmax
   Dim numesxfqmax
   Dim colpirestantiminimixfqmin
   colpirestantiminimixfqmin = EstrazioneFin
   Dim Formazioneconcolpirestantiminimixfqmin
   Dim numesxfqmin
   Dim colpirestantiminimixramax
   colpirestantiminimixramax = EstrazioneFin
   Dim Formazioneconcolpirestantiminimixramax
   Dim numesxramax
   Dim colpirestantiminimixramin
   colpirestantiminimixramin = EstrazioneFin
   Dim Formazioneconcolpirestantiminimixramin
   Dim numesxramin
   Dim colpirestantiminimixdiff0incmax0
   colpirestantiminimixdiff0incmax0 = EstrazioneFin
   Dim Formazioneconcolpirestantiminimixdiff0incmax0
   Dim numesxdiff0incmax0
   'inizializzazione dei valori estremi
   ramaxrilevato = 0
   fqmaxrilevata = 0
   raminrilevato = EstrazioneFin
   fqminrilevata = EstrazioneFin
   'ReDim aNum(0)
   'QuantitaNumeriScelti = ScegliNumeri(aNum)
   Dim sfile
   sfile = ScegliFile(".\",".txt","lunghette.txt")
   ReDim aRuoteSel(12)
   RuoteSelezionate = ScegliRuote(aRuoteSel)
   nSorte = CInt(InputBox("sorte di ricerca",,3))
   Dim estrazioneprogressiva
   Dim numeroestrazionidaverificare
   Dim sortediverifica
   Dim colpidiverifica
   Dim esitoverifica
   Dim estrattiverifica
   Dim idestrazioneverifica
   Dim Inizioverifica
   Dim colpouscitanumero
   Dim casipositivixramin
   Dim casinegativixramin
   Dim casipositivixramax
   Dim casinegativixramax
   Dim casipositivixfqmin
   Dim casinegativixfqmin
   Dim casipositivixfqmax
   Dim casinegativixfqmax
   Dim casipositivixdiff0incmax0
   Dim casinegativixdiff0incmax0
   Dim colpomassimoxramin
   Dim colpomassimoxramax
   Dim colpomassimoxfqmin
   Dim colpomassimoxfqmax
   Dim colpomassimoxdiff0incmax0
   colpomassimoxramin = 0
   colpomassimoxramax = 0
   colpomassimoxfqmin = 0
   colpomassimoxfqmax = 0
   colpomassimoxdiff0incmax0 = 0
   numeroestrazionidaverificare = CInt(InputBox("numero estrazioni da verificare",,100))
   sortediverifica = CInt(InputBox("sorte di verifica",,2))
   colpidiverifica = CInt(InputBox("colpi di verifica",,18))
   Inizioverifica = EstrazioneFin - numeroestrazionidaverificare
   Scrivi
   Call Scrivi(" Elaborazione effettuata con archivio lotto aggiornato al  " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
   Scrivi
   For k = 1 To RuoteSelezionate
      Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
   Next
   Scrivi
   Scrivi
   Dim contatore
   For estrazioneprogressiva = Inizioverifica To EstrazioneFin
      'Call Messaggio("Lettura file di testo" & " ruota elaborata " & NomeRuota(aRuoteSel(1)) )
      ReDim aRighe(0)
      Call LeggiRigheFileDiTesto(sfile,aRighe)
      For y = 0 To UBound(aRighe)
         If aRighe(y) <> "" Then
            ReDim aNum(0)
            'Call SplitByChar(aRighe(y),".",aNum) -> da risultato errato
            'Call SplitByChar("." & aRighe(y),".",aNum)
            Call SplitByChar("." & aRighe(y),".",aNum)
            contatore = contatore + 1
            'nSorte = 3
            ReDim aRuoteTmp(1)
            For k = 1 To RuoteSelezionate
               aRuoteTmp(1) = aRuoteSel(k)
               Call StatisticaFormazioneTurbo(aNum,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,estrazioneprogressiva)
               Dim ricercasuruotaenumero
               ricercasuruotaenumero = StringaNumeri(aRuoteTmp)
               If RetRit1 <= raminrilevato Then
                  raminrilevato = RetRit1
                  stringaraminrilevato = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  Dim vettoreraminxverifica
                  '     Call SplitByChar(StringaNumeri(aNum),".",vettoreraminxverifica)
                  '
                  '
                  '      Call VerificaEsito(vettoreraminxverifica,aRuoteTmp,estrazioneprogressiva+1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
                  '
                  '      If esitoverifica <> "" Then
                  '      Scrivi "<font color=green size=1>OK</font>" & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero
                  '      Else
                  '      Scrivi "<font color=red size=2>NO</font>"
                  '      End If
               End If
               If RetFreq <= fqminrilevata Then
                  fqminrilevata = RetFreq
                  stringafqminrilevata = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  Dim vettorefqminxverifica
                  Call SplitByChar(StringaNumeri(aNum),".",vettorefqminxverifica)
               End If
               If RetRit1 >= ramaxrilevato Then
                  ramaxrilevato = RetRit1
                  stringaramaxrilevato = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  Dim vettoreramaxxverifica
                  Call SplitByChar(StringaNumeri(aNum),".",vettoreramaxxverifica)
               End If
               If RetFreq >= fqmaxrilevata Then
                  fqmaxrilevata = RetFreq
                  stringafqmaxrilevata = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  Dim vettorefqmaxxverifica
                  Call SplitByChar(StringaNumeri(aNum),".",vettorefqmaxxverifica)
               End If
               Call Messaggio(SiglaRuota(aRuoteTmp(1)) & " riga n. " & y & " sorte " & nSorte & " trovate " & trovate & " ides " & estrazioneprogressiva)
               ' Call Messaggio("Lettura file di testo" & " ruota elaborata " & NomeRuota(aRuoteTmp(1)) & " riga n. " & y & " sorte " & nSorte & " trovate " & trovate)
               Dim Diff
               Dim trovate
               Diff = RetRitMax - RetRit1
               If(RetRit1 >= 0 And Diff = 0 And RetFreq > 0 And RetIncrRitMax = 0) Then' And RetIncrRitMax = 0) Then
                  trovate = trovate + 1
                  Dim vettorediff0incmax0xverifica
                  Call SplitByChar(StringaNumeri(aNum),".",vettorediff0incmax0xverifica)
                  Dim Stringadiff0incmax0
                  Stringadiff0incmax0 = StringaNumeri(aNum)
                  'rilevamento formazioni con valori estremi e soddisfacenti il filtro
                  If RetRit1 <= raminrilevatoconfiltrook Then
                     raminrilevatoconfiltrook = RetRit1
                     stringaraminrilevatoconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  End If
                  If RetFreq <= fqminrilevataconfiltrook Then
                     fqminrilevataconfiltrook = RetFreq
                     stringafqminrilevataconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  End If
                  If RetRit1 >= ramaxrilevatoconfiltrook Then
                     ramaxrilevatoconfiltrook = RetRit1
                     stringaramaxrilevatoconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  End If
                  If RetFreq >= fqmaxrilevataconfiltrook Then
                     fqmaxrilevataconfiltrook = RetFreq
                     stringafqmaxrilevataconfiltrook = StringaNumeri(aNum) & " | " & NomeRuota(aRuoteTmp(1)) & " s " & nSorte & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " fq " & RetFreq
                  End If
                  '----------------------------------------------------------------------------
                  'Call Scrivi(StringaNumeri(aNum) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff & " sorte: " & nSorte)
               End If
               Call AvanzamentoElab(0,UBound(aRighe),contatore)
               Dim x
               'If x Mod 100 = 0 Then
               'Call Messaggio("Colonna : " & x)
               If ScriptInterrotto Then Exit For
               'Call AvanzamentoElab(0,UBound(aRighe),1)
               'End If
               If ScriptInterrotto Then Exit For
            Next
         End If
         If ScriptInterrotto Then Exit For
         Call AvanzamentoElab(1,UBound(aRighe),y)
      Next
      'Loop
      'End If
      Scrivi
      Scrivi "<font color=red size=5>ANALISI PER ESTRAZIONE NUMERO <strong>" & estrazioneprogressiva & "</strong></font>"
      Call Scrivi
      Scrivi "Trovate " & trovate
      Scrivi
      Scrivi "ramax " & ramaxrilevato
      Scrivi "fqmax " & fqmaxrilevata
      Scrivi "ramin " & raminrilevato
      Scrivi "fqmin " & fqminrilevata
      Scrivi
      Scrivi stringaramaxrilevato
      Scrivi stringafqmaxrilevata
      Scrivi stringaraminrilevato
      Scrivi stringafqminrilevata
      ReDim ruotediverifica(1) 'ruotediverifica(11)
      '      ruotediverifica(1) = BA_
      '      ruotediverifica(2) = CA_
      '      ruotediverifica(3) = FI_
      '      ruotediverifica(4) = GE_
      '      ruotediverifica(5) = MI_
      '      ruotediverifica(6) = NA_
      '      ruotediverifica(7) = PA_
      ruotediverifica(1) = aRuoteTmp(1)
      '      ruotediverifica(9) = TO_
      '      ruotediverifica(10) = VE_
      '      ruotediverifica(11) = NZ_
      Dim verificasuruotaenumero
      verificasuruotaenumero = StringaNumeri(ruotediverifica)
      ' verifica x ra min ---------------------------------------------------------------------------------------
      Call SplitByChar(stringaraminrilevato,".",vettoreraminxverifica)
      Call VerificaEsito(vettoreraminxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
      If esitoverifica <> "" Then
         Scrivi "<font color=green size=3>OK x la formazione ra min " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
         casipositivixramin = casipositivixramin + 1
         If colpouscitanumero > colpomassimoxramin Then
            colpomassimoxramin = colpouscitanumero
            If colpomassimoxramin > colpomassimogeneralerilevato Then
               colpomassimogeneralerilevato = colpouscitanumero
            End If
         End If
      Else
         Scrivi "<font color=red size=2>NO x la formazione ra min</font>"
         casinegativixramin = casinegativixramin + 1
         colpirestantirispettocolpomassimoxramin = Valorecolpomassimoxramin -(Fine - estrazioneprogressiva)
         Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x ra min " & colpirestantirispettocolpomassimoxramin
         If colpirestantirispettocolpomassimoxramin < colpirestantiminimixramin Then
            colpirestantiminimixramin = colpirestantirispettocolpomassimoxramin
            Formazioneconcolpirestantiminimixramin = StringaNumeri(vettoreraminxverifica)
            numesxramin = estrazioneprogressiva
         End If
      End If
      '-----------------------------------------------------------------------------------------------------------
      ' verifica x ra max ---------------------------------------------------------------------------------------
      Call SplitByChar(stringaramaxrilevato,".",vettoreramaxxverifica)
      Call VerificaEsito(vettoreramaxxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
      If esitoverifica <> "" Then
         Scrivi "<font color=green size=3>OK x la formazione ra max " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
         casipositivixramax = casipositivixramax + 1
         If colpouscitanumero > colpomassimoxramax Then
            colpomassimoxramax = colpouscitanumero
            If colpomassimoxramax > colpomassimogeneralerilevato Then
               colpomassimogeneralerilevato = colpouscitanumero
            End If
         End If
      Else
         Scrivi "<font color=red size=2>NO x la formazione ra max </font>"
         casinegativixramax = casinegativixramax + 1
         colpirestantirispettocolpomassimoxramax = Valorecolpomassimoxramax -(Fine - estrazioneprogressiva)
         Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x ra max " & colpirestantirispettocolpomassimoxramax
         If colpirestantirispettocolpomassimoxramax < colpirestantiminimixramax Then
            colpirestantiminimixramax = colpirestantirispettocolpomassimoxramax
            Formazioneconcolpirestantiminimixramax = StringaNumeri(vettoreramaxxverifica)
            numesxramax = estrazioneprogressiva
         End If
      End If
      '-----------------------------------------------------------------------------------------------------------
      ' verifica x fq min ---------------------------------------------------------------------------------------
      Call SplitByChar(stringafqminrilevata,".",vettorefqminxverifica)
      Call VerificaEsito(vettorefqminxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
      If esitoverifica <> "" Then
         Scrivi "<font color=green size=3>OK x la formazione fq min " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
         casipositivixfqmin = casipositivixfqmin + 1
         If colpouscitanumero > colpomassimoxfqmin Then
            colpomassimoxfqmin = colpouscitanumero
            If colpomassimoxfqmin > colpomassimogeneralerilevato Then
               colpomassimogeneralerilevato = colpouscitanumero
            End If
         End If
      Else
         Scrivi "<font color=red size=2>NO x la formazione fq min</font>"
         casinegativixfqmin = casinegativixfqmin + 1
         colpirestantirispettocolpomassimoxfqmin = Valorecolpomassimoxfqminima -(Fine - estrazioneprogressiva)
         Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x fq min " & colpirestantirispettocolpomassimoxfqmin
         If colpirestantirispettocolpomassimoxfqmin < colpirestantiminimixfqmin Then
            colpirestantiminimixfqmin = colpirestantirispettocolpomassimoxfqmin
            Formazioneconcolpirestantiminimixfqmin = StringaNumeri(vettorefqminxverifica)
            numesxfqmin = estrazioneprogressiva
         End If
      End If
      '-----------------------------------------------------------------------------------------------------------
      ' verifica x fq max ---------------------------------------------------------------------------------------
      Call SplitByChar(stringafqmaxrilevata,".",vettorefqmaxxverifica)
      Call VerificaEsito(vettorefqmaxxverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
      If esitoverifica <> "" Then
         Scrivi "<font color=green size=3>OK x la formazione fq max " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
         casipositivixfqmax = casipositivixfqmax + 1
         If colpouscitanumero > colpomassimoxfqmax Then
            colpomassimoxfqmax = colpouscitanumero
            If colpomassimoxfqmax > colpomassimogeneralerilevato Then
               colpomassimogeneralerilevato = colpouscitanumero
            End If
         End If
      Else
         Scrivi "<font color=red size=2>NO x la formazione fq max</font>"
         casinegativixfqmax = casinegativixfqmax + 1
         Scrivi "controllo valori per colpi rimanenti " & " clpmaxxfqmax " & Valorecolpomassimoxfqmassima & " fine-estrazioneprogressiva " & Fine - estrazioneprogressiva
         colpirestantirispettocolpomassimoxfqmax = Valorecolpomassimoxfqmassima -(Fine - estrazioneprogressiva)
         Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x fq max " & colpirestantirispettocolpomassimoxfqmax
         If colpirestantirispettocolpomassimoxfqmax < colpirestantiminimixfqmax Then
            colpirestantiminimixfqmax = colpirestantirispettocolpomassimoxfqmax
            Formazioneconcolpirestantiminimixfqmax = StringaNumeri(vettorefqmaxxverifica)
            numesxfqmax = estrazioneprogressiva
         End If
      End If
      '-----------------------------------------------------------------------------------------------------------
      ' verifica x diff0incmax0 ---------------------------------------------------------------------------------------
      Call SplitByChar(Stringadiff0incmax0,".",vettorediff0incmax0xverifica)
      Call VerificaEsito(vettorediff0incmax0xverifica,ruotediverifica,estrazioneprogressiva + 1,sortediverifica,colpidiverifica,,esitoverifica,colpouscitanumero,estrattiverifica,idestrazioneverifica)
      If esitoverifica <> "" Then
         Scrivi "<font color=green size=3>OK x la formazione diff0incmax0 " & " uscito " & esitoverifica & " al colpo numero " & colpouscitanumero & " con estratti " & estrattiverifica & "</font>"
         casipositivixdiff0incmax0 = casipositivixdiff0incmax0 + 1
         If colpouscitanumero > colpomassimoxdiff0incmax0 Then
            colpomassimoxdiff0incmax0 = colpouscitanumero
            If colpomassimoxdiff0incmax0 > colpomassimogeneralerilevato Then
               colpomassimogeneralerilevato = colpouscitanumero
            End If
         End If
         '
         '      colpomassimovalutandole4risultanzeunite  = colpomassimoxramin + colpomassimoxramax + colpomassimoxfqmin + colpomassimoxfqmax + colpomassimoxdiff0incmax0
         ''
         ''      Scrivi
         ''      Scrivi "<font color=blue  size=8>colpomax unione 4 risultanze "& colpomassimovalutandole4risultanzeunite  &"</font>"
         ''      Scrivi
         ''
         '
         '      If colpomassimovalutandole4risultanzeunite > soglialimitevoluta      Then
         '
         '      Scrivi "<font color=red size=7>SOGLIA LIMITE SUPERATA!</font>"
         '
         '      End If
         '
      Else
         Scrivi "<font color=red size=2>NO x la formazione diff0incmax0</font>"
         casinegativixdiff0incmax0 = casinegativixdiff0incmax0 + 1
         colpirestantirispettocolpomassimoxdiff0incmax0 = Valorecolpomassimoxdiff0incmax0 -(Fine - estrazioneprogressiva)
         Scrivi "<font size=4 color=blue>colpi restanti rispetto colpo max x diff0 incmax0 " & colpirestantirispettocolpomassimoxdiff0incmax0
         If colpirestantirispettocolpomassimoxdiff0incmax0 < colpirestantiminimixdiff0incmax0 Then
            colpirestantiminimixdiff0incmax0 = colpirestantirispettocolpomassimoxdiff0incmax0
            Formazioneconcolpirestantiminimixdiff0incmax0 = StringaNumeri(vettorediff0incmax0xverifica)
            numesxdiff0incmax0 = estrazioneprogressiva
         End If
      End If
      '-----------------------------------------------------------------------------------------------------------
      'colpomassimovalutandole4risultanzeunite  = colpomassimoxramin + colpomassimoxramax + colpomassimoxfqmin + colpomassimoxfqmax + colpomassimoxdiff0incmax0
      ' Scrivi
      ' Scrivi "<font color=blue  size=4>colpomax unione delle quattro risultanze "& colpomassimovalutandole4risultanzeunite  &"</font>"
      ' Scrivi
      ' Scrivi
      ' Scrivi "verifica valori di controllo " & colpomassimoxramin & " + " &  colpomassimoxramax & " + " & colpomassimoxfqmin & " + " & colpomassimoxfqmax & " + " & colpomassimoxdiff0incmax0
      ' Scrivi
      ' If(colpomassimoxramin <= soglialimitevoluta And colpomassimoxramin <> 0 Or colpomassimoxramax <= soglialimitevoluta And colpomassimoxramax <> 0 Or colpomassimoxfqmax <= soglialimitevoluta And colpomassimoxfqmax <> 0 Or colpomassimoxfqmin <= soglialimitevoluta And colpomassimoxfqmin <> 0 Or colpomassimoxdiff0incmax0 <= soglialimitevoluta And colpomassimoxdiff0incmax0 <> 0) Then
      'PROVA MONITORAGGIO SOLO PER FQ MAX  e FQ MIN e RA MAX e RA MIN
      If(colpomassimoxfqmax <= soglialimitevoluta And colpomassimoxfqmax <> 0 Or colpomassimoxfqmin <= soglialimitevoluta And colpomassimoxfqmin <> 0 Or colpomassimoxramax <= soglialimitevoluta And colpomassimoxramax <> 0 Or colpomassimoxramin <= soglialimitevoluta And colpomassimoxramin <> 0 Or colpomassimoxdiff0incmax0 <= soglialimitevoluta And colpomassimoxdiff0incmax0 <> 0) Then
         ' Scrivi
         ' Scrivi "verifica valori di controllo " & colpomassimoxramin & " + " &  colpomassimoxramax & " + " & colpomassimoxfqmin & " + " & colpomassimoxfqmax & " + " & colpomassimoxdiff0incmax0
         ' Scrivi
         Dim Stringavaloridicontrollo
         Stringavaloridicontrollo = colpomassimoxramin & "+" & colpomassimoxramax & "+" & colpomassimoxfqmin & "+" & colpomassimoxfqmax & "+" & colpomassimoxdiff0incmax0
         Dim Arrayvaloridicontrollo
         Call SplitByChar(Stringavaloridicontrollo,"+",Arrayvaloridicontrollo)
         Dim c
         For c = 0 To UBound(Arrayvaloridicontrollo)
            Scrivi "|" & Arrayvaloridicontrollo(c) & "|"
         Next
         Dim Valoremassimonellarray
         Valoremassimonellarray = MassimoV(Arrayvaloridicontrollo)
         Scrivi
         Scrivi "il valore massimo nell'array è  " & Valoremassimonellarray
         If Valoremassimonellarray > colpomassimovalutandole4risultanzeunite Then
            colpomassimovalutandole4risultanzeunite = Valoremassimonellarray
         End If
         Scrivi
         Scrivi "il valore massimo rilevato complessivamente fino ad ora è " & colpomassimovalutandole4risultanzeunite
         Scrivi
         Scrivi "<font size=6 color=green><strong>EUREKA! VALORE SOGLIA VOLUTA NON SUPERATO!</strong></font>"
         Scrivi
         valoresoglianonsuperato = "<font color=green><strong>EUREKA! VALORE SOGLIA VOLUTA NON SUPERATO!</strong></font>"
         Indiceconsecutivitanegativa = 0
      Else
         If Fine - estrazioneprogressiva > soglialimitevoluta Then
            valoresoglianonsuperato = "OH DANNAZIONE! VALORE SOGLIA VOLUTA SUPERATO!"
            Scrivi
            Scrivi "<font size=5 color=red><strong>" & valoresoglianonsuperato & "</strong></font>"
            Scrivi
            valoresoglianonsuperato = "<font color=red><strong>OH DANNAZIONE! VALORE SOGLIA VOLUTA SUPERATO!"
            contasuperamentisoglia = contasuperamentisoglia + 1
            Indiceconsecutivitanegativa = Indiceconsecutivitanegativa + 1
            'contatoreconsecutivitanegativa = contatoreconsecutivitanegativa +1
            If Indiceconsecutivitanegativa > Valoremassimoconsecutivitanegativa Then
               Valoremassimoconsecutivitanegativa = Indiceconsecutivitanegativa
            End If
            Scrivi
            Scrivi "verifica valore indice di consecutivià negativa " & " indice consec neg " & Indiceconsecutivitanegativa & " valore massimo indice consec neg  " & Valoremassimoconsecutivitanegativa '& " contatore consec neg  " & contatoreconsecutivitanegativa
            Scrivi
         End If
      End If
      Scrivi
      Scrivi "verifica valori di controllo x FQ MAX  " & colpomassimoxfqmax
      Scrivi
      Scrivi
      Scrivi "verifica valori di controllo x FQ MIN  " & colpomassimoxfqmin
      Scrivi
      Scrivi
      Scrivi "verifica valori di controllo x RA MAX  " & colpomassimoxramax
      Scrivi
      Scrivi
      Scrivi "verifica valori di controllo x RA MIN  " & colpomassimoxramin
      Scrivi
      Scrivi
      Scrivi "verifica valori di controllo x DIFF0 INCMAX0  " & colpomassimoxramin
      Scrivi
      If colpomassimoxfqmax > Valorecolpomassimoxfqmassima Then
         Valorecolpomassimoxfqmassima = colpomassimoxfqmax
         Scrivi
         Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER FQ MAX E' " & Valorecolpomassimoxfqmassima
         Scrivi
      End If
      If colpomassimoxfqmin > Valorecolpomassimoxfqminima Then
         Valorecolpomassimoxfqminima = colpomassimoxfqmin
         Scrivi
         Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER FQ MIN E' " & Valorecolpomassimoxfqminima
         Scrivi
      End If
      If colpomassimoxramax > Valorecolpomassimoxramax Then
         Valorecolpomassimoxramax = colpomassimoxramax
         Scrivi
         Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER RA MAX E' " & Valorecolpomassimoxramax
         Scrivi
      End If
      If colpomassimoxramin > Valorecolpomassimoxramin Then
         Valorecolpomassimoxramin = colpomassimoxramin
         Scrivi
         Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER RA MIN E' " & Valorecolpomassimoxramin
         Scrivi
      End If
      If colpomassimoxdiff0incmax0 > Valorecolpomassimoxdiff0incmax0 Then
         Valorecolpomassimoxdiff0incmax0 = colpomassimoxdiff0incmax0
         Scrivi
         Scrivi "IL NUOVO VALORE DI COLPO MASSIMO PER DIFF0 INCMAX0 E' " & Valorecolpomassimoxdiff0incmax0
         Scrivi
      End If
      Scrivi
      Scrivi "formazioni con valori estremi rispettanti anche il filtro "
      Scrivi
      Scrivi stringaramaxrilevatoconfiltrook
      Scrivi stringafqmaxrilevataconfiltrook
      Scrivi stringaraminrilevatoconfiltrook
      Scrivi stringafqminrilevataconfiltrook
      'Call Messaggio(SiglaRuota(aRuoteTmp(1)) & " riga n. " & y & " sorte " & nSorte & " trovate " & trovate & " ides " & estrazioneprogressiva )
      'prima di ogni estrazione successiva azzero tutto... vettori e stringhe...
      Call Erase(aNum)
      Call Erase(vettoreraminxverifica)
      Call Erase(vettorefqminxverifica)
      Call Erase(vettoreramaxxverifica)
      Call Erase(vettorefqmaxxverifica)
      Call Erase(vettorediff0incmax0xverifica)
      'Call Erase(Arrayvaloridicontrollo)
      Stringavaloridicontrollo = ""
      stringaramaxrilevato = ""
      stringafqmaxrilevata = ""
      stringaraminrilevato = ""
      stringafqminrilevata = ""
      stringaramaxrilevatoconfiltrook = ""
      stringafqmaxrilevataconfiltrook = ""
      stringaraminrilevatoconfiltrook = ""
      stringafqminrilevataconfiltrook = ""
      Stringadiff0incmax0 = ""
      ramaxrilevato = 0
      fqmaxrilevata = 0
      raminrilevato = EstrazioneFin
      fqminrilevata = EstrazioneFin
      'colpomassimovalutandole4risultanzeunite  = 0
      colpomassimoxramin = 0
      colpomassimoxramax = 0
      colpomassimoxfqmin = 0
      colpomassimoxfqmax = 0
      colpomassimoxdiff0incmax0 = 0
      'Indiceconsecutivitanegativa = 0
      '----------------------------------------------------------------------------------
      If ScriptInterrotto Then Exit For 'x estrazione progressiva
   Next
   Scrivi
   Scrivi "Attenzione: ricordarsi che se tornano sempre o spesso le stesse formazioni in output... questo dipende dal fatto che..."
   Scrivi "la sorte di ricerca (sdr) è diversa e solitamente maggiore rispetto quella di verifica (sdv) (es. sdr 3 sdv 2)."
   Scrivi "In altre parole... se mettiamo sdr = sdv le formazioni in output saranno sempre diverse..."
   Scrivi
   Scrivi "range temporale di analisi " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine)
   Scrivi
   Scrivi "range temporale di verifica " & GetInfoEstrazione(Fine - numeroestrazionidaverificare) & " - " & GetInfoEstrazione(Fine)
   Scrivi
   Scrivi "analisi file txt " & sfile
   Scrivi
   Scrivi "ruota o ruote di ricerca n. " & ricercasuruotaenumero
   Scrivi
   Scrivi "ruota o ruote di verifica n. " & verificasuruotaenumero
   Scrivi
   Scrivi "ultime estrazioni consecutive analizzate n. " & numeroestrazionidaverificare
   Scrivi
   Scrivi "sorte di ricerca " & nSorte
   Scrivi "sorte di verifica " & sortediverifica
   Scrivi "colpi di verifica " & colpidiverifica
   Scrivi
   Scrivi "casi totali positivi per ra min " & casipositivixramin
   Scrivi "casi totali negativi per ra min " & casinegativixramin
   'Scrivi "colpo massimo per ra min " & colpomassimoxramin
   Scrivi
   Scrivi "casi totali positivi per ra max " & casipositivixramax
   Scrivi "casi totali negativi per ra max " & casinegativixramax
   'Scrivi "colpo massimo per ra max " & colpomassimoxramax
   Scrivi
   Scrivi "casi totali positivi per fq min " & casipositivixfqmin
   Scrivi "casi totali negativi per fq min " & casinegativixfqmin
   'Scrivi "colpo massimo per fq min " & colpomassimoxfqmin
   Scrivi
   Scrivi "casi totali positivi per fq max " & casipositivixfqmax
   Scrivi "casi totali negativi per fq max " & casinegativixfqmax
   'Scrivi "colpo massimo per fq max " & colpomassimoxfqmax
   Scrivi
   Scrivi
   Scrivi "casi totali positivi per diff0incmax0 " & casipositivixdiff0incmax0
   Scrivi "casi totali negativi per diff0incmax0 " & casinegativixdiff0incmax0
   'Scrivi "colpo massimo per diff0 incmax0 " & colpomassimoxdiff0incmax0
   Scrivi
   Scrivi "soglia limite voluta (x tempo di sfaldamento) " & soglialimitevoluta & " colpo(i) "
   'Scrivi
   'Scrivi "colpo massimo generale rilevato " & colpomassimogeneralerilevato
   Scrivi
   Scrivi "colpo massimo generale valutando le 4 risultanze unite " & colpomassimovalutandole4risultanzeunite
   Scrivi
   If contasuperamentisoglia > 0 Then
      Scrivi "<font color=red size=4><strong>DANNAZIONE! VALORE SOGLIA SUPERATO!<strong></font>"
   Else
      Scrivi "<font color=green size=4><strong>EUREKA! VALORE SOGLIA NON SUPERATO!<strong></font>"
   End If
   Scrivi
   Scrivi "valore soglia voluto superato per " & contasuperamentisoglia & " volte!"
   Scrivi
   Scrivi "indice massimo di consecutività negativa " & Valoremassimoconsecutivitanegativa
   Scrivi
   Scrivi "valore colpo massimo per fq max " & Valorecolpomassimoxfqmassima
   Scrivi
   Scrivi "colpi restanti minimi per fq max " & colpirestantiminimixfqmax
   Scrivi
   Scrivi "formazione con colpi restanti minimi x fq max " & Formazioneconcolpirestantiminimixfqmax
   Scrivi
   Scrivi "num es con colpi restanti minimi x fq max " & numesxfqmax
   Scrivi
   Scrivi "valore colpo massimo per fq min " & Valorecolpomassimoxfqminima
   Scrivi
   Scrivi "colpi restanti minimi per fq min  " & colpirestantiminimixfqmin
   Scrivi
   Scrivi "formazione con colpi restanti minimi x fq min " & Formazioneconcolpirestantiminimixfqmin
   Scrivi
   Scrivi "num es con colpi restanti minimi x fq min " & numesxfqmin
   Scrivi
   Scrivi "valore colpo massimo per ra max " & Valorecolpomassimoxramax
   Scrivi
   Scrivi "colpi restanti minimi per ra max  " & colpirestantiminimixramax
   Scrivi
   Scrivi "formazione con colpi restanti minimi x ra max " & Formazioneconcolpirestantiminimixramax
   Scrivi
   Scrivi "num es con colpi restanti minimi x ra max " & numesxramax
   Scrivi
   Scrivi "valore colpo massimo per ra min " & Valorecolpomassimoxramin
   Scrivi
   Scrivi "colpi restanti minimi per ra min  " & colpirestantiminimixramin
   Scrivi
   Scrivi "formazione con colpi restanti minimi x ra min " & Formazioneconcolpirestantiminimixramin
   Scrivi
   Scrivi "num es con colpi restanti minimi x ra min " & numesxramin
   Scrivi
   Scrivi "valore colpo massimo per diff0 incmax0 " & Valorecolpomassimoxdiff0incmax0
   Scrivi
   Scrivi "colpi restanti minimi per diff0 incmax0  " & colpirestantiminimixdiff0incmax0
   Scrivi
   Scrivi "formazione con colpi restanti minimi x diff0 incmax0 " & Formazioneconcolpirestantiminimixdiff0incmax0
   Scrivi
   Scrivi "num es con colpi restanti minimi x diff0 incmax0 " & numesxdiff0incmax0
   Scrivi
   Call Scrivi("Tempo trascorso: " & TempoTrascorso)
End Sub

Se riesci (riuscite) a correggerlo, velocizzarlo o ottimizzarlo in modo che riesca ad elaborare in tempi brevi matrici corpose tanto meglio per tutti noi. Altrimenti pazienza e analizzeremo solo matrici contenute.

 

[Nikor]

Ciao Tom, prima di farti la domanda ti elenco quale è la mia idea su sequele minori sul range ( 2031 ) per tutte le ruote unite come fossero una sola ( Nazionale esclusa ) dal 15/09/2009 al 15/10/2022.
Valore ricercato ( Rs ) con il minimo storico x Ambo.
Prima analisi, lunghetta di 12 numeri. [ per i 12 numeri storico ( = < a 6 ) ]
Seconda analisi, lunghetta di 9 numeri.[ per i 9 numeri storico ( = < di a 9 ) ]

La domanda, credi che le 2 lunghette che rispettino i valori elencati siano degne da sottoporre ad ulteriori indagini? Se sì lancio l’elaborazione , se invece hai già sotto mano questi valori come non detto…
Nikor.

 

[lotto_tom75]

Ciao Tom, prima di farti la domanda ti elenco quale è la mia idea su sequele minori sul range ( 2031 ) per tutte le ruote unite come fossero una sola ( Nazionale esclusa ) dal 15/09/2009 al 15/10/2022.
Valore ricercato ( Rs ) con il minimo storico x Ambo.
Prima analisi, lunghetta di 12 numeri. [ per i 12 numeri storico ( = < a 6 ) ]
Seconda analisi, lunghetta di 9 numeri.[ per i 9 numeri storico ( = < di a 9 ) ]

La domanda, credi che le 2 lunghette che rispettino i valori elencati siano degne da sottoporre ad ulteriori indagini? Se sì lancio l’elaborazione , se invece hai già sotto mano questi valori come non detto…
Nikor.

Ciao Nikor, anche se il focus di questo thread sarebbe un altro ovvero cercare una lunghetta <= 20 elementi ca che dia almeno 2 punti a colpo su ruota unica in modo + costante possibile..., sono felice che tu sia approdato con il tuo interesse o semplice curiosità con questa tua domanda ad una delle mie ricerche passate e attuali ovvero all'importanza di rilevare micro basi numeriche x A su TTeNZ con rs molto contenuto partendo da un più ampio range temporale possibile. Trovi due esempi nella sezione statistica e non solo... su due di questi miei tentativi riusciti al riguardo. Una è una classe 9 ben visibile con rs 9 xA su TT dal 1871... di cui sto monitorando da marzo 2022 lo sfaldamento progressivo delle 36 coppie... e l'altra è una classe per adesso top secret... di classe 8 con rs = 6 proprio dalla es 8117 xA su TTeNZ come hai anche tu rilevato per le tue