Novità

Script biambo

Ecco gli ambi non ripetuti che compongono gli 82 biambi st<=49
tot.126

Codice:
ambi non ripetuti degli 82 biambi max st 49 tutte e Nz 7440
08.42
02.08
31.67
03.69
63.80
20.51
31.52
01.22
47.55
29.56
82.86
64.78
10.44
17.22
29.34
47.62
26.71
24.72
65.79
45.74
12.49
16.51
10.13
29.50
43.51
13.47
16.68
51.81
64.74
25.89
42.79
42.60
06.30
39.55
37.41
31.90
79.86
15.82
59.63
29.31
32.58
31.77
34.53
37.39
10.34
75.82
33.36
10.70
14.29
09.56
08.62
30.85
20.54
08.18
48.67
37.49
08.61
06.17
60.88
73.89
08.63
73.87
85.88
37.73
22.47
04.51
12.62
20.55
58.90
29.86
42.87
42.77
04.61
06.89
15.34
01.09
40.82
27.66
36.74
47.54
04.46
38.61
07.48
38.65
59.61
39.74
30.59
44.63
65.69
20.81
43.73
18.52
22.30
15.21
11.29
65.83
32.57
08.85
57.80
32.79
14.63
74.90
14.85
70.80
33.38
43.50
68.81
54.84
80.82
23.54
06.84
54.65
61.69
32.76
11.16
37.47
43.87
09.45
30.87
33.48
20.39
26.30
06.57
01.05
06.77

E gli ambi tratti dalla 22ina che ha estratto Luigi da 231 ambi -st 0
tot.149
Codice:
09,12
09,15
09,28
09,42
11,12
11,19
11,23
11,26
11,42
11,90
12,15
12,19
12,23
12,26
12,42
12,51
12,68
12,73
12,74
12,90
15,16
15,26
15,29
15,38
15,64
15,74
15,79
16,23
16,38
16,65
16,73
19,28
19,29
19,38
19,74
23,28
23,38
23,68
23,79
26,68
26,74
26,83
28,29
28,42
28,51
28,64
28,68
28,73
28,74
28,83
29,51
29,58
29,65
29,68
29,74
29,79
38,51
38,73
38,74
38,79
42,51
42,74
42,90
51,64
51,79
51,90
58,73
58,83
58,90
64,65
64,73
64,74
64,79
64,83
64,90
65,83
68,74
68,79
68,83
68,90
73,74
73,90
74,83
79,83
79,90
83,90
58,79
51,65
73,79
09,65
26,64
09,74
11,58
58,68
16,58
11,68
15,23
12,16
12,29
23,58
09,16
09,68
15,65
42,83
65,68
11,65
15,42
16,79
19,68
19,79
38,42
09,38
12,79
16,28
16,51
16,74
11,74
23,26
23,29
26,28
74,79
09,64
12,64
15,58
15,90
16,64
29,73
42,65
51,58
09,11
09,58
09,73
09,90
11,15
11,79
12,58
15,68
16,19
16,42
19,23
19,58
19,83
23,51
23,64
23,65
26,38
26,73
38,65
38,68
 
Buonasera, le festicciole sono per me finite con rientro anzitempo anticipato per un grosso acquazzone…
Nell’attesa ( mentre le mogli della combriccola ) preparano una bella Amatriciana con secondo piatto di salame nostrano acquistato in cascina e uova di galline ruspanti Livornesi allevate all’aperto il tutto corollato da un pinzimonio di verdure grigliate … ho riacceso l’ambaradan PC. riprendendo da dove avevo interrotto i miei interventi.

Dopo cena Luigi, mi scarico i tuoi ultimi lavori che ho letto e sono certo che saranno un altro dei tuoi impeccabili valori aggiunti come solo tu sai fare!
Mi soffermo su questo tuo scritto:
riguardo la ricerca dei minimi ho fatto dei tentativi combinando gl iambi con ritardo max piu basso , sulrange indicato da Nikor non trovo 28 ma trovo valori di 30 , quindi non funzona.

Il problema è che un triambo potrebbe essere costituito da 2 ambi con ritardo max basso e uno che magari è uscito pochissime volte , ritardo max altissimo ma è uscito proprio in quelle estrazioni che si incastrano bene con le estrazioni cperte dagli altri due .. in definitiva un triambo puo essere costitito da 3 qulsiasi degliambi possibili e si ritona al discrso che bisognerebbe esplorarli tutti
Parole Sante, ma questo lo avevi già fatto notare che per i minimi bisogna processarli tutti; poi forse ti eri fatto trarre in inganno da chiacchiere Wikipendiane che non sto a riportare……….
I Ritardi a ( 28-29 ) che avevo postato passano per tutte le possibili iterazioni con algo deterministico! Anche se ho notato che il tuo ( XAmbi ) per i max. è più veloce delle mie routine di almeno 5 volte !!! Complimenti.
X ( abs storica ) della bravissima Cinzia di 22 numeri, ci avevo provato tempo fa ed ero sceso di soli 50 ambi x un totale di 181 ; ora vedo dagli scritti un valore di 149! Incredibile anche qui ( non per farti le scarpe ) perché tu sai subito e tempestivamente fare a Tutti anche i calzini ehehehehhe
Ciao Mitico Luigi e Buona serata.
… poi rispondo a Cinzia sui Tri-Ambi…
Cordialità
Nikor
 
