Solo Un Grafico E Una Domandina Per Adesso...

[lotto_tom75]

Per martedì proviamo a scendere di qualche altro elemento...


Sulla ruota di : NZ
Classe di sviluppo : quella decisa
Sorte ricercata : 2
Formazione analizzata : 04.06.07.13.19.20.26.27.33.36.37.38
Da Estrazione : [00001] [ 1 ] 07.01.1871
A Estrazione : [09844] [116] 07.11.2020

Ritardo : 43
RitardoMax : 43
Frequenza : 312

Dettaglio evoluzione RitMax
Estrazione : 7440 RitMax : 1 InccrRitMax : 1
Estrazione : 7451 RitMax : 10 InccrRitMax : 9
Estrazione : 7472 RitMax : 12 InccrRitMax : 2
Estrazione : 7507 RitMax : 21 InccrRitMax : 9
Estrazione : 7530 RitMax : 22 InccrRitMax : 1
Estrazione : 8299 RitMax : 31 InccrRitMax : 9
Estrazione : 8961 RitMax : 34 InccrRitMax : 3
Estrazione : 9844 RitMax : 43 InccrRitMax : 9

Vedi l'allegato 2207136

Anche in questo caso è uscito a colpo la sorte di ricerca-1 ovvero solo il 37 visto che questa volta la sorte di ricerca era solo per ambo.

Vediamo se questo tipo di tendenza "s-1" prosegue con la formazione teoricamente doc sottostante (chi vuole visualizzi da sè in output il relativo grafico con lo script condiviso precedentemente più sopra):

4.5.6.7.13.16.18.19.21.22.23.26.27.28.35

s:3
s auspicata a colpo: s-1: 2
ruota: NZ
3 incmax att=sto
crt1

curiosità extra al riguardo: questa volta per rilevarla ci sono volute oltre 6 ore



Nessuna Certezza Solo Pochissima Probabilità

 

[lotto_tom75]

Prox frontiera di studio? 15ina rs3 x A su TT analizzata x incmax su TT sep 2a2

Piccolo esempio di grafico x A in 7ina dell'unica risultanza su 6435 x ognuna delle 55 coppie analizzate (ruote dell'es. MIRO).



Questa nuova analisi statistica considera ogni volta due ruote unite e un micro gruppo base di soli 15 elementi doc.

[continue...]

 

[lotto_tom75]

Prox frontiera di studio? 15ina rs3 x A su TT analizzata x incmax su TT sep 2a2

Piccolo esempio di grafico x A in 7ina dell'unica risultanza su 6435 x ognuna delle 55 coppie analizzate (ruote dell'es. MIRO).

Vedi l'allegato 2207492

Questa nuova analisi statistica considera ogni volta due ruote unite e un micro gruppo base di soli 15 elementi doc.

[continue...]

Esperimento riuscito...

Chi vuole controlli infatti la seguente 7ina sperimentale... se ha lo stesso grafico o meno rispetto a quello soprastante




Adesso cercherò di capire, condividendo i relativi vari passaggi... di sviluppo "conservativo", perchè è uscito il 40-75 rispetto la 7ina "provata"...


Range analisi : [00001] [ 1 ] 07.01.1871 - [09847] [119] 14.11.2020
Filtro Esaminato : aElencoIncrRitMax(nUpper) = mIncrRitardoMaxSto
Classe di sviluppo : 7
Lunghette esaminate : 6435 Valide : 1
Sorte : Ambo
Ruote : MIRO
Numero Minimo IncrRit : 02

Lunghette ordinate per incremento ritardo max

Numeri Formazione : 19.40.47.53.61.65.75
Ritardo : 72
RitMax : 72
Freq : 1054
IncrRitMx : 17
IncrRitMaxSto : 17
strIncrementi : 11.17.10.17.17
Numero Incrementi : 4



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

formazione: 53 - FQ 1133 - RA 22 - RS 72 - DIFF 50 - INCMAX 0 - contatore 1
formazione: 19 - FQ 1120 - RA 1 - RS 56 - DIFF 55 - INCMAX 0 - contatore 2
formazione: 40 - FQ 1115 - RA 6 - RS 75 - DIFF 69 - INCMAX 0 - contatore 3
formazione: 75 - FQ 1111 - RA 2 - RS 68 - DIFF 66 - INCMAX 0 - contatore 4
formazione: 61 - FQ 1082 - RA 4 - RS 54 - DIFF 50 - INCMAX 0 - contatore 5
formazione: 47 - FQ 1048 - RA 10 - RS 71 - DIFF 61 - INCMAX 0 - contatore 6
formazione: 65 - FQ 1041 - RA 10 - RS 88 - DIFF 78 - INCMAX 0 - contatore 7

Tempo trascorso: 00:00:20

Analizzando xEinE su MIRO la coppia uscita era nel gu dei primi 4 o 5 livelli di fq max.


Combinazioni di classe 3 analizzate per punti 2 sulle ruote MI RO
La seguente lista mostra le prime Combinazioni In Base al valore di Frequenza
Range analizzato [00001] [ 1 ] 07.01.1871 fino a [09847] [119] 14.11.2020
Estrazioni analizzate totali : 9847

...

formazione: 40.47.75 - FQ 127 - RA 82 - RS 363 - DIFF 281 - INCMAX 0 - contatore 35

Tempo trascorso: 00:00:20

Analizzando xAinTERZINA su MIRO la coppia uscita era nel 1° livello di fq min unica.

Combinazioni di classe 5 analizzate per punti 2 sulle ruote MI RO
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [00001] [ 1 ] 07.01.1871 fino a [09847] [119] 14.11.2020
Estrazioni analizzate totali : 9847

formazione: 40.47.53.61.75 - FQ 482 - RA 82 - RS 133 - DIFF 51 - INCMAX 0 - contatore 1
formazione: 19.40.47.61.75 - FQ 504 - RA 82 - RS 169 - DIFF 87 - INCMAX 0 - contatore 2
formazione: 40.47.53.65.75 - FQ 480 - RA 80 - RS 139 - DIFF 59 - INCMAX 0 - contatore 3
formazione: 19.40.47.65.75 - FQ 482 - RA 80 - RS 149 - DIFF 69 - INCMAX 0 - contatore 4

...

Analizzando xAinCINQUINA su MIRO la coppia uscita era nel 1° e 2° livello di ra max in doppia isocronia.

Continuando l'analisi per cercare di isolare il prossimo ambo derivante da formazione eventuale "analoga"...


Combinazioni di classe 1 analizzate per punti 1 sulle ruote MI
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [00001] [ 1 ] 07.01.1871 fino a [09847] [119] 14.11.2020
Estrazioni analizzate totali : 9847

formazione: 61 - FQ 546 - RA 66 - RS 129 - DIFF 63 - INCMAX 0 - contatore 1
formazione: 53 - FQ 595 - RA 63 - RS 117 - DIFF 54 - INCMAX 0 - contatore 2
formazione: 19 - FQ 556 - RA 43 - RS 110 - DIFF 67 - INCMAX 0 - contatore 3
formazione: 65 - FQ 513 - RA 18 - RS 102 - DIFF 84 - INCMAX 0 - contatore 4
formazione: 47 - FQ 521 - RA 10 - RS 104 - DIFF 94 - INCMAX 0 - contatore 5
--------------------------------------------------------------------- GU PRIMI DUE LIVELLI DI RA MIN
formazione: 40 - FQ 556 - RA 8 - RS 131 - DIFF 123 - INCMAX 0 - contatore 6
formazione: 75 - FQ 546 - RA 2 - RS 159 - DIFF 157 - INCMAX 0 - contatore 7

Tempo trascorso: 00:00:17


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 [09847] [119] 14.11.2020
Estrazioni analizzate totali : 9847

