RUBINO PANE PER I TUOI DENTI

[Rubino]

stiamo facendo delle prove: non prendiamo per il momento troppo seriamente la cosa.
comunque questo è quello che si otteneva come elenco colonne da jolla a matrice di somma D13

Filtrate colonne di somma tot . 81

Script Adispo-3
Leggo combinazioni matrice ....6364
Matrice -  C:\temp\Matrice.txt
Matrice - classe 6
Totale Combinazioni 6364
Filtra Somma Numeretti Posizione D=nPrimi o P=nSecondi o U=Unificati(DP)  O  T=Totale   SCELTO O RICHIESTO..( D )
N.Primi Presenze da....( 13 ) a....( 13 )
La Matrice arriva fino a ventine , i numeri devono essere divisi con 1 Punto e terminare senza spazi vuoti o punti
La Matrice l'ultima riga del file non deve avere righe bianche o senza dati
La Matrice deve terminare con ultima riga valida
   Somma PosD.13    01 02 05 29 42 71
   Somma PosD.13    01 02 06 15 59 78
   Somma PosD.13    01 02 06 28 57 67
   Somma PosD.13    01 02 06 29 55 68
   Somma PosD.13    01 02 07 09 55 82
   Somma PosD.13    01 02 07 17 65 69
   Somma PosD.13    01 02 07 29 48 75
   Somma PosD.13    01 02 08 16 46 85
   Somma PosD.13    01 02 08 23 50 65
   Somma PosD.13    01 02 08 46 48 51
   Somma PosD.13    01 02 09 21 53 63
   Somma PosD.13    01 02 10 25 39 73
   Somma PosD.13    01 02 11 14 48 77
   Somma PosD.13    01 02 11 25 38 72
   Somma PosD.13    01 02 12 19 51 69
   Somma PosD.13    01 02 13 30 39 64
   Somma PosD.13    01 02 15 29 46 60
   Somma PosD.13    01 02 15 34 41 52
   Somma PosD.13    01 02 16 20 24 89
   Somma PosD.13    01 02 17 21 22 89
   Somma PosD.13    01 02 19 20 21 85
   Somma PosD.13    01 02 20 27 43 52
   Somma PosD.13    01 02 26 27 47 51
   Somma PosD.13    01 03 19 33 38 60
   Somma PosD.13    02 03 10 15 38 84
   Somma PosD.13    02 04 14 26 29 84
   Somma PosD.13    02 04 19 33 38 60
   Somma PosD.13    03 04 05 29 42 71
   Somma PosD.13    03 04 06 15 59 78
   Somma PosD.13    03 04 06 28 57 67
   Somma PosD.13    03 04 06 29 55 68
   Somma PosD.13    03 04 07 09 55 82
   Somma PosD.13    03 04 07 17 65 69
   Somma PosD.13    03 04 07 29 48 75
   Somma PosD.13    03 04 08 23 50 65
   Somma PosD.13    03 04 09 21 53 63
   Somma PosD.13    03 04 10 25 39 73
   Somma PosD.13    03 04 11 14 48 77
   Somma PosD.13    03 04 11 25 38 72
   Somma PosD.13    03 04 12 19 51 69
   Somma PosD.13    03 04 13 30 39 64
   Somma PosD.13    03 04 15 29 46 60
   Somma PosD.13    03 04 15 34 41 52
   Somma PosD.13    03 04 16 20 24 89
   Somma PosD.13    03 04 17 21 22 89
   Somma PosD.13    03 04 19 20 21 85
   Somma PosD.13    03 04 20 27 43 52
   Somma PosD.13    05 06 13 35 48 52
   Somma PosD.13    05 07 14 24 33 71
   Somma PosD.13    05 09 18 20 37 71
   Somma PosD.13    05 11 13 26 27 76
   Somma PosD.13    05 12 21 24 25 68
   Somma PosD.13    05 12 26 32 39 44
   Somma PosD.13    05 14 18 27 36 69
   Somma PosD.13    06 07 12 13 41 70
   Somma PosD.13    06 09 19 28 47 66
   Somma PosD.13    06 10 11 24 45 51
   Somma PosD.13    07 08 13 15 47 79
   Somma PosD.13    07 09 18 29 46 63
   Somma PosD.13    07 11 13 19 29 82
   Somma PosD.13    07 12 19 32 35 56
   Somma PosD.13    08 09 11 19 52 69
   Somma PosD.13    08 09 14 16 58 62
   Somma PosD.13    09 11 13 17 24 86
   Somma PosD.13    10 11 19 21 46 47
   Somma PosD.13    10 11 22 29 31 44
   Somma PosD.13    12 13 17 28 42 44
   Somma PosD.13    12 13 18 21 35 57
   Somma PosD.13    13 14 15 26 38 53
   Somma PosD.13    15 16 28 30 33 34
   Somma PosD.13    15 16 29 31 32 35
   Somma PosD.13    15 17 20 21 25 51
   Somma PosD.13    15 20 23 24 31 34
   Somma PosD.13    15 21 22 26 31 33
   Somma PosD.13    15 21 23 27 30 32
   Somma PosD.13    17 18 28 30 32 35
   Somma PosD.13    17 18 29 31 33 34
   Somma PosD.13    17 20 22 27 31 32
   Somma PosD.13    17 20 23 26 30 33
   Somma PosD.13    17 21 22 24 30 34
   Somma PosD.13    19 20 26 27 36 37
Totale combinazioni elab.6364
Riepilogo combinazioni filtrate..81
Tempo Elab.00:00:11

 

[Rubino]

in pratica impostando con evidenziatore la colonna sestina estratta 06 12 22 25 29 62

si vedono che le 81 colonne hanno realizzato in tutto 5 due, ma il tre punti garantito dalla jolla non c'è.

 

[Rubino]

se si fosse fatta la scelta delle somme 12-13-14

si ottenevano 284 colonne in gioco

e l'esito contiene 1 tre e 20 due

 

[Rubino]

nei prossimi giorni, provo a creare o meglio a trasformare in automatico un file tipo 90-06-03 in matrice.txt per essere letto senza intoppi
dallo script delle somme , preparandolo quando non ci sono gli zeri a sx, togliendo i punti divisori tra numeri etc.. tutte cose che ho
già detto precedentemente.

se riuscirò, poi automatizziamo il tutto, sempre con script purtroppo.

se ci fosse qualcuno che può fare un programmino , sarebbe meglio, perchè l'idea è discreta, l'avevo già attuata con il MillionDay preparato
con il software di LUIGIB, ma che poi ha interrotto.

 

[silop2005]

SPMT vers. 1.6.31_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao Rubino ,

======================

ti ho inviato il file .txt con le 6000 righe

con i numeretti e lo zero.

======================

Buona serata a tutto il forum.

======================

A presto

Silop

 

[Alien.]