Caro Nikor , vedo che hai celebrato degnamente il giorno festivo , qui a Roma piove e quindi niente scampagnata con fava e pecorino :-) Vabe ce lo mangiamo a casa ..
La velocità dell'algoritmo per i massimi funziona similmente a quello di cui ti parlai a suo tempo per la ricerca delle lunghette , componendo un x ambo ci si accorge subito se il nuovo ambo aggiunto va a deteriorare il massimo storico rendendolo piu basso sicche questo eventuale ambo va saltato a piedi pari e con lui se ne vanno tutte le successive combinazioni che lo contengono
Purtroppo la logica inversa non funziona ..solo alla fine , ottenuto l'xambo ne si puo valutare il ritardo max minimo

Ho provato a fare i ltest combinando i ritardi mini ed individuando per ogni ambo una certa quantita di "ambi amici" ovvero ambi che se con esso accoppiati producevano il ritardo max minore , ad un primo passaggio ogni ambo si portava a presso che so 10 ambi amici , ad un secondo passaggio si ottenevano per ogni ambo 10 biambi , ognuno di quelli a sua volta faceva la ricerca dei propri ambi amici
al terzo passaggio i biambi diventavano triambi moltiplicandosi a loro volta , a questo punto ottenuti circa 400mila triambi si andavano a cercare tra questi i valori migliori , cioè quelli con ritardo max piu basso , tutto il sistema era senz'altro piu veloce che analizzare in modo deterministico ma sempre alquanto lento per pervenire inoltre ad un risultato non esatto , però ti arantisco che non m isono fatto influenzare da niente, si trattava di semplici esperimenti pratici .

riguardo lo script di Cinzia penso sia giusto perche alal fine c'è anche la controporova anlaizzando solo gli ambi "indispensabili" e con qui 145 ambi si mantiene lo storico dello 0.
La logica dello script è abbastanza semplice fammi sapere se ti torna ..

Ciao ..
 
Quali parametri hai usato, Happy?
Cinzia non è che ci siano tutti sti parametri . .devi impostare 7440 come estrazione inizio in spaziometria , come fine l'ultima estr possibile.
Dopo lanci lo script , ti chiederà le ruote e devi selezionare le 11 che mi hai detto ovvero le prime 10 + la nazionale , poi ti chiederà i numeri e li devi inserire quella lunghetta da 22 numeri , con virgola , punto , quello che ti pare .. la raccomandazione che ti avevo fatto si riferiva al programma xambi , se uno inserisce li la lunghetta la deve inserire con i numeri separati da "." , tra l'altro solo se la incolla nel campo testo principale perche se la selezioni da pulsante pure li potrai incollare una lunghetta col separatore virgola ..
 
ho fatto una leggera modifica allo script per renderlo adatto pure a quelle lunghette che nn hanno un ritardo storico 0 di base
ricopiatelo dall'apposito post
 
Scusa la mia imbranataggine, Luigi. Quando ho aggiornato Spaziometria mi sono dimenticata di impostare l'archivio all'estrazione 7440.
Ora dovrei essere allineata

Storico del gruppo : 0