formazione: 75 - FQ 565 - RA 21 - RS 120 - DIFF 99 - INCMAX 0 - contatore 1
formazione: 19 - FQ 564 - RA 1 - RS 115 - DIFF 114 - INCMAX 0 - contatore 2
formazione: 40 - FQ 559 - RA 6 - RS 99 - DIFF 93 - INCMAX 0 - contatore 3
---------------------------------------------------------------------------- GU PRIMI 3 LIVELLI DI FQ MAX
formazione: 53 - FQ 538 - RA 22 - RS 109 - DIFF 87 - INCMAX 0 - contatore 4
formazione: 61 - FQ 536 - RA 4 - RS 94 - DIFF 90 - INCMAX 0 - contatore 5
formazione: 65 - FQ 528 - RA 10 - RS 125 - DIFF 115 - INCMAX 0 - contatore 6
formazione: 47 - FQ 527 - RA 53 - RS 109 - DIFF 56 - INCMAX 0 - contatore 7

Tempo trascorso: 00:00:27


Combinazioni di classe 2 analizzate per punti 2 sulle ruote RO
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [00001] [ 1 ] 07.01.1871 fino a [09847] [119] 14.11.2020
Estrazioni analizzate totali : 9847

formazione: 53.61 - FQ 19 - RA 876 - RS 1570 - DIFF 694 - INCMAX 0 - contatore 1
formazione: 40.61 - FQ 21 - RA 876 - RS 1366 - DIFF 490 - INCMAX 0 - contatore 2
formazione: 40.53 - FQ 29 - RA 829 - RS 1303 - DIFF 474 - INCMAX 0 - contatore 3
formazione: 47.61 - FQ 29 - RA 685 - RS 862 - DIFF 177 - INCMAX 0 - contatore 4
formazione: 19.65 - FQ 20 - RA 652 - RS 1636 - DIFF 984 - INCMAX 0 - contatore 5
formazione: 19.75 - FQ 32 - RA 649 - RS 1178 - DIFF 529 - INCMAX 0 - contatore 6
formazione: 40.65 - FQ 28 - RA 638 - RS 999 - DIFF 361 - INCMAX 0 - contatore 7
formazione: 53.75 - FQ 23 - RA 588 - RS 1205 - DIFF 617 - INCMAX 0 - contatore 8
formazione: 53.65 - FQ 18 - RA 336 - RS 1703 - DIFF 1367 - INCMAX 0 - contatore 9
formazione: 40.47 - FQ 24 - RA 314 - RS 1848 - DIFF 1534 - INCMAX 0 - contatore 10
formazione: 61.65 - FQ 28 - RA 225 - RS 1260 - DIFF 1035 - INCMAX 0 - contatore 11
formazione: 47.53 - FQ 20 - RA 222 - RS 1358 - DIFF 1136 - INCMAX 0 - contatore 12
formazione: 19.53 - FQ 25 - RA 222 - RS 2129 - DIFF 1907 - INCMAX 0 - contatore 13
formazione: 19.47 - FQ 21 - RA 222 - RS 1560 - DIFF 1338 - INCMAX 0 - contatore 14
formazione: 19.40 - FQ 24 - RA 217 - RS 1233 - DIFF 1016 - INCMAX 0 - contatore 15
formazione: 47.75 - FQ 22 - RA 176 - RS 1779 - DIFF 1603 - INCMAX 0 - contatore 16
formazione: 65.75 - FQ 34 - RA 165 - RS 1362 - DIFF 1197 - INCMAX 0 - contatore 17
formazione: 61.75 - FQ 29 - RA 137 - RS 1297 - DIFF 1160 - INCMAX 0 - contatore 18
formazione: 19.61 - FQ 29 - RA 107 - RS 1914 - DIFF 1807 - INCMAX 0 - contatore 19
-------------------------------------------------------------------------------------- 2° RA MIN
formazione: 40.75 - FQ 19 - RA 82 - RS 1952 - DIFF 1870 - INCMAX 0 - contatore 20
formazione: 47.65 - FQ 31 - RA 80 - RS 1040 - DIFF 960 - INCMAX 0 - contatore 21

Tempo trascorso: 00:00:15



Combinazioni di classe 2 analizzate per punti 2 sulle ruote TT
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [00001] [ 1 ] 07.01.1871 fino a [09847] [119] 14.11.2020
Estrazioni analizzate totali : 9847

formazione: 61.75 - FQ 244 - RA 133 - RS 239 - DIFF 106 - INCMAX 0 - contatore 1
formazione: 19.75 - FQ 230 - RA 110 - RS 329 - DIFF 219 - INCMAX 0 - contatore 2
formazione: 40.75 - FQ 231 - RA 82 - RS 384 - DIFF 302 - INCMAX 0 - contatore 3
--------------------------------------------------------------------------------- 3° RA MAX X A SU TT
formazione: 61.65 - FQ 241 - RA 76 - RS 324 - DIFF 248 - INCMAX 0 - contatore 4
formazione: 19.40 - FQ 235 - RA 60 - RS 232 - DIFF 172 - INCMAX 0 - contatore 5
formazione: 47.53 - FQ 216 - RA 57 - RS 205 - DIFF 148 - INCMAX 0 - contatore 6
formazione: 40.65 - FQ 234 - RA 41 - RS 199 - DIFF 158 - INCMAX 0 - contatore 7
formazione: 19.61 - FQ 259 - RA 33 - RS 177 - DIFF 144 - INCMAX 0 - contatore 8
formazione: 40.47 - FQ 252 - RA 28 - RS 279 - DIFF 251 - INCMAX 0 - contatore 9
formazione: 19.47 - FQ 236 - RA 20 - RS 187 - DIFF 167 - INCMAX 0 - contatore 10
formazione: 19.53 - FQ 266 - RA 16 - RS 229 - DIFF 213 - INCMAX 0 - contatore 11
formazione: 53.61 - FQ 231 - RA 15 - RS 204 - DIFF 189 - INCMAX 0 - contatore 12
formazione: 40.53 - FQ 230 - RA 15 - RS 183 - DIFF 168 - INCMAX 0 - contatore 13
formazione: 47.75 - FQ 237 - RA 14 - RS 307 - DIFF 293 - INCMAX 0 - contatore 14
formazione: 47.61 - FQ 218 - RA 11 - RS 206 - DIFF 195 - INCMAX 0 - contatore 15
formazione: 19.65 - FQ 234 - RA 11 - RS 379 - DIFF 368 - INCMAX 0 - contatore 16
formazione: 47.65 - FQ 232 - RA 6 - RS 254 - DIFF 248 - INCMAX 0 - contatore 17
formazione: 40.61 - FQ 216 - RA 3 - RS 256 - DIFF 253 - INCMAX 0 - contatore 18
formazione: 65.75 - FQ 239 - RA 2 - RS 277 - DIFF 275 - INCMAX 0 - contatore 19
formazione: 53.75 - FQ 238 - RA 2 - RS 161 - DIFF 159 - INCMAX 0 - contatore 20
formazione: 53.65 - FQ 230 - RA 2 - RS 270 - DIFF 268 - INCMAX 0 - contatore 21

Tempo trascorso: 00:00:14



Combinazioni di classe 3 analizzate per punti 2 sulle ruote TT
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [00001] [ 1 ] 07.01.1871 fino a [09847] [119] 14.11.2020
Estrazioni analizzate totali : 9847