Ciao,scusate ho letto un po in fretta i vostri post non ho ben capito,dato che mi interessa il super ho notato che molto spesso escono colonne vincenti con il numero massimo inferiore a 70 cioè da 1 a 69.,bisogna vedere ogni quanto escono in un mese fare una media annua,poi quanti pari e dispari ho notato che nella somma d13 ne escono diversi.Può essere utile ?Grazie.

Ma lo script a pg #35 mi da sempre errore ho inserito tutto tale e quale i numeri e T ecc.

 

[Rubino]

Grazie silop

X Alien, se puoi aspettare qualche giorno, poi riposto tutti gli script
e magari automatizzati tra loro per rendere le cose più veloci e semplici
--''''

una sola domanda generica rivolta a voi che poi userete lo script

preferite inserire il nome dello sviluppo colonna re in origine
-----
Tipo 90-6-3-3 della jolla, o copiarlo voi dentro un file txt di nome
MatriceOriginale.txt ??
-----

fa differenza purtroppo una scelta o l altra
perche' qual e' tra i due modi quello che generera' più probabilmente piu errori?
inserendo voi il nome o copiando dentro un file txt le vostre colonne?
------

 

[Rubino]

i miei punti fermi:

1) quando ci appresta a voler effettuare un gioco con un criterio razionale o sistemistico, bisogna:
- a) avere un idea precisa della Distribuzione dei Numeri estratti, perchè i 90 numeri Superenalotto o lotto, hanno tutti medesime
probabilità di sortita, ma la distribuzione di come è avvenuta nel corso di un determinato periodo, ci dice che alcuni numeri escono più di altri,
ci dice quali numeri si mantengono in frequenza media normale, e quali invece sono sotto la media di presenze.
per dirla "IN VERITA'", come un noto sistemistica a cui sono completamente d'accordo, ci sono numeri che pagano di più di altri perchè meno giocati o piu' vantaggiosi da effettuare di altri.

Quindi per capire come si sono distribuiti o si distribuiscono i 90 numeri con l'uso delle VENUS, bisogna esaminare l'archivio estrazioni.

fatto questa considerazione iniziale, vediamo:

Riepilogo Distribuzione delle somme Totali piu uscite
Somma 081    qt.uscite..1
Somma 088    qt.uscite..1
Somma 091    qt.uscite..1
Somma 094    qt.uscite..1
Somma 101    qt.uscite..1
Somma 102    qt.uscite..1
Somma 103    qt.uscite..1
Somma 112    qt.uscite..3
Somma 114    qt.uscite..1
Somma 116    qt.uscite..1
Somma 117    qt.uscite..2
Somma 118    qt.uscite..1
Somma 119    qt.uscite..1
Somma 120    qt.uscite..2
Somma 121    qt.uscite..1
Somma 122    qt.uscite..1
Somma 123    qt.uscite..1
Somma 124    qt.uscite..1
Somma 125    qt.uscite..3
Somma 126    qt.uscite..3
Somma 127    qt.uscite..3
Somma 128    qt.uscite..2
Somma 131    qt.uscite..2
Somma 132    qt.uscite..2
Somma 133    qt.uscite..1
Somma 135    qt.uscite..1
Somma 136    qt.uscite..3
Somma 137    qt.uscite..3
Somma 138    qt.uscite..2
Somma 139    qt.uscite..2
Somma 140    qt.uscite..2
Somma 141    qt.uscite..3
Somma 142    qt.uscite..1
Somma 143    qt.uscite..1
Somma 144    qt.uscite..1
Somma 145    qt.uscite..3
Somma 146    qt.uscite..2
Somma 147    qt.uscite..3
Somma 148    qt.uscite..1
Somma 149    qt.uscite..2
Somma 150    qt.uscite..2
Somma 151    qt.uscite..1
Somma 152    qt.uscite..2
Somma 153    qt.uscite..3
Somma 154    qt.uscite..1
Somma 155    qt.uscite..3
Somma 156    qt.uscite..3
Somma 157    qt.uscite..2
Somma 158    qt.uscite..1
Somma 159    qt.uscite..1
Somma 160    qt.uscite..4
Somma 161    qt.uscite..2
Somma 162    qt.uscite..3
Somma 163    qt.uscite..3
Somma 165    qt.uscite..8
Somma 166    qt.uscite..3
Somma 167    qt.uscite..2
Somma 168    qt.uscite..2
Somma 169    qt.uscite..5
Somma 170    qt.uscite..3
Somma 171    qt.uscite..7
Somma 172    qt.uscite..5
Somma 173    qt.uscite..9
Somma 174    qt.uscite..4
Somma 175    qt.uscite..5
Somma 176    qt.uscite..6
Somma 177    qt.uscite..12
Somma 178    qt.uscite..9
Somma 179    qt.uscite..6
Somma 180    qt.uscite..7
Somma 181    qt.uscite..3
Somma 182    qt.uscite..4
Somma 183    qt.uscite..7
Somma 184    qt.uscite..5
Somma 185    qt.uscite..8
Somma 186    qt.uscite..3
Somma 187    qt.uscite..2
Somma 188    qt.uscite..8
Somma 189    qt.uscite..4
Somma 190    qt.uscite..9
Somma 191    qt.uscite..8
Somma 192    qt.uscite..5
Somma 193    qt.uscite..8
Somma 194    qt.uscite..11
Somma 195    qt.uscite..6
Somma 196    qt.uscite..5
Somma 197    qt.uscite..8
Somma 198    qt.uscite..7
Somma 199    qt.uscite..9
Somma 200    qt.uscite..13
Somma 201    qt.uscite..11
Somma 202    qt.uscite..12
Somma 203    qt.uscite..11
Somma 204    qt.uscite..12
Somma 205    qt.uscite..5
Somma 206    qt.uscite..13
Somma 207    qt.uscite..9
Somma 208    qt.uscite..11
Somma 209    qt.uscite..12
Somma 210    qt.uscite..8
Somma 211    qt.uscite..9
Somma 212    qt.uscite..13
Somma 213    qt.uscite..12
Somma 214    qt.uscite..5
Somma 215    qt.uscite..11
Somma 216    qt.uscite..17
Somma 217    qt.uscite..9
Somma 218    qt.uscite..16
Somma 219    qt.uscite..13
Somma 220    qt.uscite..11
Somma 221    qt.uscite..17
Somma 222    qt.uscite..11
Somma 223    qt.uscite..15
Somma 224    qt.uscite..8
Somma 225    qt.uscite..13
Somma 226    qt.uscite..16
Somma 227    qt.uscite..14
Somma 228    qt.uscite..13
Somma 229    qt.uscite..17
Somma 230    qt.uscite..17
Somma 231    qt.uscite..17
Somma 232    qt.uscite..13
Somma 233    qt.uscite..10
Somma 234    qt.uscite..17
Somma 235    qt.uscite..11
Somma 236    qt.uscite..19
Somma 237    qt.uscite..16
Somma 238    qt.uscite..12
Somma 239    qt.uscite..15
Somma 240    qt.uscite..15
Somma 241    qt.uscite..13
Somma 242    qt.uscite..20
Somma 243    qt.uscite..11
Somma 244    qt.uscite..20
Somma 245    qt.uscite..12
Somma 246    qt.uscite..18
Somma 247    qt.uscite..15
Somma 248    qt.uscite..22
Somma 249    qt.uscite..26
Somma 250    qt.uscite..16
Somma 251    qt.uscite..16
Somma 252    qt.uscite..19
Somma 253    qt.uscite..24
Somma 254    qt.uscite..13
Somma 255    qt.uscite..13
Somma 256    qt.uscite..16
Somma 257    qt.uscite..10
Somma 258    qt.uscite..15
Somma 259    qt.uscite..15
Somma 260    qt.uscite..27
Somma 261    qt.uscite..15
Somma 262    qt.uscite..21
Somma 263    qt.uscite..13
Somma 264    qt.uscite..23
Somma 265    qt.uscite..13
Somma 266    qt.uscite..9
Somma 267    qt.uscite..16
Somma 268    qt.uscite..20
Somma 269    qt.uscite..23
Somma 270    qt.uscite..14
Somma 271    qt.uscite..23
Somma 272    qt.uscite..17
Somma 273    qt.uscite..23
Somma 274    qt.uscite..21
Somma 275    qt.uscite..27
Somma 276    qt.uscite..23
Somma 277    qt.uscite..20
Somma 278    qt.uscite..30
Somma 279    qt.uscite..18
Somma 280    qt.uscite..15
Somma 281    qt.uscite..15
Somma 282    qt.uscite..17
Somma 283    qt.uscite..16
Somma 284    qt.uscite..17
Somma 285    qt.uscite..19
Somma 286    qt.uscite..14
Somma 287    qt.uscite..22
Somma 288    qt.uscite..10
Somma 289    qt.uscite..17
Somma 290    qt.uscite..20
Somma 291    qt.uscite..13
Somma 292    qt.uscite..22
Somma 293    qt.uscite..17
Somma 294    qt.uscite..8
Somma 295    qt.uscite..31
Somma 296    qt.uscite..25
Somma 297    qt.uscite..18
Somma 298    qt.uscite..11
Somma 299    qt.uscite..16
Somma 300    qt.uscite..12
Somma 301    qt.uscite..18
Somma 302    qt.uscite..16
Somma 303    qt.uscite..21
Somma 304    qt.uscite..17
Somma 305    qt.uscite..18
Somma 306    qt.uscite..14
Somma 307    qt.uscite..20
Somma 308    qt.uscite..16
Somma 309    qt.uscite..15
Somma 310    qt.uscite..23
Somma 311    qt.uscite..16
Somma 312    qt.uscite..15
Somma 313    qt.uscite..12
Somma 314    qt.uscite..19
Somma 315    qt.uscite..13
Somma 316    qt.uscite..26
Somma 317    qt.uscite..14
Somma 318    qt.uscite..18
Somma 319    qt.uscite..21
Somma 320    qt.uscite..19
Somma 321    qt.uscite..18
Somma 322    qt.uscite..15
Somma 323    qt.uscite..13
Somma 324    qt.uscite..12
Somma 325    qt.uscite..12
Somma 326    qt.uscite..16
Somma 327    qt.uscite..15
Somma 328    qt.uscite..18
Somma 329    qt.uscite..19
Somma 330    qt.uscite..20
Somma 331    qt.uscite..9
Somma 332    qt.uscite..16
Somma 333    qt.uscite..12
Somma 334    qt.uscite..10
Somma 335    qt.uscite..19
Somma 336    qt.uscite..8
Somma 337    qt.uscite..16
Somma 338    qt.uscite..6
Somma 339    qt.uscite..16
Somma 340    qt.uscite..11
Somma 341    qt.uscite..8
Somma 342    qt.uscite..10
Somma 343    qt.uscite..8
Somma 344    qt.uscite..17
Somma 345    qt.uscite..15
Somma 346    qt.uscite..7
Somma 347    qt.uscite..11
Somma 348    qt.uscite..10
Somma 349    qt.uscite..14
Somma 350    qt.uscite..8
Somma 351    qt.uscite..8
Somma 352    qt.uscite..4
Somma 353    qt.uscite..10
Somma 354    qt.uscite..13
Somma 355    qt.uscite..5
Somma 356    qt.uscite..11
Somma 357    qt.uscite..14
Somma 358    qt.uscite..11
Somma 359    qt.uscite..11
Somma 360    qt.uscite..4
Somma 361    qt.uscite..9
Somma 362    qt.uscite..8
Somma 363    qt.uscite..7
Somma 364    qt.uscite..7
Somma 365    qt.uscite..8
Somma 366    qt.uscite..6
Somma 367    qt.uscite..3
Somma 368    qt.uscite..3
Somma 369    qt.uscite..8
Somma 370    qt.uscite..5
Somma 371    qt.uscite..1
Somma 372    qt.uscite..5
Somma 373    qt.uscite..8
Somma 374    qt.uscite..4
Somma 375    qt.uscite..3
Somma 376    qt.uscite..9
Somma 377    qt.uscite..3
Somma 378    qt.uscite..2
Somma 379    qt.uscite..4
Somma 380    qt.uscite..5
Somma 381    qt.uscite..8
Somma 382    qt.uscite..6
Somma 383    qt.uscite..2
Somma 384    qt.uscite..6
Somma 385    qt.uscite..4
Somma 386    qt.uscite..4
Somma 387    qt.uscite..9
Somma 388    qt.uscite..2
Somma 389    qt.uscite..4
Somma 390    qt.uscite..5
Somma 391    qt.uscite..1
Somma 392    qt.uscite..4
Somma 393    qt.uscite..6
Somma 394    qt.uscite..1
Somma 395    qt.uscite..7
Somma 396    qt.uscite..1
Somma 397    qt.uscite..2
Somma 398    qt.uscite..5
Somma 399    qt.uscite..2
Somma 400    qt.uscite..2
Somma 401    qt.uscite..3
Somma 402    qt.uscite..4
Somma 403    qt.uscite..4
Somma 404    qt.uscite..3
Somma 405    qt.uscite..3
Somma 406    qt.uscite..1
Somma 407    qt.uscite..4
Somma 408    qt.uscite..5
Somma 409    qt.uscite..2
Somma 410    qt.uscite..2
Somma 411    qt.uscite..3
Somma 412    qt.uscite..1
Somma 413    qt.uscite..2
Somma 414    qt.uscite..1
Somma 415    qt.uscite..1
Somma 416    qt.uscite..1
Somma 417    qt.uscite..1
Somma 418    qt.uscite..2
Somma 419    qt.uscite..2
Somma 421    qt.uscite..1
Somma 422    qt.uscite..3
Somma 423    qt.uscite..1
Somma 424    qt.uscite..2
Somma 425    qt.uscite..2
Somma 427    qt.uscite..1
Somma 428    qt.uscite..2
Somma 429    qt.uscite..1
Somma 430    qt.uscite..1
Somma 432    qt.uscite..2
Somma 433    qt.uscite..2
Somma 435    qt.uscite..1
Somma 438    qt.uscite..2
Somma 441    qt.uscite..2
Somma 442    qt.uscite..1
Somma 444    qt.uscite..1
Somma 445    qt.uscite..1
Somma 446    qt.uscite..1
Somma 449    qt.uscite..1
Somma 454    qt.uscite..1
Somma 455    qt.uscite..1
Somma 457    qt.uscite..1
Somma 467    qt.uscite..1
Letto N.estrazioni in archivio..2993

 

[Rubino]

Riepilogo Distribuzione delle somme N.PRIMI piu uscite
Somma 005    qt.uscite..2
Somma 007    qt.uscite..2
Somma 008    qt.uscite..4
Somma 009    qt.uscite..11
Somma 010    qt.uscite..12
Somma 011    qt.uscite..26
Somma 012    qt.uscite..18
Somma 013    qt.uscite..14
Somma 014    qt.uscite..55
Somma 015    qt.uscite..53
Somma 016    qt.uscite..49
Somma 017    qt.uscite..94
Somma 018    qt.uscite..106
Somma 019    qt.uscite..116
Somma 020    qt.uscite..143
Somma 021    qt.uscite..145
Somma 022    qt.uscite..175
Somma 023    qt.uscite..177
Somma 024    qt.uscite..183
Somma 025    qt.uscite..190
Somma 026    qt.uscite..185
Somma 027    qt.uscite..169
Somma 028    qt.uscite..171
Somma 029    qt.uscite..160
Somma 030    qt.uscite..164
Somma 031    qt.uscite..123
Somma 032    qt.uscite..106
Somma 033    qt.uscite..82
Somma 034    qt.uscite..60
Somma 035    qt.uscite..47
Somma 036    qt.uscite..50
Somma 037    qt.uscite..30
Somma 038    qt.uscite..27
Somma 039    qt.uscite..15
Somma 040    qt.uscite..7
Somma 041    qt.uscite..13
Somma 042    qt.uscite..6
Somma 043    qt.uscite..2
Somma 044    qt.uscite..1

 

[Rubino]

Riepilogo Distribuzione delle somme N.SECONDI piu uscite
Somma 005    qt.uscite..2
Somma 007    qt.uscite..4
Somma 008    qt.uscite..6
Somma 009    qt.uscite..5
Somma 010    qt.uscite..9
Somma 011    qt.uscite..10
Somma 012    qt.uscite..17
Somma 013    qt.uscite..24
Somma 014    qt.uscite..28
Somma 015    qt.uscite..46
Somma 016    qt.uscite..50
Somma 017    qt.uscite..55
Somma 018    qt.uscite..71
Somma 019    qt.uscite..87
Somma 020    qt.uscite..106
Somma 021    qt.uscite..104
Somma 022    qt.uscite..122
Somma 023    qt.uscite..142
Somma 024    qt.uscite..145
Somma 025    qt.uscite..171
Somma 026    qt.uscite..173
Somma 027    qt.uscite..174
Somma 028    qt.uscite..173
Somma 029    qt.uscite..186
Somma 030    qt.uscite..155
Somma 031    qt.uscite..152
Somma 032    qt.uscite..145
Somma 033    qt.uscite..122
Somma 034    qt.uscite..103
Somma 035    qt.uscite..82
Somma 036    qt.uscite..78
Somma 037    qt.uscite..68
Somma 038    qt.uscite..44
Somma 039    qt.uscite..43
Somma 040    qt.uscite..31
Somma 041    qt.uscite..18
Somma 042    qt.uscite..18
Somma 043    qt.uscite..6
Somma 044    qt.uscite..7
Somma 045    qt.uscite..4
Somma 046    qt.uscite..3
Somma 048    qt.uscite..2
Somma 049    qt.uscite..1
Somma 050    qt.uscite..1

 

[Rubino]

Riepilogo Distribuzione delle somme UNIFICATI piu uscite
Somma 018    qt.uscite..1
Somma 023    qt.uscite..1
Somma 024    qt.uscite..1
Somma 026    qt.uscite..3
Somma 027    qt.uscite..2
Somma 028    qt.uscite..3
Somma 029    qt.uscite..5
Somma 030    qt.uscite..5
Somma 031    qt.uscite..18
Somma 032    qt.uscite..11
Somma 033    qt.uscite..13
Somma 034    qt.uscite..18
Somma 035    qt.uscite..22
Somma 036    qt.uscite..30
Somma 037    qt.uscite..34
Somma 038    qt.uscite..46
Somma 039    qt.uscite..55
Somma 040    qt.uscite..35
Somma 041    qt.uscite..65
Somma 042    qt.uscite..67
Somma 043    qt.uscite..59
Somma 044    qt.uscite..87
Somma 045    qt.uscite..88
Somma 046    qt.uscite..120
Somma 047    qt.uscite..111
Somma 048    qt.uscite..112
Somma 049    qt.uscite..128
Somma 050    qt.uscite..129
Somma 051    qt.uscite..135
Somma 052    qt.uscite..123
Somma 053    qt.uscite..155
Somma 054    qt.uscite..119
Somma 055    qt.uscite..115
Somma 056    qt.uscite..121
Somma 057    qt.uscite..106
Somma 058    qt.uscite..115
Somma 059    qt.uscite..103
Somma 060    qt.uscite..111
Somma 061    qt.uscite..95
Somma 062    qt.uscite..79
Somma 063    qt.uscite..51
Somma 064    qt.uscite..49
Somma 065    qt.uscite..44
Somma 066    qt.uscite..53
Somma 067    qt.uscite..35
Somma 068    qt.uscite..23
Somma 069    qt.uscite..24
Somma 070    qt.uscite..16
Somma 071    qt.uscite..13
Somma 072    qt.uscite..10
Somma 073    qt.uscite..7
Somma 074    qt.uscite..8
Somma 075    qt.uscite..3
Somma 076    qt.uscite..4
Somma 077    qt.uscite..5
Somma 078    qt.uscite..1
Somma 081    qt.uscite..1

 

[Rubino]

guardando i 4 prospetti sopra riportati e fatte le nostre debite considerazioni personali,
che alcune somme di Numeretti Primi o Secondi o Somme Unificate o Totale, escono più di altre etc.…

abbiamo preso solo coscienza di come si distribuiscono e continueranno a farlo per il futuro, si perchè le venus lavorano così,
sono state create per distribuire in questo modo i 90 numeri, e sebbene la distribuzioni si avvicinerà sempre piu' ad un equilibrio
o ad un appiattimento verso la frequenza media, segniamo questi aspetti di carattere generico, ma come importanti di base.

questo è lo script di base: credo che è funzionante e che non da errori di nessuna sorta.

PRIMO SCRIPT

Option Explicit
Sub Main
 Dim es,p,somtot,somnumd,somnump,ct,fine,a,b,c,primi,secondi,unificati
 Dim rieT(525),ried(100),riep(100),RIEU(100)
 '''
 fine = EstrazioniArchivioSE
 Scrivi "LeggeArchivioEstrazioni SUperEnalotto x ricerca Distribuzione delle migliori somme   (adispo-1) ",1
 Scrivi "Estr.n data           Estratti           Somma Tot. Somma N.Primi    Somma N.Secondi   Somma N.Primi+Nsecondi ",1
 For es = 1 To fine
  Messaggio(es)
  ReDim n(6)
  somtot = 0
  somnumd = 0
  somnump = 0
  For p = 1 To 6
   n(p) = Format2(EstrattoSE(es,p))
   somtot = somtot + Int(n(p))
   somnumd = somnumd + Int(Left(n(p),1))
   somnump = somnump + Int(Right(n(p),1))
   primi = somnumd
   secondi = somnump
   unificati = somnumd+somnump
  Next
   rieT(somtot) = rieT(somtot) + 1
   ried(primi) = ried(primi) + 1
   riep(secondi) = riep(secondi) + 1
   RIEU(unificati) = RIEU(unificati) + 1
  '''''
  Scrivi FormattaStringa(es,"0000")  & " / " & DataEstrazioneSE(es) & "     " & StringaNumeri(n,".") & "     " & FormattaStringa(somtot,"000")  & "           " & Format2(somnumd) & "               " & Format2(somnump) & "               " & somnumd+somnump,1
  ct = ct + 1
 Next
  Scrivi String(89,"=")
  Scrivi : ColoreTesto(1)
 Scrivi "Riepilogo Distribuzione delle somme N.PRIMI piu uscite ",1
 ColoreTesto(0)
 For a = 1 To 100
  If ried(a) > 0 Then
   Scrivi "Somma " & FormattaStringa(a,"000") & "    qt.uscite.." & ried(a),1
  End If
 Next
  Scrivi String(89,"=")
  Scrivi : ColoreTesto(1)
 Scrivi "Riepilogo Distribuzione delle somme N.SECONDI piu uscite ",1
 ColoreTesto(0)
 For a = 1 To 100
  If riep(a) > 0 Then
   Scrivi "Somma " & FormattaStringa(a,"000") & "    qt.uscite.." & riep(a),1
  End If
 Next
  Scrivi String(89,"=")
  Scrivi : ColoreTesto(1)
 Scrivi "Riepilogo Distribuzione delle somme UNIFICATI piu uscite ",1
 ColoreTesto(0)
 For a = 1 To 100
  If RIEU(a) > 0 Then
   Scrivi "Somma " & FormattaStringa(a,"000") & "    qt.uscite.." & RIEU(a),1
  End If
 Next
  Scrivi String(89,"=")
 Scrivi : ColoreTesto(1)
 Scrivi "Riepilogo Distribuzione delle somme Totali piu uscite ",1
 ColoreTesto(0)
 For a = 1 To 525
  If rieT(a) > 0 Then
   Scrivi "Somma " & FormattaStringa(a,"000") & "    qt.uscite.." & rieT(a),1
  End If
 Next
 Scrivi "Letto N.estrazioni in archivio.." & ct,1
 Scrivi "Tempo Elab." & TempoTrascorso,1
End Sub

 

[Rubino]

Continuando con il secondo obbiettivo, cercando una matrice fatta dai sistemisti, una buona matrice può anche essere " non un primato "
Ma il necessario è che abbia una buona copertura e una buona resa.


in questo caso la matrice che ho usato è al 100% di Jurcovic
ho voluto provare la matrice 90-06-03-05 di 1644 colonne

filtrando solo la somma NPrimi somma min.13 e max 13
le colonne si riducono a 116
il risultato è stato di 16 due

mentre se imposto nPrimi somma min.12 e max 14
le colonne si riducono a 372
il risultato è stato di 1 tre e 35 due

 

[silop2005]

SPMT vers. 1.6.31_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao Rubino ,

======================

Se ti può essere utile ecco le somme più uscite

delle quattro sezioni : Somma N.Primi 25 qt uscite 190 ====================== Somma N.Secondi 29 qt uscite 186 ====================== somme UNIFICATI 53 qt uscite 155 ====================== Somma Totali 295 qt uscite 31 Somma tOtali 278 qt uscite 30 ====================== Queste sono le risultanze con il mio archivio di 2.993 estrazioni su SPMT. ====================== Buona giornata a tutto il forum. ====================== A presto Silop

 

[Rubino]

SECONDO SCRIPT

questo script permette di leggere un FILE c:\temp\MATRICE-ORIGINALE.txt
che contiene lo sviluppo del vostro sistema e di un sistema scaricato da Jolla o da lottodesigns
Stiamo Parlando di SuperEnalotto, quindi sistemi in classe 6 o in sestine

Lo script prepara per l'uso successivo di altri script formattando i campi in modo conforme
ai numeretti viene messo lo 0 prima del numero tipo 01 02 03 04 05 06 07 08 09
la sestina viene divisa da uno spazio vuoto tra un numero e l'altro

crea un file output di nome c:\temp\MATRICE.txt

Option Explicit
Sub Main
   '''''''''SERVE PRINCIPALMENTE per leggere FILE Matrice-ORIGINALE e trasformarla in Matrice per adispo-3 per somme
   '''''Legge matrice-Originale da jolla-cover designs-wuc e output matrice.txt corretta per elaborazione con adispo-3 x parzializzioni somme
   '''''--------------------------------------------------------
   Dim sFileBd,Srecord,last
   Dim file,record,lun,x,riga,qt,h,tt,b,c,w,rigain,ct
   ''''file output MATRICE.TXT
   Scrivi "Script Adispo-2",1
   sFileBd = "C:\temp\MATRICE-ORIGINALE.txt"
   file = "C:\temp\Matrice.txt"
   Call EliminaFile(file)
   Call LeggiRigheFileDiTesto(sFileBd,Srecord)
   last = UBound(Srecord)
   ColoreTesto(2)
   Scrivi "Tot.combinazioni in matrice - ORIGINALE " & last + 1,1
   '''''''''''''''''''''''''''''''''''''''''
   Scrivi "Matrice output  " & file,1
   ColoreTesto(0)
   Scrivi "La Matrice Preparata con numeri diviso da 1 spazio ",1
   Scrivi "La Matrice deve contenere i numeretti 1:9 con lo zero a sx",1
   Scrivi "La Matrice deve terminare con ultima riga valida e non deve avere righe vuote oltre la fine ",1
   Scrivi "Trasformazione automatica MATRICE-ORIGINALE.txt in MATRICE.txt  Controllato Sistemi Provenienti da Jolla e LottoDesigns ",1
   Scrivi
   ColoreTesto(0)
   '''loop per leggere file e calcolare combinazioni come da parametri filtro impostati
   For x = 0 To last
      Messaggio(x & "../..  " & last + 1)
      'arrays decodifica e prepara file di output
      ReDim av(50)
      riga = ""
      lun = Len(Srecord(x))
      riga = Mid(Srecord(x),1,lun)
      qt = lun
      rigain = ""
      w = 0
      For w = w + 1 To lun
         If Mid(riga,w,1) = " " And Mid(riga,w,2) = "  " Then
            rigain = rigain & "0"
            w = w + 1
         Else
       If Mid(riga,w,1) <> "." And Mid(riga,w,1) <> " "  Then rigain = rigain & Mid(riga,w,1)
         If w = 3 Or w = 6 Or w = 9 Or w = 12 Or w = 15 Then rigain = rigain & " "
         End If
      Next
      ct = ct + 1
      record = rigain
      Call ScriviFile(file,record)
   Next
   Scrivi " Totale combinazione elaborate..." & ct,1
   Scrivi
   Scrivi "Tempo Elab." & TempoTrascorso
   CloseFileHandle(file)
End Sub

 

[Rubino]

TERZO SCRIPT

questo script legge il file c:\temp\Matrice.txt che contiene il nostro sistema che vogliamo. esaminare in funzione delle somme
che desideriamo richiedergli.

scomponendo la sestina in 12 numeretti vengono esaminati 6 numeretti in posizione dispari e fatta la somma NPRIMI
scomponendo la sestina in 12 numeretti vengono esaminati 6 numeretti in posizione pari e fatta la somma NSECONDI
scomponendo la sestina in 12 numeretti vengono esaminati tutte e 12 e fatta la somma UNIFICATI
per la scelta T=TOTALE vengono lette tutte le somme specificate sopra ed inoltre la somma totale delle sestina e riepiloga
tutte le somme in funzione della somma totale.

E' la scelta Iniziale per rendersi conto di quali somme sono contenure in tutto il sistema che vogliamo esaminare.

il quadro che viene RIEPILOGATO è il seguente
ne metto solo un pezzetto perchè il file che ho usato come prova è il 90-06-03 di 6364 e non posso postarlo tutto

[SIZE=10px]Script Adispo-3
Leggo combinazioni matrice ....6364
Matrice -  C:\temp\Matrice.txt
Matrice - classe 6
Totale Combinazioni 6364
Filtra Somma Numeretti Posizione D=nPrimi o P=nSecondi o U=Unificati(DP)  O  T=Totale   SCELTO O RICHIESTO..( T )
La Matrice elabora le sestina  , i numeri devono essere divisi da uno spazio vuoto e terminare senza spazi vuoti o punti
La Matrice l'ultima riga del file non deve avere righe bianche o senza dati
La Matrice deve terminare con ultima riga valida
  Somma Tot.0098   Somma PosD.16   Somma PosP.36   Somma Unificata 052      01 02 03 04 05 84
  Somma Tot.0125   Somma PosD.20   Somma PosP.50   Somma Unificata 070      01 02 05 06 35 77
  Somma Tot.0114   Somma PosD.18   Somma PosP.48   Somma Unificata 066      01 02 05 07 27 73
  Somma Tot.0136   Somma PosD.22   Somma PosP.52   Somma Unificata 074      01 02 05 08 49 72
  Somma Tot.0100   Somma PosD.16   Somma PosP.40   Somma Unificata 056      01 02 05 09 20 64
  Somma Tot.0164   Somma PosD.30   Somma PosP.28   Somma Unificata 058      01 02 05 10 66 81
  Somma Tot.0168   Somma PosD.30   Somma PosP.36   Somma Unificata 066      01 02 05 11 68 82
  Somma Tot.0131   Somma PosD.22   Somma PosP.42   Somma Unificata 064      01 02 05 12 37 75
  Somma Tot.0105   Somma PosD.18   Somma PosP.30   Somma Unificata 048      01 02 05 13 34 51
  Somma Tot.0118   Somma PosD.18   Somma PosP.56   Somma Unificata 074      01 02 05 14 28 69
  Somma Tot.0122   Somma PosD.20   Somma PosP.44   Somma Unificata 064      01 02 05 15 38 62
  Somma Tot.0124   Somma PosD.20   Somma PosP.48   Somma Unificata 068      01 02 05 16 43 58
  Somma Tot.0128   Somma PosD.20   Somma PosP.56   Somma Unificata 076      01 02 05 17 45 59
  Somma Tot.0159   Somma PosD.28   Somma PosP.38   Somma Unificata 066      01 02 05 18 44 90
  Somma Tot.0129   Somma PosD.22   Somma PosP.38   Somma Unificata 060      01 02 05 19 40 63
  Somma Tot.0134   Somma PosD.24   Somma PosP.28   Somma Unificata 052      01 02 05 21 41 65
  Somma Tot.0130   Somma PosD.22   Somma PosP.40   Somma Unificata 062      01 02 05 22 46 55
  Somma Tot.0134   Somma PosD.22   Somma PosP.48   Somma Unificata 070      01 02 05 23 48 56
  Somma Tot.0135   Somma PosD.22   Somma PosP.50   Somma Unificata 072      01 02 05 24 47 57
  Somma Tot.0144   Somma PosD.24   Somma PosP.48   Somma Unificata 072      01 02 05 25 36 76
  Somma Tot.0167   Somma PosD.30   Somma PosP.34   Somma Unificata 064      01 02 05 26 60 74
  Somma Tot.0149   Somma PosD.26   Somma PosP.38   Somma Unificata 064      01 02 05 29 42 71
  Somma Tot.0159   Somma PosD.30   Somma PosP.18   Somma Unificata 048      01 02 05 30 52 70
  Somma Tot.0202   Somma PosD.36   Somma PosP.44   Somma Unificata 080      01 02 05 31 78 86[/SIZE]

questo è lo script

Option Explicit
Sub Main
 '''''''''SERVE PRINCIPALMENTE per leggere FILE Matrice da jolla o cover designs o wuc
 '''''ma può leggere anche matrici anche grandi
 '''''--------------------------------------------------------
 Dim sFileBd,Srecord,last,x,qt,t,cg,numeretto,hH,h,ts,tT,ct,K,z,NPda,NPa,NSda,NSa,NUda,NUa
 Dim file,record,lastult,selsom,tsd,tsp,Classe,riga,lb,xx
 ''''file output dopo filtro Pilota
 Scrivi "Script Adispo-3",1
 sFileBd = "C:\temp\Matrice.txt"
 Call LeggiRigheFileDiTesto(sFileBd,Srecord)
 last = UBound(Srecord)
 ColoreTesto(2)
 Scrivi "Leggo combinazioni matrice ...." & last + 1,1
 '''''''''''''''''''''''''''''''''''''''''
   Do While Classe = ""
      Classe = InputBox("Classe Matrice 6 = sestina",,6)
      If Classe <> 6 Then
         MsgBox("possibile solo 6 = Sestina ")
         Classe = ""
      Else
         Exit Do
      End If
   Loop
 selsom = InputBox("Filtra Somma D=nPrimi o P=nSecondi o  U=Unificati(DP) o  T=totale",,"D")
 If selsom ="D" Or selsom ="d" Then
  NPda = CInt(InputBox("Somma n.Primi da.....  ",,25))
  NPa = CInt(InputBox("Somma n.Primi  a.....  ",,25))
 End If
 If selsom ="P" Or selsom ="p" Then
  NSda = CInt(InputBox("Somma n.Secondi da.....  ",,38))
  NSa = CInt(InputBox("Somma n.Secondi  a.....  ",,38))
 End If
 If selsom ="U" Or selsom ="u" Then
  NUda = CInt(InputBox("Somma Unificata da.....  ",,38))
  NUa = CInt(InputBox("Somma Unificata  a.....  ",,38))
 End If
 Scrivi "Matrice -  " & sFileBd,1
 Scrivi "Matrice - classe " & Classe,1
 Scrivi "Totale Combinazioni " & last + 1,1
 Scrivi "Filtra Somma Numeretti Posizione D=nPrimi o P=nSecondi o U=Unificati(DP)  O  T=Totale   SCELTO O RICHIESTO..( " & selsom & " )",1
 ColoreTesto(1)
 If selsom = "D" Or selsom = "d"  Then Scrivi "N.Primi Presenze da....( " & NPda & " ) a....( " & NPa & " )",1
 If selsom = "P" Or selsom = "p"  Then Scrivi "N.Secondi Presenze da....( " & NSda & " ) a....( " & NSa & " )",1
 If selsom = "U" Or selsom = "u"  Then Scrivi "N.Unificati  Presenze da....( " & NUda & " ) a....( " & NUa & " )",1
 ColoreTesto(0)
 Scrivi "La Matrice elabora le sestina  , i numeri devono essere divisi da uno spazio vuoto e terminare senza spazi vuoti o punti",1
 Scrivi "La Matrice l'ultima riga del file non deve avere righe bianche o senza dati ",1
 Scrivi "La Matrice deve terminare con ultima riga valida",1
 ColoreTesto(0)
 '''loop per leggere file e calcolare combinazioni come da parametri filtro impostati
 For x = 0 To last
  Messaggio(x & "../..  " & last + 1)
  'arrays decodifica
  ReDim av(50)
  riga = ""
  lb =(Classe*2) +(Classe)
  riga = Left(Srecord(x),lb)
  Call SplitByChar(riga," ",av)
  qt = UBound(av)
  ReDim NR(50)
  '''compondo arrays per numeretti
  hH = 0:ts = 0:tsp = 0:tsd = 0
  For h = 1 To qt
   hH = hH + 1
   NR(hH) = Left(Format2(av(h)),1)
   hH = hH + 1
   NR(hH) = Right(Format2(av(h)),1)
   '''' TOTALE
   If selsom = "T" Or selsom = "t" Then
    ts = ts + Int(av(h))
   End If
  Next
  ''''pari o dispari
  If selsom = "D" Or selsom = "d" Or selsom = "T" Then
   For K = 0 To qt*2 + 2
    If dispari(K) = True Then
     tsd = tsd + Int(NR(K))
    End If
   Next
  End If
  If selsom = "P" Or selsom = "p" Or selsom = "T" Then
   For K = 1 To qt*2 + 2
    If pari(K) = True Then
     tsp = tsp + Int(NR(K))
    End If
   Next
  End If
  ''''''CALCOLA SOMMA DISPARI O PARI O TOTALE
  '''''
  If selsom = "d" Or selsom = "D" Then
   If tsd >= NPda And tsd <= NPa Then
    ct = ct + 1
    Scrivi  riga
   End If
   cg = cg + 1
  End If
  If selsom = "P" Or selsom = "p" Or selsom = "T" Then
   If tsp >= NSda And tsp <= NSa Then
    ct = ct + 1
    Scrivi  riga
   End If
   cg = cg + 1
  End If
  ''''Unificati'''''''''''''''''''''''''''''''''''''''''''''''''
  ''''pari o dispari
  If selsom = "U" Or selsom = "u" Or selsom = "T" Then
   For K = 0 To qt*2 + 2
    If dispari(K) = True Then
     tsd = tsd + Int(NR(K))
    End If
   Next
  End If
  If selsom = "U" Or selsom = "U" Or selsom = "T" Then
   For K = 0 To qt*2 + 2
    If pari(K) = True Then
     tsp = tsp + Int(NR(K))
    End If
   Next
  End If
  ''''''CALCOLA SOMMA DISPARI O PARI O TOTALE
  '''''
  If selsom = "U" Or selsom = "U" Then
   If tsd + tsp >= NUda  And tsd+tsp  <= NUa Then
    ct = ct + 1
    Scrivi  riga
   End If
   cg = cg + 1
  End If
  ''''''''
  If selsom = "T" Or selsom = "t" Then
   Scrivi "  Somma Tot." & FormattaStringa(ts,"0000") & "   Somma PosD." & Format2(tsd) & "   Somma PosP." & Format2(tsp) &  "   Somma Unificata " & FormattaStringa(tsd+tsp,"000")  & "      " & riga
   ct = ct + 1
   cg = cg + 1
  End If
 Next
 Scrivi
 Scrivi "Totale combinazioni elab." & x,1
 Scrivi
 Scrivi "Riepilogo combinazioni filtrate.." & ct,1
 Scrivi
 Scrivi "Tempo Elab." & TempoTrascorso