Ambo​
Storico Senza​
16.90​
0​
19.23​
0​
16.83​
0​
16.74​
0​
16.79​
0​
19.26​
0​
19.64​
0​
19.65​
0​
19.58​
0​
19.42​
0​
19.51​
0​
16.68​
0​
16.19​
0​
16.26​
0​
15.90​
0​
15.73​
0​
15.83​
0​
16.28​
0​
16.58​
0​
16.64​
0​
16.51​
0​
16.29​
0​
16.42​
0​
19.68​
0​
26.28​
0​
26.29​
0​
23.90​
0​
23.74​
0​
23.83​
0​
26.38​
0​
26.64​
0​
26.65​
0​
26.58​
0​
26.42​
0​
26.51​
0​
23.73​
0​
19.90​
0​
23.26​
0​
19.83​
0​
19.73​
0​
19.79​
0​
23.29​
0​
23.64​
0​
23.65​
0​
23.58​
0​
23.42​
0​
23.51​
0​
15.68​
0​
9.83​
0​
9.90​
0​
9.79​
0​
9.73​
0​
9.74​
0​
11.15​
0​
11.38​
0​
11.51​
0​
11.29​
0​
11.16​
0​
11.28​
0​
9.68​
0​
9.23​
0​
9.26​
0​
9.19​
0​
9.11​
0​
9.16​
0​
9.29​
0​
9.64​
0​
9.65​
0​
9.58​
0​
9.38​
0​
9.51​
0​
11.58​
0​
12.83​
0​
15.19​
0​
12.79​
0​
12.64​
0​
12.65​
0​
15.23​
0​
15.58​
0​
15.65​
0​
15.51​
0​
15.28​
0​
15.42​
0​
12.58​
0​
11.73​
0​
11.74​
0​
11.68​
0​
11.64​
0​
11.65​
0​
11.79​
0​
12.29​
0​
12.38​
0​
12.28​
0​
11.83​
0​
12.16​
0​
26.73​
0​
42.73​
0​
42.79​
0​
42.65​
0​
42.68​
0​
42.83​
0​
51.68​
0​
51.73​
0​
51.58​
0​
51.65​
0​
38.64​
0​
38.65​
0​
38.42​
0​
38.58​
0​
38.68​
0​
42.58​
0​
42.64​
0​
38.83​
0​
38.90​
0​
65.79​
0​
65.90​
0​
65.73​
0​
65.74​
0​
68.73​
0​
74.79​
0​
74.90​
0​
73.79​
0​
73.83​
0​
58.64​
0​
58.65​
0​
51.74​
0​
51.83​
0​
58.68​
0​
64.68​
0​
65.68​
0​
58.74​
0​
58.79​
0​
29.64​
0​
28.90​
0​
28.79​
0​
29.73​
0​
26.79​
0​
28.38​
0​
29.38​
0​
29.42​
0​
26.90​
0​
28.58​
0​
28.65​
0​
29.90​
0​
29.83​
0​
64.90​
1​
11.23​
1​
12.23​
1​
12.15​
1​
12.19​
1​
11.26​
1​
28.51​
1​
11.90​
1​
58.90​
1​
58.83​
1​
64.73​
1​
64.65​
1​
28.64​
1​
64.83​
1​
11.42​
1​
64.79​
1​
64.74​
1​
23.79​
1​
9.28​
1​
74.83​
1​
26.74​
1​
9.42​
1​
73.90​
1​
26.68​
1​
9.12​
1​
83.90​
1​
9.15​
1​
79.83​
1​
79.90​
1​
65.83​
1​
28.29​
1​
11.12​
1​
11.19​
1​
28.42​
1​
68.74​
1​
73.74​
1​
26.83​
1​
68.90​
1​
68.79​
1​
68.83​
1​
12.26​
1​
29.65​
1​
19.74​
1​
42.51​
1​
29.68​
1​
16.38​
1​
16.23​
1​
15.74​
1​
42.74​
1​
15.79​
1​
29.58​
1​
29.51​
1​
38.51​
1​
29.79​
1​
19.38​
1​
19.29​
1​
19.28​
1​
29.74​
1​
38.74​
1​
38.79​
1​
16.65​
1​
16.73​
1​
38.73​
1​
23.28​
1​
28.74​
1​
51.90​
1​
12.68​
1​
12.74​
1​
12.73​
1​
28.73​
1​
28.68​
1​
58.73​
1​
23.68​
1​
12.51​
1​
12.42​
1​
15.38​
1​
15.29​
1​
51.64​
1​
15.64​
1​
42.90​
1​
23.38​
1​
12.90​
1​
51.79​
1​
15.16​
1​
15.26​
1​
28.83​
1​




Storico del gruppo senza le combinazioni escluse (quelle rosse): 3
Combinazioni totali : 231
Combinazioni utili : 86
Combinazioni scartate : 145 (62.77)
Lista combinazioni utili
09.12
09.15
09.28
09.42
11.12
11.19
11.23
11.26
11.42
11.90
12.15
12.19
12.23
12.26
12.42
12.51
12.68
12.73
12.74
12.90
15.16
15.26
15.29
15.38
15.64
15.74
15.79
16.23
16.38
16.65
16.73
19.28
19.29
19.38
19.74
23.28
23.38
23.68
23.79
26.68
26.74
26.83
28.29
28.42
28.51
28.64
28.68
28.73
28.74
28.83
29.51
29.58
29.65
29.68
29.74
29.79
38.51
38.73
38.74
38.79
42.51
42.74
42.90
51.64
51.79
51.90
58.73
58.83
58.90
64.65
64.73
64.74
64.79
64.83
64.90
65.83
68.74
68.79
68.83
68.90
73.74
73.90
74.83
79.83
79.90
83.90