--- 1° RA MAX UNICO x A in terzina su TT
formazione: 19.40.75 - FQ 696 - RA 60 - RS 112 - DIFF 52 - INCMAX 0 - contatore 1
----------------------------------------------------------------------------------------------------------
formazione: 19.61.75 - FQ 733 - RA 33 - RS 96 - DIFF 63 - INCMAX 0 - contatore 2
formazione: 19.40.47 - FQ 723 - RA 20 - RS 98 - DIFF 78 - INCMAX 0 - contatore 3
formazione: 19.47.53 - FQ 718 - RA 16 - RS 80 - DIFF 64 - INCMAX 0 - contatore 4
formazione: 40.47.53 - FQ 698 - RA 15 - RS 114 - DIFF 99 - INCMAX 0 - contatore 5
formazione: 19.53.61 - FQ 756 - RA 15 - RS 118 - DIFF 103 - INCMAX 0 - contatore 6
formazione: 19.40.53 - FQ 731 - RA 15 - RS 80 - DIFF 65 - INCMAX 0 - contatore 7
formazione: 40.47.75 - FQ 720 - RA 14 - RS 87 - DIFF 73 - INCMAX 0 - contatore 8
formazione: 19.47.75 - FQ 703 - RA 14 - RS 126 - DIFF 112 - INCMAX 0 - contatore 9
formazione: 47.61.75 - FQ 699 - RA 11 - RS 108 - DIFF 97 - INCMAX 0 - contatore 10
formazione: 47.53.61 - FQ 665 - RA 11 - RS 108 - DIFF 97 - INCMAX 0 - contatore 11
formazione: 19.61.65 - FQ 734 - RA 11 - RS 94 - DIFF 83 - INCMAX 0 - contatore 12
formazione: 19.47.61 - FQ 713 - RA 11 - RS 87 - DIFF 76 - INCMAX 0 - contatore 13
formazione: 19.40.65 - FQ 703 - RA 11 - RS 121 - DIFF 110 - INCMAX 0 - contatore 14
formazione: 47.61.65 - FQ 691 - RA 6 - RS 76 - DIFF 70 - INCMAX 0 - contatore 15
formazione: 40.47.65 - FQ 718 - RA 6 - RS 120 - DIFF 114 - INCMAX 0 - contatore 16
formazione: 19.47.65 - FQ 702 - RA 6 - RS 90 - DIFF 84 - INCMAX 0 - contatore 17
formazione: 40.61.75 - FQ 691 - RA 3 - RS 79 - DIFF 76 - INCMAX 0 - contatore 18
formazione: 40.61.65 - FQ 691 - RA 3 - RS 85 - DIFF 82 - INCMAX 0 - contatore 19
formazione: 40.53.61 - FQ 677 - RA 3 - RS 87 - DIFF 84 - INCMAX 0 - contatore 20
formazione: 40.47.61 - FQ 686 - RA 3 - RS 147 - DIFF 144 - INCMAX 0 - contatore 21
formazione: 19.40.61 - FQ 710 - RA 3 - RS 115 - DIFF 112 - INCMAX 0 - contatore 22
formazione: 61.65.75 - FQ 724 - RA 2 - RS 139 - DIFF 137 - INCMAX 0 - contatore 23
formazione: 53.65.75 - FQ 707 - RA 2 - RS 124 - DIFF 122 - INCMAX 0 - contatore 24
formazione: 53.61.75 - FQ 713 - RA 2 - RS 91 - DIFF 89 - INCMAX 0 - contatore 25
formazione: 53.61.65 - FQ 702 - RA 2 - RS 86 - DIFF 84 - INCMAX 0 - contatore 26
formazione: 47.65.75 - FQ 708 - RA 2 - RS 121 - DIFF 119 - INCMAX 0 - contatore 27
formazione: 47.53.75 - FQ 691 - RA 2 - RS 101 - DIFF 99 - INCMAX 0 - contatore 28
formazione: 47.53.65 - FQ 678 - RA 2 - RS 87 - DIFF 85 - INCMAX 0 - contatore 29
formazione: 40.65.75 - FQ 704 - RA 2 - RS 151 - DIFF 149 - INCMAX 0 - contatore 30
formazione: 40.53.75 - FQ 699 - RA 2 - RS 123 - DIFF 121 - INCMAX 0 - contatore 31
formazione: 40.53.65 - FQ 694 - RA 2 - RS 96 - DIFF 94 - INCMAX 0 - contatore 32
formazione: 19.65.75 - FQ 703 - RA 2 - RS 124 - DIFF 122 - INCMAX 0 - contatore 33
formazione: 19.53.75 - FQ 734 - RA 2 - RS 100 - DIFF 98 - INCMAX 0 - contatore 34
formazione: 19.53.65 - FQ 730 - RA 2 - RS 120 - DIFF 118 - INCMAX 0 - contatore 35

Tempo trascorso: 00:00:18


La prossima formazione in caduta di almeno 2 punti... potrebbe essere questa sottostante... anche se rispetto alla 7ina precedente e soprastante è nettamente svantaggiata dal punto di vista di "andamento incmax" e di quello del numero di elementi costituenti.

Sulla ruota di : BA TO
Classe di sviluppo : quella decisa
Sorte ricercata : 2
Formazione analizzata : 40.43.53.65.75.82
Da Estrazione : [00001] [ 1 ] 07.01.1871
A Estrazione : [09848] [120] 17.11.2020

Ritardo : 77
RitardoMax : 77
Frequenza : 691

Dettaglio evoluzione RitMax
Estrazione : 48 RitMax : 48 InccrRitMax : 48
Estrazione : 1463 RitMax : 53 InccrRitMax : 5
Estrazione : 1670 RitMax : 55 InccrRitMax : 2
Estrazione : 2548 RitMax : 61 InccrRitMax : 6
Estrazione : 3379 RitMax : 69 InccrRitMax : 8
Estrazione : 9848 RitMax : 77 InccrRitMax : 8




Purtroppo infatti come suo primo ra ha un altissimo 48... il che teoricamente farebbe schizzare i colpi teorici ad un improponibile valore di 40 punti (=48-8). Ad ogni modo spesso, statisticamente parlando, la presenza di una cuspide di questo tipo non inficia l'andamento finale dell'incmax eventualmente contenuto come quello relativo alla formazione in oggetto e quindi proverò comunque ad attendere il teorico sfaldamento su una delle due ruote rilevate entro max 5 colpi teorici.

Nessunissima Certezza Solo Una Remotissima Probabilità Che L'Evento Auspicato Accada...

 

[lotto_tom75]

Visto che qui di volontari disposti a venire alla lavagna... per proporre delle risposte al riguardo ce ne sono davvero pochi... oggi proseguo io... con l'elenco di altre possibilità di riduzione del valore incmax

3) considerare + ruote unite
4) considerare lunghette base di partenza doc con parametri specifici doc

Al momento non me ne vengono altre in mente... Se e appena mi si paleseranno le aggiungerò a questa breve lista

Se a qualcuno/a oltre Sasa interessa l'argomento poi posterò anche uno scriptino che molti anni fa richiesi ai grandi Luigi e I legend, che saluto, e che appunto serve ad analizzare "manualmente" le situazione di incmax teoricamente ottimale a partire da una qualsivoglia propria micro,media o macro lunghetta ottenuta da un qualunque proprio sviluppo riduzionale predittivo. Così sarà possibile seguire anche per ognuno personalmente i vari eventuali futuri esempi analoghi ai precedenti postati sopra con tanto di dettagli parametrici relativi.

Es. di andamento incmax in 5inaxA su FIROTO


Ovviamente in questi casi, rispetto a considerare 2 ruote unite considerandone tre, aumenta la fq e spesso si abbassa anche il valore max di incmax (linea rossa) teoricamente ottimale, che funge appunto da segnalino per i teorici esiti in pochi colpi nella classe, sorte e ruote della ricerca di volta in volta impostate... [continue...]

 

[Ciccio90]

Es. di andamento incmax in 5inaxA su FIROTO
Vedi l'allegato 2207616

Ovviamente rispetto a considerare 2 ruote unite in questo caso considerandone tre aumenta la fq e spesso si abbassa anche il valore max di incmax [continue...]

CIAO LOTTOTOM.
SEI BRAVISSIMO. TI LEGGO SEMPRE, QUANDO GLI OCCHI ME LO PERMETTONO.
IL 48, E" SU BARI, TORINO?
SCUSAMI PER LA DOMANDA

 

[lotto_tom75]

CIAO LOTTOTOM.
SEI BRAVISSIMO. TI LEGGO SEMPRE, QUANDO GLI OCCHI ME LO PERMETTONO.
IL 48, E" SU BARI, TORINO?
SCUSAMI PER LA DOMANDA

Grazie Ciccio90 per i complimenti sei davvero gentile. Ad ogni modo per il 48 credo tu mi stia confondendo con qualche altro previsionista dato che al momento non l'ho da nessuna parte io. Ciao

 

[lotto_tom75]

Es. di andamento incmax in 5inaxA su FIROTO
Vedi l'allegato 2207616