End Sub

 

[adispo2000]

Ciao rubino..scusami dalla mia assenza ma sono stato ..impegnato l'ultimo script e ok....ma si puo' mettere un opzione di salvataggio file?

 

[Rubino]

ho predisposto la possibilità di mettere un nome per il file di output
per default ho messo un percorso del mio pc, cambia e metti una cartella che vuoi che conterrà i file eventualmente che scriverai.

la prima volta che usi lo script, dove c'è scritto file di output metti un nome, in pratica questa riga di istruzione
cambiala e una volta scritto il percorso, salva la modifica fatta allo script

file = InputBox("Inserisci NomeFile a Tuo Piacere in output ",,"C:\Users\Utente\Desktop\LavSuperEnalotto\90.06.03-NP-S13.txt")

Option Explicit
Sub Main
   '''''''''SERVE PRINCIPALMENTE per leggere FILE Matrice da jolla o cover designs o wuc
   '''''ma può leggere anche matrici anche grandi
   '''''--------------------------------------------------------
   Dim sFileBd,Srecord,last,x,qt,t,cg,numeretto,hH,h,ts,tT,ct,K,z,NPda,NPa,NSda,NSa,NUda,NUa
   Dim file,rec,lastult,selsom,tsd,tsp,Classe,riga,lb,xx
   ''''file output dopo filtro Pilota
   Scrivi "Script Adispo-3",1
   sFileBd = "C:\temp\Matrice.txt"
   Call LeggiRigheFileDiTesto(sFileBd,Srecord)
   last = UBound(Srecord)
   ColoreTesto(2)
   Scrivi "Leggo combinazioni matrice ...." & last + 1,1
   '''''''''''''''''''''''''''''''''''''''''
   file = InputBox("Inserisci NomeFile a Tuo Piacere in output ",,"C:\Users\Utente\Desktop\LavSuperEnalotto\90.06.03-NP-S13.txt")
   Scrivi "Salva File output Nome...." & file,1
   Call EliminaFile(file)
   '''''''''''''''''''''''''''''''''''''''''
   Do While Classe = ""
      Classe = InputBox("Classe Matrice 6 = sestina",,6)
      If Classe <> 6 Then
         MsgBox("possibile solo 6 = Sestina ")
         Classe = ""
      Else
         Exit Do
      End If
   Loop
   selsom = InputBox("Filtra Somma D=nPrimi o P=nSecondi o  U=Unificati(DP) o  T=totale",,"D")
   If selsom = "D" Or selsom = "d" Then
      NPda = CInt(InputBox("Somma n.Primi da.....  ",,12))
      NPa = CInt(InputBox("Somma n.Primi  a.....  ",,13))
   End If
   If selsom = "P" Or selsom = "p" Then
      NSda = CInt(InputBox("Somma n.Secondi da.....  ",,38))
      NSa = CInt(InputBox("Somma n.Secondi  a.....  ",,38))
   End If
   If selsom = "U" Or selsom = "u" Then
      NUda = CInt(InputBox("Somma Unificata da.....  ",,38))
      NUa = CInt(InputBox("Somma Unificata  a.....  ",,38))
   End If
   Scrivi "Matrice -  " & sFileBd,1
   Scrivi "Matrice - classe " & Classe,1
   Scrivi "Totale Combinazioni " & last + 1,1
   Scrivi "Filtra Somma Numeretti Posizione D=nPrimi o P=nSecondi o U=Unificati(DP)  O  T=Totale   SCELTO O RICHIESTO..( " & selsom & " )",1
   ColoreTesto(1)
   If selsom = "D" Or selsom = "d" Then Scrivi "N.Primi Presenze da....( " & NPda & " ) a....( " & NPa & " )",1
   If selsom = "P" Or selsom = "p" Then Scrivi "N.Secondi Presenze da....( " & NSda & " ) a....( " & NSa & " )",1
   If selsom = "U" Or selsom = "u" Then Scrivi "N.Unificati  Presenze da....( " & NUda & " ) a....( " & NUa & " )",1
   ColoreTesto(0)
   Scrivi "La Matrice elabora le sestina  , i numeri devono essere divisi da uno spazio vuoto e terminare senza spazi vuoti o punti",1
   Scrivi "La Matrice l'ultima riga del file non deve avere righe bianche o senza dati ",1
   Scrivi "La Matrice deve terminare con ultima riga valida",1
   ColoreTesto(0)
   '''loop per leggere file e calcolare combinazioni come da parametri filtro impostati
   For x = 0 To last
      Messaggio(x & "../..  " & last + 1)
      'arrays decodifica
      ReDim av(50)
      riga = ""
      lb =(Classe*2) +(Classe)
      riga = Left(Srecord(x),lb)
      Call SplitByChar(riga," ",av)
      qt = UBound(av)
      ReDim NR(50)
      '''compondo arrays per numeretti
      hH = 0:ts = 0:tsp = 0:tsd = 0
      For h = 1 To qt
         hH = hH + 1
         NR(hH) = Left(Format2(av(h)),1)
         hH = hH + 1
         NR(hH) = Right(Format2(av(h)),1)
         '''' TOTALE
         If selsom = "T" Or selsom = "t" Then
            ts = ts + Int(av(h))
         End If
      Next
      ''''pari o dispari
      If selsom = "D" Or selsom = "d" Or selsom = "T" Then
         For K = 0 To qt*2 + 2
            If dispari(K) = True Then
               tsd = tsd + Int(NR(K))
            End If
         Next
      End If
      If selsom = "P" Or selsom = "p" Or selsom = "T" Then
         For K = 1 To qt*2 + 2
            If pari(K) = True Then
               tsp = tsp + Int(NR(K))
            End If
         Next
      End If
      ''''''CALCOLA SOMMA DISPARI O PARI O TOTALE
      '''''
      If selsom = "d" Or selsom = "D" Then
         If tsd >= NPda And tsd <= NPa Then
            ct = ct + 1
            Scrivi riga
            rec = riga
            Call ScriviFile(file,rec)
         End If
         cg = cg + 1
      End If
      If selsom = "P" Or selsom = "p" Or selsom = "T" Then
         If tsp >= NSda And tsp <= NSa Then
            ct = ct + 1
            Scrivi riga
            rec = riga
            Call ScriviFile(file,rec)
         End If
         cg = cg + 1
      End If
      ''''Unificati'''''''''''''''''''''''''''''''''''''''''''''''''
      ''''pari o dispari
      If selsom = "U" Or selsom = "u" Or selsom = "T" Then
         For K = 0 To qt*2 + 2
            If dispari(K) = True Then
               tsd = tsd + Int(NR(K))
            End If
         Next
      End If
      If selsom = "U" Or selsom = "U" Or selsom = "T" Then
         For K = 0 To qt*2 + 2
            If pari(K) = True Then
               tsp = tsp + Int(NR(K))
            End If
         Next
      End If
      ''''''CALCOLA SOMMA DISPARI O PARI O TOTALE
      '''''
      If selsom = "U" Or selsom = "U" Then
         If tsd + tsp >= NUda And tsd + tsp <= NUa Then
            ct = ct + 1
            Scrivi riga
            rec = riga
            Call ScriviFile(file,rec)
         End If
         cg = cg + 1
      End If
      ''''''''
      If selsom = "T" Or selsom = "t" Then
         Scrivi "  Somma Tot." & FormattaStringa(ts,"0000") & "   Somma PosD." & Format2(tsd) & "   Somma PosP." & Format2(tsp) & "   Somma Unificata " & FormattaStringa(tsd + tsp,"000") & "      " & riga
         ct = ct + 1
         cg = cg + 1
      End If
   Next
    Call CloseFileHandle(file)
   Scrivi
   Scrivi "Totale combinazioni elab." & x,1
   Scrivi
   Scrivi "Riepilogo combinazioni filtrate.." & ct,1
   Scrivi
   Scrivi "Tempo Elab." & TempoTrascorso
End Sub

 

[adispo2000]

Ciao rubino...la sinusite mi sta' uccidendo..quindi ho poca voglia al momento di commentare anche se' hai fatto un bel lavoro..volevo dirti di poter attuare questo mettodo dalle terzine fino alle decine e non solo alle sestine....ma potendo analizzare gli archivi che non sono disponibili in spaziometria..tipo milionday dove non si puo' stabilire una statistica ci vorrebbe un script che legga in primis un file txt che potrebbe essere un archivio "X" di varie lunghezze dipende di che tipo di gioco vogliamo studiare e poi attuare un secondo script che poi e quello che hai creato tu che possa leggere vari lunghezze per poter poi attuare il metodo..ciao

 

[adispo2000]

Poi ho notato che nei sitemi integrali e nei sistemi a gar.-1....il file reagiste che e' una bomba................per vincite multiple anche se non indoviniamo la somma prestabilita..faccio delle verifiche e ci sentiamo