Lista estrazioni scoperte
1) 7441
2) 7442
3) 7450
4) 7483
5) 7496
6) 7500
7) 7505
8) 7517
9) 7557
10) 7562
11) 7571
12) 7591
13) 7593
14) 7602
15) 7612
16) 7616
17) 7628
18) 7629
19) 7630
20) 7675
21) 7682
22) 7689
23) 7723
24) 7730
25) 7741
26) 7742
27) 7747
28) 7758
29) 7763
30) 7770
31) 7776
32) 7786
33) 7793
34) 7806
35) 7812
36) 7824
37) 7829
38) 7831
39) 7834
40) 7837
41) 7838
42) 7854
43) 7861
44) 7864
45) 7865
46) 7868
47) 7892
48) 7914
49) 7916
50) 7932
51) 7941
52) 7946
53) 7947
54) 7957
55) 7961
56) 7962
57) 7970
58) 7971
59) 8001
60) 8027
61) 8029
62) 8052
63) 8064
64) 8067
65) 8102
66) 8113
67) 8153
68) 8160
69) 8165
70) 8170
71) 8172
72) 8180
73) 8188
74) 8200
75) 8209
76) 8214
77) 8221
78) 8223
79) 8238
80) 8275
81) 8283
82) 8292
83) 8312
84) 8318
85) 8330
86) 8356
87) 8360
88) 8377
89) 8390
90) 8396
91) 8399
92) 8402
93) 8410
94) 8413
95) 8416
96) 8438
97) 8443
98) 8464
99) 8466
100) 8485
101) 8494
102) 8529
103) 8541
104) 8552
105) 8577
106) 8584
107) 8590
108) 8593
109) 8606
110) 8611
111) 8613
112) 8643
113) 8647
114) 8651
115) 8681
116) 8685
117) 8696
118) 8699
119) 8704
120) 8711
121) 8730
122) 8731
123) 8743
124) 8748
125) 8751
126) 8774
127) 8777
128) 8780
129) 8786
130) 8797
131) 8805
132) 8812
133) 8814
134) 8826
135) 8829
136) 8832
137) 8837
138) 8843
139) 8847
140) 8848
141) 8850
142) 8852
143) 8857
144) 8870
145) 8876
146) 8886
147) 8888
148) 8898
149) 8903
150) 8921
151) 8945
152) 8956
153) 8958
154) 8964
155) 8966
156) 8972
157) 8973
158) 8975
159) 8981
160) 8985
161) 9000
162) 9014
163) 9021
164) 9032
165) 9033
166) 9058
167) 9064
168) 9106
169) 9119
170) 9131
171) 9133
172) 9135
173) 9142
174) 9152
175) 9161
176) 9176
177) 9218
178) 9231
179) 9232
180) 9233
181) 9244
182) 9262
183) 9279
184) 9282
185) 9299
186) 9305
187) 9324
188) 9328
189) 9355
190) 9359
191) 9366
192) 9373
193) 9381
194) 9393
195) 9395
196) 9406
197) 9408
198) 9412
199) 9413
200) 9416
201) 9435
202) 9450
203) 9466
204) 9480
205) 9482
206) 9509
207) 9512
208) 9516
209) 9528
210) 9530
211) 9575
212) 9582
213) 9583
214) 9585
215) 9608
216) 9609
217) 9626
218) 9629
219) 9642
220) 9664
221) 9671
222) 9683
223) 9689
224) 9695
225) 9713
226) 9718
227) 9723
228) 9737
229) 9754
230) 9755
231) 9758
232) 9766
233) 9773
234) 9782
235) 9787
236) 9811
237) 9865
238) 9868
239) 9881
240) 9882
241) 9887
242) 9897
243) 9906
244) 9952
245) 9958
246) 9994
247) 9998
248) 10021
249) 10026
250) 10049
251) 10059
252) 10061
253) 10068
254) 10091
255) 10104
256) 10112
257) 10120
258) 10126
259) 10132
260) 10142
261) 10146
262) 10154
263) 10155
264) 10160
265) 10173
266) 10178
267) 10180
268) 10182
269) 10191
270) 10194
271) 10200
272) 10215
273) 10226

Elenco combinazioni indispensabili : 149
Ritardo storico :0

Combinazioni totali : 231
Combinazioni utili : 149
Combinazioni scartate : 82 (35.5)

09.12
09.15
09.28
09.42
11.12
11.19
11.23
11.26
11.42
11.90
12.15
12.19
12.23
12.26
12.42
12.51
12.68
12.73
12.74
12.90
15.16
15.26
15.29
15.38
15.64
15.74
15.79
16.23
16.38
16.65
16.73
19.28
19.29
19.38
19.74
23.28
23.38
23.68
23.79
26.68
26.74
26.83
28.29
28.42
28.51
28.64
28.68
28.73
28.74
28.83
29.51
29.58
29.65
29.68
29.74
29.79
38.51
38.73
38.74
38.79
42.51
42.74
42.90
51.64
51.79
51.90
58.73
58.83
58.90
64.65
64.73
64.74
64.79
64.83
64.90
65.83
68.74
68.79
68.83
68.90
73.74
73.90
74.83
79.83
79.90
83.90
58.79
51.65
73.79
09.65
26.64
09.74
11.58
58.68
16.58
11.68
15.23
12.16
12.29
23.58
09.16
09.68
15.65
42.83
65.68
11.65
15.42
16.79
19.68
19.79
38.42
09.38
12.79
16.28
16.51
16.74
11.74
23.26
23.29
26.28
74.79
09.64
12.64
15.58
15.90
16.64
29.73
42.65
51.58
09.11
09.58
09.73
09.90
11.15
11.79
12.58
15.68
16.19
16.42
19.23
19.58
19.83
23.51
23.64
23.65
26.38
26.73
38.65
38.68
 
Ciao, Luigi.
Questa è l'unica 38ina abs(st0) che ho trovato finora : estrazione iniziale 7440 - tutte e Nz

aa(1) = Array(0,44,45,46,48,49,50,51,52,53,55,57,59,60,61,63,65,66,67,68,69,70,71,72,73,75,76,77,78,79,80,81,82,83,85,86,87,89,90)