Ovviamente in questi casi, rispetto a considerare 2 ruote unite considerandone tre, aumenta la fq e spesso si abbassa anche il valore max di incmax (linea rossa) teoricamente ottimale, che funge appunto da segnalino per i teorici esiti in pochi colpi nella classe, sorte e ruote della ricerca di volta in volta impostate... [continue...]

Anche se sembra interessare davvero a pochi, quantomeno a livello di interazione , provo a proseguire questo argomento... per le 2k visite comunque ottenute , tra le quali forse ci sarà comunque qualcuno/a desideroso/a di approfondirlo...

Oggi mi limiterò ad aggiungere questo:

Statisticamente... più la linea rossa facente parte dei 9/10 della stessa è lunga... e nel contempo più il valore di incmax att=sto che la rende tale è basso (es. <= 20) e più corto sarà in teoria... il prolungamento finale in altezza rispetto la data di rilevamento... Tradotto: per incmax att=sto superiori alle tre unità e con nel contempo valori molto bassi per il rispettivo valore massimo e comunque non superiori a 20 punti la probabilità che la formazione interessata sfaldi entro pochi colpi la rispettiva sorte di ricerca è teoricamente e statisticamente molto elevata

 

[Ciccio90]

Grazie Ciccio90 per i complimenti sei davvero gentile. Ad ogni modo per il 48 credo tu mi stia confondendo con qualche altro previsionista dato che al momento non l'ho da nessuna parte io. Ciao

NON HO CAPITO QUALE E" LA PREVISIONE DA GIOCARE.
SCUSAM LOTTOTOM.
BUONA DOMENICA, E GRAZIE.

 

[lotto_tom75]

NON HO CAPITO QUALE E" LA PREVISIONE DA GIOCARE.
SCUSAM LOTTOTOM.
BUONA DOMENICA, E GRAZIE.

Qui in questo thread se vuoi c'è quella mostrata sopra su BATO per i colpi indicati. Poi per le altre (mie e non) ti basta cercarle con il motore di ricerca interno al forum (che trovi in alto a destra) e vedere le ultime eventualmente in corso. Ciao

 

[lotto_tom75]

Continuando... l'argomento...

BAMIPA 61.85

Con l'analisi di tipo incmax, specialmente analizzando gruppi base già di per sè interessanti statisticamente parlando per la sorte di ricerca desiderata (es. 20ina rs1), si possono estrapolare, su una o più ruote unite, anche situazioni di questo tipo a incmax 0 piuttosto interessanti...

61-85;PA;Ambo;976;1403;0;25;25;2,4835;119;304;159;
61-85;MI;Ambo;855;2065;0;18;18;1,5631;109;96;1041;
61-85;BA;Ambo;714;2337;0;21;21;1,5488;556;506;86;
61-85;BA MI PA;Ambo;714;714;0;64;64;4,6364;140;109;10;

Analizzando in altro modo, ad esempio valutando ExE su TT separate by 90 sarebbe arduo ipotizzare una simile siituazione... teoricamente ottimale xE/a a colpo.

I singoli numeri con i rispettivi RA, sottostanti, infatti sarebbero alquanto difficili... da scegliere rispetto a tutti gli altri 88 elementi per le rispettive singole ruote... restanti.

61;BA;Estratto;0;144;0;541;541;0;4;11;20;
61;MI;Estratto;72;129;0;546;546;4;9;82;22;
61;PA;Estratto;4;129;0;557;557;0,2222;2;1;16;
85;BA;Estratto;10;135;0;543;543;0,5556;16;4;13;
85;MI;Estratto;9;133;0;531;531;0,4737;40;11;13;
85;PA;Estratto;3;118;0;567;567;0,1765;18;2;58;





Nessuna Certezza Solo Poca Probabilità

 

[villa48]

Buona giornata lotto_tom75.

Come da previsione: 61-85 BA-MI-PA
Da TAB-UNITE BA-MI-PA alla 9853 del 28/11/2020


Fermo restando la previsione di AMBO 61-85 su BA-MI-PA da te proposta, proporrei degli abbinamenti per TERNO:

BA-MI-PA (61-85) / 32-03-41-19-68-55-01 NOVINA X TERNO SU 3 RUOTE (IL GIOCO E' DINAMICO a colpo) .

Nessuna Certezza Solo Poca Probabilità .....................................

 

[villa48]

Verifica previsione precedente
BA-MI-PA (61-85) / 32-03-41-19-68-55-01 NOVINA X TERNO SU 3 RUOTE (IL GIOCO E' DINAMICO a colpo)



BARI AMBO 85 (CG) - 01 (ABB)

Prossima estrazione:
BA-MI-PA (61-85) / 32-03-41-19-68-55 OTTINA X TERNO SU 3 RUOTE (IL GIOCO E' DINAMICO a colpo)

Buona giornata, Antonio

 

[lotto_tom75]

Verifica previsione precedente
BA-MI-PA (61-85) / 32-03-41-19-68-55-01 NOVINA X TERNO SU 3 RUOTE (IL GIOCO E' DINAMICO a colpo)

Vedi l'allegato 2208106

BARI AMBO 85 (CG) - 01 (ABB)

Prossima estrazione:
BA-MI-PA (61-85) / 32-03-41-19-68-55 OTTINA X TERNO SU 3 RUOTE (IL GIOCO E' DINAMICO a colpo)

Buona giornata, Antonio

Villa48 wow! Ho letto bene?? Hai centrato ambo secco a colpo 1-85??? Se così... complimentissimi!!!! e aspettiamo nella relativa sezione di questo forum la tua cedolinaa

Purtroppo io non l'ho proprio visto, anche per problemi di connessione... , prima di adesso questo tuo interessante e vincente contributo di analisi e quindi for me nisba, nada, nothing ma grazie comunque e ti rinnovo i meritati complimenti

 

[villa48]

Villa48 wow! Ho letto bene?? Hai centrato ambo secco a colpo 1-85??? Se così... complimentissimi!!!! e aspettiamo nella relativa sezione di questo forum la tua cedolinaa

Purtroppo io non l'ho proprio visto, anche per problemi di connessione... , prima di adesso questo tuo interessante e vincente contributo di analisi e quindi for me nisba, nada, nothing ma grazie comunque e ti rinnovo i meritati complimenti

Mi dispiace che non hai visto il mio post di abbinamenti al tuo AMBO SU BA-MI-PA 61-85
Gli abbinamenti: 32-03-41-19-68-55-01 x TERNO



Il post precedente era solo una verifica, mi scuso se non sono stato chiaro, Antonio

 

[lotto_tom75]

Mi dispiace che non hai visto il mio post di abbinamenti al tuo AMBO SU BA-MI-PA 61-85
Gli abbinamenti: 32-03-41-19-68-55-01 x TERNO

Vedi l'allegato 2208135

Il post precedente era solo una verifica, mi scuso se non sono stato chiaro, Antonio

Ah ok quindi niente ambo anche per te . Ad ogni modo complimenti ugualmente per l'A in 9ina a colpo su BA che avevi estrapolato per la sorte uscita+1 (il terno).

Riprendendo l'argomento di questo thread... chi vuole si diverta a vedere, con lo script sopra condiviso atto allo scopo, questa 6ina x A su BACAFIGEMINAPAROTONZ che andamento incmax ha...

17.19.21.28.31.66

 

[lotto_tom75]

Ah ok quindi niente ambo anche per te . Ad ogni modo complimenti ugualmente per l'A in 9ina a colpo su BA che avevi estrapolato per la sorte uscita+1 (il terno).

Riprendendo l'argomento di questo thread... chi vuole si diverta a vedere, con lo script sopra condiviso atto allo scopo, questa 6ina x A su BACAFIGEMINAPAROTONZ che andamento incmax ha...

17.19.21.28.31.66

Al 3° colpo

130;10/12/2020;17 66 ;2;Firenze;18.17.66.30.46;
130;10/12/2020;19 17 ;2;Genova;19.26.01.69.17;
-------------------------------------------------------------------------

al 4° colpo

131;12/12/2020;28 21 ;2;Milano;28.78.64.21.27;

Tanto per chiudere l'argomento...

 

[claudio8]

Nonostante attualmente il pubblico dei "like" e commenti... x questo thread con +500 visite sia piuttosto esiguo... Ecco lo scriptino menzionato sopra e realizzatomi su mia richiesta diversi anni fa dai grandi LuigiB e I legend, che risaluto e ringrazio, e che serve per analizzare qualsiasi formazione di classe da 1 a 90 dal punto di vista incmax ovvero appunto dalla specifica e interessante prospettiva dell'incremento massimo di ritardo protratto nel tempo...

Option Explicit 'mod
Class clsParStat
   Dim idEstr
   Dim RitMax
   Dim IncrRitMax
End Class
Sub Main
   Dim idEstr,Ruota,Sorte
   Dim Inizio,Fine
   Dim k,p,i,r,pMax
   Dim Rit,RitMax,IncRitMax,Fre
   Dim collStoria
   Dim cParStat
   Dim bEstrValida
   Set collStoria = GetNewCollection
   Inizio = EstrazioneIni
   Fine = EstrazioneFin
   ReDim aN(90)
   If ScegliFormazione(aN) Then
      ReDim aRuoteSel(12)
      Ruota = ScegliRuotaEx(aRuoteSel)
      Sorte = ScegliEsito
      If Ruota > 0 And Sorte > 0 Then
         For idEstr = Inizio To Fine
            If Ruota = 11 Then
               bEstrValida = False
               pMax = 0
               For r = 1 To 10
                  If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                  p = 0
                  For k = 1 To 5
                     If aN(Estratto(idEstr,r,k)) Then
                        p = p + 1
                     End If
                  Next
                  If p > pMax Then pMax = p
               Next
               If bEstrValida Then
                  If pMax >= Sorte Then
                     If IncRitMax > 0 Then
                        Set cParStat = New clsParStat
                        cParStat.idEstr = idEstr - 1
                        cParStat.RitMax = RitMax
                        cParStat.IncrRitMax = IncRitMax
                        collStoria.Add cParStat
                     End If
                     Rit = 0
                     Fre = Fre + 1
                     IncRitMax = 0
                  Else
                     Rit = Rit + 1
                     If Rit > RitMax Then
                        IncRitMax = IncRitMax + 1
                        RitMax = Rit
                     End If
                  End If
               End If
          
            ElseIf Ruota = 13 Then
               bEstrValida = False
               pMax = 0
               For r = 1 To 12
                  If aRuoteSel(r) Then
                     If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                     p = 0
                     For k = 1 To 5
                        If aN(Estratto(idEstr,r,k)) Then
                           p = p + 1
                        End If
                     Next
                     If p > pMax Then pMax = p
                  End If
               Next
               If bEstrValida Then
                  If pMax >= Sorte Then
                     If IncRitMax > 0 Then
                        Set cParStat = New clsParStat
                        cParStat.idEstr = idEstr - 1
                        cParStat.RitMax = RitMax
                        cParStat.IncrRitMax = IncRitMax
                        collStoria.Add cParStat
                     End If
                     Rit = 0
                     Fre = Fre + 1
                     IncRitMax = 0
                  Else
                     Rit = Rit + 1
                     If Rit > RitMax Then
                        IncRitMax = IncRitMax + 1
                        RitMax = Rit
                     End If
                  End If
               End If

            Else
               If Estratto(idEstr,Ruota,1) > 0 Then
                  p = 0
                  For k = 1 To 5
                     If aN(Estratto(idEstr,Ruota,k)) Then
                        p = p + 1
                     End If
                  Next
                  If p >= Sorte Then
                     If IncRitMax > 0 Then
                        Set cParStat = New clsParStat
                        cParStat.idEstr = idEstr - 1
                        cParStat.RitMax = RitMax
                        cParStat.IncrRitMax = IncRitMax
                        collStoria.Add cParStat
                     End If
                     Rit = 0
                     Fre = Fre + 1
                     IncRitMax = 0
                  Else
                     Rit = Rit + 1
                     If Rit > RitMax Then
                        IncRitMax = IncRitMax + 1
                        RitMax = Rit
                     End If
                  End If
               End If
            End If
            Call AvanzamentoElab(Inizio,Fine,idEstr)
            If ScriptInterrotto Then Exit For
         Next
         If IncRitMax > 0 Then
            Set cParStat = New clsParStat
            cParStat.idEstr = idEstr - 1
            cParStat.RitMax = RitMax
            cParStat.IncrRitMax = IncRitMax
            collStoria.Add cParStat
         End If
         Call GestioneOutput(collStoria,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Fre,aRuoteSel)
      Else
         MsgBox "Ruota non valida"
      End If
   End If
End Sub
Function ScegliFormazione(aN)
   Dim sFormazione
   Dim k,i
   sFormazione = InputBox("Inserire la formazione da analizzare separando i numeri che la compongono con il punto",,"1.10.20")
   ReDim aV(0)
   Call SplitByChar(sFormazione,".",aV)
   For k = 0 To UBound(aV)
      If Int(aV(k)) > 0 And Int(aV(k)) <= 90 Then
         aN(Int(aV(k))) = True
         i = i + 1
      End If
   Next
   If i > 0 Then ScegliFormazione = True
End Function
Sub GestioneOutput(coll,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Fre,aRuoteSel)
   Dim x,y,k
   Dim sFrz
   Dim clsP
   For k = 1 To 90
      If aN(k) Then
         sFrz = sFrz & Format2(k) & "."
      End If
   Next
   sFrz = Left(sFrz,Len(sFrz) - 1)
   If Ruota = 13 Then
      Call Scrivi("Sulla ruota di        : " & GetStringaRuote(aRuoteSel))

   Else
      Call Scrivi("Sulla ruota di        : " & NomeRuota(Ruota))
   End If
   Call Scrivi("Classe di sviluppo     : " & "quella decisa")
   Call Scrivi("Sorte ricercata       : " & Sorte)
   Call Scrivi("Formazione analizzata : " & sFrz)
   Call Scrivi("Da Estrazione         : " & GetInfoEstrazione(Inizio))
   Call Scrivi("A  Estrazione         : " & GetInfoEstrazione(Fine))
   Call Scrivi
   Call Scrivi("Ritardo              : " & Rit)
   Call Scrivi("RitardoMax           : " & RitMax)
   Call Scrivi("Frequenza            : " & Fre)
   Call Scrivi
   Call Scrivi("Dettaglio evoluzione RitMax",True)
   For Each clsP In coll
      Call Scrivi("Estrazione : " & FormatSpace(clsP.idEstr,5,True) & _
      " RitMax : " & FormatSpace(clsP.RitMax,5,True) & _
      " InccrRitMax : " & FormatSpace(clsP.IncrRitMax,5,True))
   Next
   Call Scrivi
   Call Scrivi("Grafico di confronto RitMax / IncRitMax",True)
   Call PreparaGrafico("",0,coll.count,0,RitMax,1,5)
   ' prima riga
   ReDim aV(coll.count,2)
   For Each clsP In coll
      x = x + 1
      aV(x,1) = x
      aV(x,2) = clsP.RitMax
   Next
   Call DisegnaLineaGrafico(aV,vbBlue,"RitMax")
   x = 0
   ReDim aV(coll.count,2)
   For Each clsP In coll
      x = x + 1
      aV(x,1) = x
      aV(x,2) = clsP.IncrRitMax
   Next
   Call DisegnaLineaGrafico(aV,vbRed,"IncRitMax")
   ' scrive grafico nell'output
   Call InserisciGrafico
End Sub
Function GetStringaRuote(aRuoteSel)
   Dim k
   Dim s

   For k = 1 To 12
      If aRuoteSel(k) Then
         s = s & SiglaRuota(k) & " "
      End If
   Next
   GetStringaRuote = s
End Function
Function ScegliRuotaEx(aRuoteSel)

   Dim k

   If MsgBox("Vuoi elaborare su piu ruote ?",vbQuestion + vbYesNo) = vbYes Then
      ReDim aV(10)
      ReDim aVociSel(10)
 
      For k = 1 To 10
         aV(k - 1) = NomeRuota(k)
      Next
      aV(10) = "Nazionale"
 
      Call ScegliDaLista(aV,aVociSel,"Selezione ruote")
      For k = 0 To 9
         aRuoteSel(k + 1) = aVociSel(k)
      Next
      aRuoteSel(12) = aVociSel(10)
      ScegliRuotaEx = 13
   Else
      ReDim aV(12)
      For k = 1 To 12
         aV(k) = NomeRuota(k)
      Next
      ScegliRuotaEx = ScegliOpzioneMenu(aV)
   End If
End Function

per adesso forse non vi dirà un granchè ma andando avanti.., se deciderete di seguire questa breve introduzione al corposo argomento che vi sta dietro, vi renderete conto di quanto possa tornarvi utile per questo particolare tipo di ricerca...

Tom
corretto con freq lo script conteggiava le presenze.
per inserire la frequenza ho dovuto ricavare l'array per le ruote
controlla gli output e fammi sapere se è tutto ok.

Option Explicit 'mod
Class clsParStat
    Dim idEstr
    Dim RitMax
    Dim IncrRitMax
End Class
Sub Main
    Dim idEstr,Ruota,Sorte
    Dim Inizio,Fine
    Dim k,p,i,r,pMax
    Dim Rit,RitMax,IncRitMax,Pre
    Dim collStoria
    Dim cParStat
    Dim bEstrValida
    Set collStoria = GetNewCollection
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    ReDim aN(90)
    If ScegliFormazione(aN) Then
        ReDim aRuoteSel(12)
        Ruota = ScegliRuotaEx(aRuoteSel)
        Sorte = ScegliEsito
        If Ruota > 0 And Sorte > 0 Then
            For idEstr = Inizio To Fine ' ciclo estrazioni
                If Ruota = 11 Then
                    bEstrValida = False
                    pMax = 0
                    For r = 1 To 10
                        If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                        p = 0
                        For k = 1 To 5
                            If aN(Estratto(idEstr,r,k)) Then
                                p = p + 1
                            End If
                        Next
                        If p > pMax Then pMax = p
                    Next
                    If bEstrValida Then
                        If pMax >= Sorte Then
                            '''contare freq
                            If IncRitMax > 0 Then
                                Set cParStat = New clsParStat
                                cParStat.idEstr = idEstr - 1
                                cParStat.RitMax = RitMax
                                cParStat.IncrRitMax = IncRitMax
                                collStoria.Add cParStat
                            End If
                            Rit = 0
                            Pre = Pre + 1
                            IncRitMax = 0
                        Else
                            Rit = Rit + 1
                            If Rit > RitMax Then
                                IncRitMax = IncRitMax + 1
                                RitMax = Rit
                            End If
                        End If
                    End If
                ElseIf Ruota = 13 Then
                    bEstrValida = False
                    pMax = 0
                    For r = 1 To 12
                        If aRuoteSel(r) Then
                            If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                            p = 0
                            For k = 1 To 5
                                If aN(Estratto(idEstr,r,k)) Then
                                    p = p + 1
                                End If
                            Next
                            If p > pMax Then pMax = p
                        End If
                    Next
                    If bEstrValida Then
                        If pMax >= Sorte Then
                            If IncRitMax > 0 Then
                                Set cParStat = New clsParStat
                                cParStat.idEstr = idEstr - 1
                                cParStat.RitMax = RitMax
                                cParStat.IncrRitMax = IncRitMax
                                collStoria.Add cParStat
                            End If
                            Rit = 0
                            Pre = Pre + 1
                            IncRitMax = 0
                        Else
                            Rit = Rit + 1
                            If Rit > RitMax Then
                                IncRitMax = IncRitMax + 1
                                RitMax = Rit
                            End If
                        End If
                    End If
                Else
                    If Estratto(idEstr,Ruota,1) > 0 Then
                        p = 0
                        For k = 1 To 5
                            If aN(Estratto(idEstr,Ruota,k)) Then
                                p = p + 1
                            End If
                        Next
                        If p >= Sorte Then
                            If IncRitMax > 0 Then
                                Set cParStat = New clsParStat
                                cParStat.idEstr = idEstr - 1
                                cParStat.RitMax = RitMax
                                cParStat.IncrRitMax = IncRitMax
                                collStoria.Add cParStat
                            End If
                            Rit = 0
                            Pre = Pre + 1
                            IncRitMax = 0
                        Else
                            Rit = Rit + 1
                            If Rit > RitMax Then
                                IncRitMax = IncRitMax + 1
                                RitMax = Rit
                            End If
                        End If
                    End If
                End If
                Call AvanzamentoElab(Inizio,Fine,idEstr)
                If ScriptInterrotto Then Exit For
            Next ' fine ciclo estrazioni
            If IncRitMax > 0 Then
                Set cParStat = New clsParStat
                cParStat.idEstr = idEstr - 1
                cParStat.RitMax = RitMax
                cParStat.IncrRitMax = IncRitMax
                collStoria.Add cParStat
            End If
            Call GestioneOutput(collStoria,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Pre,aRuoteSel)
        Else
            MsgBox "Ruota non valida"
        End If
    End If
End Sub
Function ScegliFormazione(aN)
    Dim sFormazione
    Dim k,i
    sFormazione = InputBox("Inserire la formazione da analizzare separando i numeri che la compongono con il punto","FORMAZIONE di RICERCA","1.10.20")
    ReDim aV(0)
    Call SplitByChar(sFormazione,".",aV)
    For k = 0 To UBound(aV)
        If Int(aV(k)) > 0 And Int(aV(k)) <= 90 Then
            aN(Int(aV(k))) = True
            i = i + 1
        End If
    Next
    If i > 0 Then ScegliFormazione = True
End Function
Sub GestioneOutput(coll,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Pre,aRuoteSel)
    ReDim aNum(90)
    ReDim aRuota(1)
    Dim x,y,k,co
    Dim sFrz
    Dim clsP
    For k = 1 To 90
        If aN(k) Then
            co = co + 1
            aNum(co) = Format2(k)
            sFrz = sFrz & Format2(k) & "."
        End If
    Next
    sFrz = Left(sFrz,Len(sFrz) - 1)
    If Ruota = 13 Then
        Call Scrivi("Sulle ruote di       : " & GetStringaRuote(aRuoteSel))
        ' estrapolare le aRuotesel
    Else
        Call Scrivi("Sulla ruota di       : " & NomeRuota(Ruota))
        aRuota(1) = Ruota
    End If
    Call Scrivi("Classe di sviluppo   : " & "Quantità numeri")
    Call Scrivi("Sorte ricercata      : " & Sorte)
    Call Scrivi("Formazione analizzata: " & sFrz)
    Call Scrivi("Da Estrazione        : " & GetInfoEstrazione(Inizio))
    Call Scrivi("A  Estrazione        : " & GetInfoEstrazione(Fine))
    Call Scrivi
    Call Scrivi("Ritardo              : " & Rit)
    Call Scrivi("RitardoMax           : " & RitMax)
    Call Scrivi("Presenze             : " & Pre)
    If Ruota = 13 Then
        ReDim aRuote(12)
        For k = 1 To 12
            If k = 11 Then k = 12
            If aRuoteSel(k) Then
                aRuote(k) = k
            End If
        Next
        Call Scrivi("Frequenza            : " & SerieFreqTurbo(Inizio,Fine,aNum,aRuote,Sorte)) 'creare array delle ruote
    Else
        Call Scrivi("Frequenza            : " & SerieFreqTurbo(Inizio,Fine,aNum,aRuota,Sorte))
    End If
    Call Scrivi
    Call Scrivi("Dettaglio evoluzione RitMax",True)
    For Each clsP In coll
        Call Scrivi("Estrazione :" & FormatSpace(clsP.idEstr,5,True) & _
        "     RitMax :" & FormatSpace(clsP.RitMax,4,True) & _
        "     IncrRitMax :" & FormatSpace(clsP.IncrRitMax,3,True))
    Next
    Call Scrivi
    Call Scrivi("Grafico di confronto RitMax / IncRitMax",True)
    Call PreparaGrafico("",0,coll.count,0,RitMax,1,5)
    ' prima riga
    ReDim aV(coll.count,2)
    For Each clsP In coll
        x = x + 1
        aV(x,1) = x
        aV(x,2) = clsP.RitMax
    Next
    Call DisegnaLineaGrafico(aV,vbBlue,"RitMax")
    x = 0
    ReDim aV(coll.count,2)
    For Each clsP In coll
        x = x + 1
        aV(x,1) = x
        aV(x,2) = clsP.IncrRitMax
    Next
    Call DisegnaLineaGrafico(aV,vbRed,"IncRitMax")
    ' scrive grafico nell'output
    Call InserisciGrafico
End Sub
Function GetStringaRuote(aRuoteSel)
    Dim k
    Dim s
    For k = 1 To 12
        If aRuoteSel(k) Then
            s = s & SiglaRuota(k) & " "
        End If
    Next
    GetStringaRuote = s
End Function
Function ScegliRuotaEx(aRuoteSel)
    Dim k
    If MsgBox("Vuoi elaborare su piu ruote ?",vbQuestion + vbYesNo) = vbYes Then
        ReDim aV(10)
        ReDim aVociSel(10)
        For k = 1 To 10
            aV(k - 1) = NomeRuota(k)
        Next
        aV(10) = "Nazionale"
        Call ScegliDaLista(aV,aVociSel,"Selezione Ruote")
        For k = 0 To 9
            aRuoteSel(k + 1) = aVociSel(k)
        Next
        aRuoteSel(12) = aVociSel(10)
        ScegliRuotaEx = 13
    Else
        ReDim aV(12)
        For k = 1 To 12
            aV(k) = NomeRuota(k)
        Next
        ScegliRuotaEx = ScegliOpzioneMenu(aV)
    End If
End Function

ciao

 

[lotto_tom75]

Tom
corretto con freq lo script conteggiava le presenze.
per inserire la frequenza ho dovuto ricavare l'array per le ruote
controlla gli output e fammi sapere se è tutto ok.

Option Explicit 'mod
Class clsParStat
    Dim idEstr
    Dim RitMax
    Dim IncrRitMax
End Class
Sub Main
    Dim idEstr,Ruota,Sorte
    Dim Inizio,Fine
    Dim k,p,i,r,pMax
    Dim Rit,RitMax,IncRitMax,Pre
    Dim collStoria
    Dim cParStat
    Dim bEstrValida
    Set collStoria = GetNewCollection
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    ReDim aN(90)
    If ScegliFormazione(aN) Then
        ReDim aRuoteSel(12)
        Ruota = ScegliRuotaEx(aRuoteSel)
        Sorte = ScegliEsito
        If Ruota > 0 And Sorte > 0 Then
            For idEstr = Inizio To Fine ' ciclo estrazioni
                If Ruota = 11 Then
                    bEstrValida = False
                    pMax = 0
                    For r = 1 To 10
                        If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                        p = 0
                        For k = 1 To 5
                            If aN(Estratto(idEstr,r,k)) Then
                                p = p + 1
                            End If
                        Next
                        If p > pMax Then pMax = p
                    Next
                    If bEstrValida Then
                        If pMax >= Sorte Then
                            '''contare freq
                            If IncRitMax > 0 Then
                                Set cParStat = New clsParStat
                                cParStat.idEstr = idEstr - 1
                                cParStat.RitMax = RitMax
                                cParStat.IncrRitMax = IncRitMax
                                collStoria.Add cParStat
                            End If
                            Rit = 0
                            Pre = Pre + 1
                            IncRitMax = 0
                        Else
                            Rit = Rit + 1
                            If Rit > RitMax Then
                                IncRitMax = IncRitMax + 1
                                RitMax = Rit
                            End If
                        End If
                    End If
                ElseIf Ruota = 13 Then
                    bEstrValida = False
                    pMax = 0
                    For r = 1 To 12
                        If aRuoteSel(r) Then
                            If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                            p = 0
                            For k = 1 To 5
                                If aN(Estratto(idEstr,r,k)) Then
                                    p = p + 1
                                End If
                            Next
                            If p > pMax Then pMax = p
                        End If
                    Next
                    If bEstrValida Then
                        If pMax >= Sorte Then
                            If IncRitMax > 0 Then
                                Set cParStat = New clsParStat
                                cParStat.idEstr = idEstr - 1
                                cParStat.RitMax = RitMax
                                cParStat.IncrRitMax = IncRitMax
                                collStoria.Add cParStat
                            End If
                            Rit = 0
                            Pre = Pre + 1
                            IncRitMax = 0
                        Else
                            Rit = Rit + 1
                            If Rit > RitMax Then
                                IncRitMax = IncRitMax + 1
                                RitMax = Rit
                            End If
                        End If
                    End If
                Else
                    If Estratto(idEstr,Ruota,1) > 0 Then
                        p = 0
                        For k = 1 To 5
                            If aN(Estratto(idEstr,Ruota,k)) Then
                                p = p + 1
                            End If
                        Next
                        If p >= Sorte Then
                            If IncRitMax > 0 Then
                                Set cParStat = New clsParStat
                                cParStat.idEstr = idEstr - 1
                                cParStat.RitMax = RitMax
                                cParStat.IncrRitMax = IncRitMax
                                collStoria.Add cParStat
                            End If
                            Rit = 0
                            Pre = Pre + 1
                            IncRitMax = 0
                        Else
                            Rit = Rit + 1
                            If Rit > RitMax Then
                                IncRitMax = IncRitMax + 1
                                RitMax = Rit
                            End If
                        End If
                    End If
                End If
                Call AvanzamentoElab(Inizio,Fine,idEstr)
                If ScriptInterrotto Then Exit For
            Next ' fine ciclo estrazioni
            If IncRitMax > 0 Then
                Set cParStat = New clsParStat
                cParStat.idEstr = idEstr - 1
                cParStat.RitMax = RitMax
                cParStat.IncrRitMax = IncRitMax
                collStoria.Add cParStat
            End If
            Call GestioneOutput(collStoria,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Pre,aRuoteSel)
        Else
            MsgBox "Ruota non valida"
        End If
    End If
End Sub
Function ScegliFormazione(aN)
    Dim sFormazione
    Dim k,i
    sFormazione = InputBox("Inserire la formazione da analizzare separando i numeri che la compongono con il punto","FORMAZIONE di RICERCA","1.10.20")
    ReDim aV(0)
    Call SplitByChar(sFormazione,".",aV)
    For k = 0 To UBound(aV)
        If Int(aV(k)) > 0 And Int(aV(k)) <= 90 Then
            aN(Int(aV(k))) = True
            i = i + 1
        End If
    Next
    If i > 0 Then ScegliFormazione = True
End Function
Sub GestioneOutput(coll,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Pre,aRuoteSel)
    ReDim aNum(90)
    ReDim aRuota(1)
    Dim x,y,k,co
    Dim sFrz
    Dim clsP
    For k = 1 To 90
        If aN(k) Then
            co = co + 1
            aNum(co) = Format2(k)
            sFrz = sFrz & Format2(k) & "."
        End If
    Next
    sFrz = Left(sFrz,Len(sFrz) - 1)
    If Ruota = 13 Then
        Call Scrivi("Sulle ruote di       : " & GetStringaRuote(aRuoteSel))
        ' estrapolare le aRuotesel
    Else
        Call Scrivi("Sulla ruota di       : " & NomeRuota(Ruota))
        aRuota(1) = Ruota
    End If
    Call Scrivi("Classe di sviluppo   : " & "Quantità numeri")
    Call Scrivi("Sorte ricercata      : " & Sorte)
    Call Scrivi("Formazione analizzata: " & sFrz)
    Call Scrivi("Da Estrazione        : " & GetInfoEstrazione(Inizio))
    Call Scrivi("A  Estrazione        : " & GetInfoEstrazione(Fine))
    Call Scrivi
    Call Scrivi("Ritardo              : " & Rit)
    Call Scrivi("RitardoMax           : " & RitMax)
    Call Scrivi("Presenze             : " & Pre)
    If Ruota = 13 Then
        ReDim aRuote(12)
        For k = 1 To 12
            If k = 11 Then k = 12
            If aRuoteSel(k) Then
                aRuote(k) = k
            End If
        Next
        Call Scrivi("Frequenza            : " & SerieFreqTurbo(Inizio,Fine,aNum,aRuote,Sorte)) 'creare array delle ruote
    Else
        Call Scrivi("Frequenza            : " & SerieFreqTurbo(Inizio,Fine,aNum,aRuota,Sorte))
    End If
    Call Scrivi
    Call Scrivi("Dettaglio evoluzione RitMax",True)
    For Each clsP In coll
        Call Scrivi("Estrazione :" & FormatSpace(clsP.idEstr,5,True) & _
        "     RitMax :" & FormatSpace(clsP.RitMax,4,True) & _
        "     IncrRitMax :" & FormatSpace(clsP.IncrRitMax,3,True))
    Next
    Call Scrivi
    Call Scrivi("Grafico di confronto RitMax / IncRitMax",True)
    Call PreparaGrafico("",0,coll.count,0,RitMax,1,5)
    ' prima riga
    ReDim aV(coll.count,2)
    For Each clsP In coll
        x = x + 1
        aV(x,1) = x
        aV(x,2) = clsP.RitMax
    Next
    Call DisegnaLineaGrafico(aV,vbBlue,"RitMax")
    x = 0
    ReDim aV(coll.count,2)
    For Each clsP In coll
        x = x + 1
        aV(x,1) = x
        aV(x,2) = clsP.IncrRitMax
    Next
    Call DisegnaLineaGrafico(aV,vbRed,"IncRitMax")
    ' scrive grafico nell'output
    Call InserisciGrafico
End Sub
Function GetStringaRuote(aRuoteSel)
    Dim k
    Dim s
    For k = 1 To 12
        If aRuoteSel(k) Then
            s = s & SiglaRuota(k) & " "
        End If
    Next
    GetStringaRuote = s
End Function
Function ScegliRuotaEx(aRuoteSel)
    Dim k
    If MsgBox("Vuoi elaborare su piu ruote ?",vbQuestion + vbYesNo) = vbYes Then
        ReDim aV(10)
        ReDim aVociSel(10)
        For k = 1 To 10
            aV(k - 1) = NomeRuota(k)
        Next
        aV(10) = "Nazionale"
        Call ScegliDaLista(aV,aVociSel,"Selezione Ruote")
        For k = 0 To 9
            aRuoteSel(k + 1) = aVociSel(k)
        Next
        aRuoteSel(12) = aVociSel(10)
        ScegliRuotaEx = 13
    Else
        ReDim aV(12)
        For k = 1 To 12
            aV(k) = NomeRuota(k)
        Next
        ScegliRuotaEx = ScegliOpzioneMenu(aV)
    End If
End Function

ciao

Sembra tutto ok.
Ora effettivamente implementa correttamente anche le presenze
Grazie claudio8 per questo tuo interessante upgrade che ti sei sentito di fare senza che nessuno te lo chiedesse! Riuscisse ad implementare questa analisi incmax nel suo già superlativo Ricerca Lunghette il mago LuigiB credo sarebbe davvero una delle possibili ciliegine sulla mega torta che ha già realizzato!

 

[claudio8]

Sembra tutto ok.
Ora effettivamente implementa correttamente anche le presenze
Grazie claudio8 per questo tuo interessante upgrade che ti sei sentito di fare senza che nessuno te lo chiedesse! Riuscisse ad implementare questa analisi incmax nel suo già superlativo Ricerca Lunghette il mago LuigiB credo sarebbe davvero una delle possibili ciliegine sulla mega torta che ha già realizzato!

Tom aspettiamo la risposta, il Mago è imprevedibile ed è sempre pronto ad omaggiare.
ciao

 

[lotto_tom75]

Riprendo questo thread per appuntarmi e condividere questo importante upgrade di ricerca su questo argomento: grazie alle nuove possibilità visive offerte dalla nuova chicca sw free del grande LuigiB "Lotto Open" e successivamente da verifica script fq0 su quante e quali ruote, ho constatato, almeno per 2 casi (8ina doc incmax e 20ina rs1 sviluppata in classe 14 x A su TT sep), che il tempo teorico di sfaldamento totale (ossia di tutte le coppie generabili da esso sulla ruota target rilevata) di un gruppo teoricamente doc estrapolato in siffatta maniera è estremamente lungo... E in questi due casi raggiungeva addirittura le 1830 estrazioni.. (1833 per l'esattezza...). Nel frattempo il gruppo doc rilasciava + e più volte (addirittura una coppia ben 9 volte) stessi ambi ricordando in modo molto stringente la Legge Statistica Del Terzo considerando però le coppie uscite in multi frequenza come singoli elementi della distribuzione...

Di seguito riporto solo a titolo di studio... la lunghetta originante questo tipo di analisi dettagliata... di tipo visivo e non...

Numeri Formazione : 8.19.20.53.61.65.82.85
Ritardo : 88
RitMax : 88
Freq : 450
IncrRitMx : 13
IncrRitMaxSto : 13
strIncrementi : 08.10.13.05.13.01.03.04.01.04.13.13
Numero Incrementi : 11

8ina da gruppo semi abs di 20 elementi teoricamente muy interessante x almeno 2p su CA entro 5 shots...

More details

Range analisi : [00001] [ 1 ] 07.01.1871 - [09902] [ 35] 23.03.2021
Numero di estrazioni analizzate: 9902
Filtro Esaminato : aElencoIncrRitMax(nUpper) = mIncrRitardoMaxSto
Classe di sviluppo : 8
Lunghette esaminate : 43758 Valide : 3 <<< scelta quella con 3 incmax attsto
Sorte : Ambo
Ruote : CA
Numero Minimo IncrRit : 02

----------------------------------------------------------------
Le ruote sottostanti nella ricerca vengono considerate SEPARATE!
----------------------------------------------------------------

rispetto all'ultima estrazione...

<< = uscito una volta

<< << = uscito due volte

<< << << = uscito tre volte

<< << << << = uscito quattro volte

<< << << << << = uscito cinque volte

<< << << << << << = uscito sei volte

<< << << << << << << = uscito sette volte

<< << << << << << << << = uscito otto volte

<< << << << << << << << << = uscito nove volte



Data elaborazione: 25-3-2021


Range elaborazione: 7-1-1871 --- 25-3-2021


Numero delle ultime estrazioni esaminate: 9902

Scelta ruota Cagliari - CA

Sviluppo in classe: 2 sorte 2

8.19 << << << << << << << <<
8.20 << <<
8.53 << << << << <<
8.61 << << << << <<
8.65 << << << <<
8.82 << << << << << <<
8.85 << [11-1-2011] id 8324 penultimo ambo rintracciato... dei 28 generabili dall'8ina analizzata <<
19.20 << <<
19.53 << << << << <<
19.61 << <<
19.65 << <<
19.82 << << <<
19.85 << << << << <<
20.53 << <<
20.61 << <<
20.65 << << << << <<
20.82 << << << << << << << << <<
20.85 << << << <<
53.61 << << << << <<
53.65 << << << << <<
53.82 << [28-5-2009] id 8070 ultimo ambo rintracciato... dei 28 generabili dall'8ina analizzata
53.85 << << <<
61.65 << << << << << << << <<
61.82 << << << <<
61.85 << << <<
65.82 << << << << << <<
65.85 << << <<
82.85 << << << << << << <<

L'ultimo ambo rintracciato a partire dall'ultima estrazione del 25/3/2021 esaminata è stato appunto il 53-82 comparso in questa verifica solo 1833 estrazioni or sono corrispondente alla data 28/5/2009 id es. 8070.

Curiosità ulteriore: l'8ina soprastante, che ha stimolato lo studio in oggetto, è attualmente (al 28/3/2021) a incmax +2 rispetto il suo storico massimo (13)... ed entro 6 colpi potrebbe dare ancora 2p. Nel caso ciò accadesse la sfida finale sarebbe il cercare di trovare la coppia tra le 28 generabili integralmente dagli 8 elementi selezionati... (cosa appunto su cui sto sperimentando...)

Nessuna Certezza Solo Pochissima Probabilità