Possiamo estrarre anche qui i terni indispensabili affinché resti lo storico 0?
 
Ultima modifica:
Come non potrebbe tornare ?
Luigi, sei insuperabile! ma questo lo sapevamo già!
La logica dello script è abbastanza semplice fammi sapere se ti torna ..
( Se è vero che le vie del Signore sono infinite ) si avverano alcuni dati di fatto che dal lato di cognizione logica potrebbero sembrare impossibili!
Tu hai risolto in modo egregio perché sei sempre un passo avanti OPS. Avanti anni luce!
Non ho parole, sicuramente mi sono del tutto arrugginito , completamente fuori allenamento.
Tutto OK. Mitico Luigi (y)
**********************
x Cinzia , qualche bozza sui triambi ... segue
 
Ciao Cinzia, ripendo da questo:
Ciao, Nikor. Personalmente preferisco i parametri estrazione iniziale 7440, tutte e Nz.
Ma se intendi fare una ricerca su tutte dalla 3950 ed è l'estensione dell'archivio ad allungare i tempi, potresti fissare ad es. ritardo storico<40 per le ultime 1000 estrazioni.
I triambi ottenuti potrebbero essere filtrati poi dalla 3950 all'estrazione finale sempre es. ritardo storico<40.
Per quanto concerne l’estensione dell’archivio già sul range di oltre 2.500 estrazioni a ritroso mi si impalla il tutto, ma ho già in mente sempre se ( funzionerà ) la soluzione per poter elaborare fino a spingermi oltre le 5.000 e più estrazioni su Tutte le 10 ruote e credo sarebbe un bel dato di confronto sui Tri-Ambi processandoli tutti senza esclusione alcuna! Domani al massimo dopo domani rilancio l’esecuzione…
Per quanto riguarda questo tuo punto:
Personalmente preferisco i parametri estrazione iniziale 7440, tutte e Nz.
ahimè, ho scaricato da web alcuni archivi con la Nazionale e mi stanno dando un sacco di problemi ai quali non riesco a venirne a capo, mi sto annegando in un bicchie d'acqua
Ho provato da Spaziometria che sembra il più affidabile, ma quando lancio l’elaborazione non riesco a capire come mai da 10 a 11 ruote unite i tempi diventano biblici e per tagliare la testa al toro ho dovuto ricorrere ad uno stratagemma che lavora su 2 funzioni di parametri che devono essere rispettati.:
( i parametri per poter effettuare la ricerca in tempi brevi ) anche se molto meno veloce del Plugin di Luigi sono:
Il minimo dei max. deve rispettare il ritardo attuale inferiore ( al precedente Minimo storico ) in questo modo si tagliano drasticamente milionate di iterazioni ed i tempi di attesa sono nella norma...
Questo ad esempio è un 1° dato anche se siamo ancora solo sotto del 50% di iterazioni:
25-41 ; 13-44 ; 33-78 # --- Min/Max = 32 ( Attuale = 17 -15 )
Ovviamente siamo in range Tutte & Nazionale ( unite ) dalla 7.440 !
Come premesso, questo non è il valore minimo perché rispetta i parametri sopra esposti e fino a quando non riesco a ricollegarmi al motore software tramite password non posso verificare i minimi storici!
Se gentilmente mi puoi confermare il dato, garzie
Per le 10 ruote ci guardo domani , o al massimo dopo domani perche dovrei avere la soluzione per spingermi fino oltre le 5.000 estrazioni a ritroso e snidare il minimo dei massimi precedenti.
Buon inizio settimana più corta, Nikor
 
questa versione dello script è più veloce , tuttavia per i terni con 38 numeri ci vule l'eseguibile e comunque un po' d itempo ci vuole lo stesso , ho allegato sorgenti e programma da usare per i terni

Codice:
Option Explicit
'83,73,74,38,19,16,64,28,15,51,26,29,68,11,58,90,65,79,12,9,23,42

Dim aBEstrCopertePerComb
Dim CollComb 

Class clsComb
   Public Id
   Public sComb
End Class

Sub Main
   Dim aN
   Dim nClasse,nSorte
   Dim Inizio,Fine
   Dim aColonne,aCombUtili,aCombInutili,aRuote
   Dim k,j
   Dim nStoricoGruppo
   Dim nIdCombUtile,nIdCombInutile
   Dim sComb
   Dim aBEstrCoperte,nEstrCoperteOrig
   Dim aRetComb
   nClasse = Int(InputBox("Sviluppo classe " ,"Classe sviluppo" ,2))
   nSorte =  Int(InputBox("Sorte analizzata " ,"Sorte" ,nClasse ))  
   Inizio = EstrazioneIni
   Fine = EstrazioneFin
   If ScegliRuote(aRuote) > 0 And nSorte >0 And nSorte <= nClasse Then
      If ScegliNumeri(aN) >= nClasse Then
         aColonne = SviluppoIntegrale(aN,nClasse)
         ReDim aCombUtili(UBound(aColonne),nClasse)
         ReDim aCombInutili(UBound(aColonne),nClasse)
         
         Call AlimentaEstrCopertePerComb( aColonne ,Inizio,Fine,nClasse,aRuote, nSorte ) 
         
'         nStoricoGruppo = GetStorico(aColonne,Inizio,Fine,nClasse,aRuote,0,nSorte)
         nStoricoGruppo = GetStorico(aColonne,Inizio,Fine, 0)
         

         
         Call GetArrayIdEstrazioni(aBEstrCoperte,Inizio,Fine,aColonne,nClasse,nSorte,aRuote)
         nEstrCoperteOrig = GetEstrazioniCoperte(aBEstrCoperte,Inizio,Fine)
         
         
         Scrivi "Storico del gruppo : " & nStoricoGruppo 
         ReDim aTb(2)
         aTb(1) = "Ambo"
         aTb(2) = "Storico Senza"
         Call InitTabella(aTb)
         For k = 1 To UBound(aColonne)
            aTb(1) = aColonne(k,1) & "." & aColonne(k,2)
'            aTb(2) = GetStorico(aColonne,Inizio,Fine,nClasse,aRuote,k,nSorte)
            aTb(2) = GetStorico(aColonne,Inizio,Fine,k)
            

            If aTb(2) > nStoricoGruppo Then
               nIdCombUtile = nIdCombUtile + 1
               For j = 1 To nClasse
                  aCombUtili(nIdCombUtile,j) = aColonne(k,j)
               Next
               Call AddRigaTabella(aTb,vbGreen)
            Else
               nIdCombInutile = nIdCombInutile + 1
               For j = 1 To nClasse
                  aCombInutili(nIdCombInutile,j) = aColonne(k,j)
               Next
               Call AddRigaTabella(aTb,vbRed)
            End If
            Call AvanzamentoElab(0,UBound(aColonne),k)
            Messaggio "Ricerca combinazioni utili " & k & "/" &  UBound(aColonne)

            DoEventsEx
            If ScriptInterrotto Then Exit For
         Next
         Call CreaTabella(2,1)
         
         If nIdCombInutile =0 Then 
            Scrivi "Nessuna combinazione può essere scartata"
            Exit Sub 
         End If 
         
         Scrivi
         Scrivi "Storico del gruppo senza le combinazioni escluse (quelle rosse): " & GetStorico_(aCombUtili,Inizio,Fine,nClasse,aRuote,0,nSorte)
         Scrivi "Combinazioni totali    : " & UBound(aColonne)
         Scrivi "Combinazioni utili     : " & nIdCombUtile
         Scrivi "Combinazioni scartate  : " & UBound(aColonne) - nIdCombUtile & " (" & Round(ProporzioneX((UBound(aColonne) - nIdCombUtile),UBound(aColonne),100),2) & ")"
         Scrivi "Lista combinazioni utili"
         For k = 1 To nIdCombUtile
            sComb = ""
            For j = 1 To nClasse
               sComb = sComb & Format2(aCombUtili(k,j)) & "."
            Next
            Call Scrivi(RimuoviLastChr(sComb,"."))
            Call Messaggio ("Output lista combinazioni utili " & k )
            If ScriptInterrotto Then Exit For
         Next
         
         
       
         
         Scrivi
         Scrivi "Lista estrazioni scoperte"
         Call GetArrayIdEstrazioni(aBEstrCoperte,Inizio,Fine,aCombUtili,nClasse,nSorte,aRuote)
         j = 0
         For k = Inizio To Fine
            If Not aBEstrCoperte(k) Then
               j = j + 1
               Scrivi FormatSpace(j,5,True) & ") " & k
            End If
            Call Messaggio ("Output lista combinazioni scoperte " & k )

         Next
         Messaggio "Ricerca combinazioni indispensabili"
         k = 0
         Do While GetEstrazioniCoperte(aBEstrCoperte,Inizio,Fine) < nEstrCoperteOrig
            Call GetCombMigliore(aCombInutili,aBEstrCoperte,Inizio,Fine,aRuote,nClasse,nSorte,aRetComb)
            nIdCombUtile = nIdCombUtile + 1
            For j = 1 To nClasse
               aCombUtili(nIdCombUtile,j) = aRetComb(j)
            Next
            Call GetArrayIdEstrazioni(aBEstrCoperte,Inizio,Fine,aCombUtili,nClasse,nSorte,aRuote)
            k = k + 1
            Call AvanzamentoElab(1,nIdCombInutile,k)
            DoEventsEx 
            If ScriptInterrotto Then Exit Do
            Call Messaggio ("Ricerca combinazioni indispensabili " & k )

            If k > nIdCombInutile Then Exit Do
         Loop
         Scrivi
         Scrivi "Elenco combinazioni indispensabili : " & nIdCombUtile
         Scrivi "Ritardo storico  :" & GetStorico_(aCombUtili,Inizio,Fine,nClasse,aRuote,0,nSorte)
         Scrivi
         
         Scrivi "Combinazioni totali    : " & UBound(aColonne)
         Scrivi "Combinazioni utili     : " & nIdCombUtile
         Scrivi "Combinazioni scartate  : " & UBound(aColonne) - nIdCombUtile & " (" & Round(ProporzioneX((UBound(aColonne) - nIdCombUtile),UBound(aColonne),100),2) & ")"
      
         Scrivi
         
         
         For k = 1 To nIdCombUtile
            sComb = ""
            For j = 1 To nClasse
               sComb = sComb & Format2(aCombUtili(k,j)) & "."
            Next
            Call Scrivi(RimuoviLastChr(sComb,"."))
            Call Messaggio ("Output lista combinazioni utili " & k )

            If ScriptInterrotto Then Exit For
         Next
         
         

      End If
   Else
      MsgBox "Parametri errati" , vbExclamation
   End If
End Sub
Function GetStorico( aColonne, Inizio,Fine, nIdDaEscludere)

      Dim Rit ,RitMax 
      Dim k , j  
      Dim b
      
      Rit =0 
      RitMax =0
      
      For k = Inizio To Fine 
         
            b = False 
            For j = 1 To UBound(aColonne)
               If j <> nIdDaEscludere Then 
                  If aBEstrCopertePerComb (j ,k) Then 
                     b = True 
                     Exit For 
                  End If 
               End If 
            Next
            If b Then 
               If Rit > RitMax Then RitMax = Rit
               Rit =0 
            Else
               Rit = Rit +1
            End If 
         
      Next
      GetStorico = RitMax
      
End Function 
Function GetStorico_(aColonne,Inizio,Fine,nClasse,aRuote,nIdDaEscludere,nSorte)
   Dim k,j
   Dim nRitMax
   ReDim an(nClasse)
   For k = 1 To UBound(aColonne)
      If k <> nIdDaEscludere Then
         If aColonne(k,1) > 0 Then
            For j = 1 To nClasse
               an(j) = aColonne(k,j)
            Next
            Call AddNumeriToGruppoStatistico(an,aRuote)
         End If
      End If
      If ScriptInterrotto Then Exit For
   Next
   Call StatisticaGruppoFormazioniTurbo(nSorte,0,nRitMax,0,"",Inizio,Fine)
   GetStorico_ = nRitMax
End Function
Sub GetArrayIdEstrazioni(aRetIdEstr,Inizio,Fine,aComb,nClasse,nSorte,aRuote)
   Dim k,j
   Dim itmCmb
   ReDim aRetIdEstr(Fine)
   Dim aRit,aIdEstr
   ReDim aN(nClasse)
   For k = 1 To UBound(aComb)
      If aComb(k,1) > 0 Then
         For j = 1 To nClasse
            aN(j) = aComb(k,j)
         Next
        ' Call ElencoRitardiTurbo(aN,aRuote,nSorte,Inizio,Fine,aRit,aIdEstr)
        ' For j = 1 To UBound(aIdEstr) - 1
        '    aRetIdEstr(aIdEstr(j)) = True
        ' Next
        If GetItemCollection (CollComb ,"k" & StringaNumeri (aN ,,True),itmCmb ) Then 
           For j = Inizio To Fine
              If aBEstrCopertePerComb(itmcmb.id ,j ) Then    aRetIdEstr(j) = True
           Next
        End If 
      End If
      Call AvanzamentoElab(1,UBound(aComb),k)
      If ScriptInterrotto Then Exit For
   Next
End Sub
Function GetEstrazioniCoperte(aBEstr,Inizio,fine)
   Dim k
   Dim ret
   For k = Inizio To fine
      If aBEstr(k) Then
         ret = ret + 1
      End If
   Next
   GetEstrazioniCoperte = ret
End Function
Sub GetCombMigliore(aCombInutili,aBEstrCoperte,Inizio,Fine,aRuote,nClasse,nSorte,aRet)
   Dim k,j
   Dim nFrq
   Dim nCoperte,nCoperteMax,nIdCombMigliore
   ReDim aRet(nClasse)
   ReDim aN(nClasse)
   nCoperteMax = 0
   For k = 1 To UBound(aCombInutili)
      If aCombInutili(k,1) > 0 Then
         nCoperte = 0
         For j = 1 To nClasse
            aN(j) = aCombInutili(k,j)
         Next
         For j = Inizio To Fine
            If Not aBEstrCoperte(j) Then
               Call StatFrzTurbo(aN,aRuote,nSorte,0,0,0,nFrq,,j,j)
               If nFrq > 0 Then
                  nCoperte = nCoperte + 1
               End If
            End If
         Next
         If nCoperte > nCoperteMax Then
            nCoperteMax = nCoperte
            nIdCombMigliore = k
         End If
      End If
   Next
   For k = 1 To nClasse
      aRet(k) = aCombInutili(nIdCombMigliore,k)
      aCombInutili(nIdCombMigliore,k) = 0
   Next
End Sub

Sub  AlimentaEstrCopertePerComb( aComb,Inizio,Fine,nClasse,aRuote, nSorte ) 
   ReDim aBEstrCopertePerComb(UBound(aComb), Fine)
   Dim k,j
   ReDim aRetIdEstr(Fine)
   Dim aRit,aIdEstr
   Dim itmCmb 
   ReDim aN(nClasse)
   
   Set CollComb = GetNewCollection
   
   For k = 1 To UBound(aComb)
      If aComb(k,1) > 0 Then
         For j = 1 To nClasse
            aN(j) = aComb(k,j)
         Next
         Call ElencoRitardiTurbo(aN,aRuote,nSorte,Inizio,Fine,aRit,aIdEstr)
         For j = 1 To UBound(aIdEstr) - 1
            aBEstrCopertePerComb(k , aIdEstr(j)) = True
         Next
         Set itmCmb = New clsComb
         itmCmb.id = k 
         itmCmb.sComb= StringaNumeri (aN ,,True)
         Call AddItemColl ( CollComb , itmCmb , "k" & itmCmb.sComb)
      End If
      Call AvanzamentoElab(1,UBound(aComb),k)
      DoEventsEx
      If ScriptInterrotto Then Exit For
   Next

        
End Sub
 

Allegati

comunque ad occhio non credo che si riesca a levare qualcosa a livello di terni , il motivo per cui le combinazioni si possono rimuovere è che piu combinazioni realizzano esito sulle stesse estrazioni , un conto sono gliambi un altro i terni ...non so se con i terni capita qualcxosa di strano perche dopo un po' misono scocciato e l'ho interrotto.. comunque sdovrebeb funzionare.. fatemi sapere eventualmente
 
Ciao, Nikor
per quanto riguarda la formazione
25.41;13.44;33.78
confermo il dato: max st 32, at 17
il 15 cos'è?
Il minimo dei max. deve rispettare il ritardo attuale inferiore ( al precedente Minimo storico ) in questo modo si tagliano drasticamente milionate di iterazioni ed i tempi di attesa sono nella norma...
Non so se ho capito, vuoi dire il massimo storico( noi cerchiamo naturalmente le formazioni che che ce l'hanno più basso) non
deve oltrepassare il ritardo attuale ( ovviamente sennò ci troviamo con uno storico in corso). E' così?

Purtroppo mentre i biambi li abbiamo trovati, per i triambi si presenta difficile.
 
Ciao, Nikor
per quanto riguarda la formazione
25.41;13.44;33.78
confermo il dato: max st 32, at 17
il 15 cos'è?

Non so se ho capito, vuoi dire il massimo storico( noi cerchiamo naturalmente le formazioni che che ce l'hanno più basso) non
deve oltrepassare il ritardo attuale ( ovviamente sennò ci troviamo con uno storico in corso). E' così?

Purtroppo mentre i biambi li abbiamo trovati, per i triambi si presenta difficile.
Ora però che ho scaricato l'ultima versione di Xbiambi ci riprovo ( grazie a te che mi hai ispirato sono riuscita a scaricarla subito, in questi
giorni Luigi era alle prese da una parte coi programmi e dall'altra con me che avevo sempre problemi).
 
Ciao, Nikor
per quanto riguarda la formazione
25.41;13.44;33.78
confermo il dato: max st 32, at 17
il 15 cos'è?

Non so se ho capito, vuoi dire il massimo storico( noi cerchiamo naturalmente le formazioni che che ce l'hanno più basso) non
deve oltrepassare il ritardo attuale ( ovviamente sennò ci troviamo con uno storico in corso). E' così?

Purtroppo mentre i biambi li abbiamo trovati, per i triambi si presenta difficile.
Mi fa piacere queto tuo intervento su quanto avevo postato perchè significa che stai sul pezzo! altrimenti è come scrivere nel deserto...
25-41 ; 13-44 ; 33-78 # --- Min/Max = 32 ( Attuale = 17 -15 )
[ Il 15 cos'è ? ]
Il valore ( 15 ) non è altro che la differenza tra :
Il Minimo Storico raggiunto dal Tri-Ambo che si attesta a valore ( 32 )
Con Attuale Ritardo che si attesta a valore ( 17 )
( 32 - 17 ) = 15 !
Mancano 15 estrazioni per raggiungere il minimo Max. del precedente Storico.
Ciao Cinzia
 
Provo a spiegarmi meglio:
Se dovessimo trovare un Tri-ambo con minimo Storico a valore ( 30 ) sul range considerato ; ma che attualmente si trovasse a Ritardo- Attuale = a ( 48 ) , questo non viene preso in considerazione perchè ha superato il precedente e nella mia tabella si leggerebbe:
Tri-Ambo ( x ) con Min/Max = a 30 # --- ( Attuale ritardo = a 48 con scostamento dei parametri superati di un + 18 ! )
In pratica , max. precedente = a ( 30 ) Rit.Attuale = a ( 48 ) , significa che ha sforato e superato il range con ( + 18 )
Ciao Cinzia è interessante vedere che chiedi alcune precisazioni , significa che segui l'iter...
... appena ci metto mano , ti posto i dati Min/Max sulle 10 ruote unite, credo di potermi spingere a ritroso fino al range 5.000/5.500 ...poi vedremo...
Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38

Ultimi Messaggi

Indietro
Alto