trasformare 9480 combinazioni di 5 numeri in 10 num.?

[duilio arcari]

ciao flash,hai ragione,ho ricontrollato il tutto e devo dire che proprio non mi ero accorto che stavo riscrivendo
le stesse colonne.a questo punto è inutile guardare il foglio2 che non hai ricevuto.
non ho capito bene come faccio a cambiare la numerazione da a1 a j1,la riga verde.
per quanto riguarda il problema iniziale(quello del titolo del forum),voglio provare dimezzando i numeri totali e
sviluppando 2 sistemi da 5 x poi unirli in uno da 10 es: numeri tot. da 1 a 40 ....1 sistema da 1 a 20 sec.sistema da 21a40
fatti con le stesse condizioni e poi uniti in uno da 10.ti farò sapere se conviene.ciao

[Flash30005]

...
non ho capito bene come faccio a cambiare la numerazione da a1 a j1,la riga verde.
...

Nel foglio da me inviato sostituendo i valori nella riga verde (A1:J1) da 0 a 1 o 2 automaticamente avrai lo "sfasamento" della sequenza numerica che sarà applicata a tutte le righe sottostanti.
E' opportuno comunque mettere, nel Foglio1, da A2 a A51 i valori (non formule) da 1 a... 50.
Nel caso volessi portare a 90 i numeri basta copiare l'ultima riga (A51:J51) trascinandola verso il basso.

Per quanto riguarda lo sviluppo di 2 sistemi in gruppi da 5 numeri e poi "unirli" ricorda che se un sistema ti fornisce 15 righe (15 righe anche il secondo essendo di pari numeri) alla fine avrai 15x15 = 225 combinazioni e ogni gruppo da 10 avrà 15 volte la ripetizione di 5 numeri es.
sistema1
1-2-3-4-5
1-2-3-4-6
etc

sistema2
21-22-23-24-25
21-22-23-24-26
etc

sistema unito
1-2-3-4-5-21-22-23-24-25
1-2-3-4-5-21-22-23-24-26
1-2-3-4-6-21-22-23-24-25
1-2-3-4-6-21-22-23-24-26

ogni ogni gruppo da 5 è ripetuto 2 volte (tante volte quante sono le colonne dell'altro sistema)

Ciao

[duilio arcari]

ciao flash,ho provato a copiare l'ultima riga a51 k51 fino a riga 61, ma la numerazione si interrompe a 50
non continua fino a 60 perchè?ciao.

[Flash30005]

In A1 hai lo "sfasamento" (0)
In A2 inserisci

Codice: Seleziona tutto

=1+A1

In A3 metterai

Codice: Seleziona tutto

=A2+A$1+1

copi questa formula fino alla riga 51
poi selezioni tutta la riga dati 51 da A51 a J51 e la trascini fino a ... dove vuoi

ciao


P.s. se hai lasciato le formule originali c'era il "divieto" di superare 50 in quel caso avrebbe ricominciato da 1
sarebbe bastato dare un'occhiata alla formula

[duilio arcari]

ciao flash.ho capito bene l'ultima macro e devo dire che va da dio.ora però mi servirebbe una macro in cui io posso
sciegliere i numeri da giocare, perchè con quella che abbiamo si incolonnano tutti i numeri, anche quelli che non ho
scielto.è possibile?ciao.

[Flash30005]

Fammi un esempio....

Però pensandoci, potrebbe essere perché in effetti tu non fai altro che sommare 1 o 2 numeri (con 0 e 1 della testata) al numero precedente quindi può succedere, dipende da come vuoi il sistema
per questo ti chiedo di fare un esempio di gruppo/i di numeri e cosa vorresti ottenere.

Ciao

[duilio arcari]

ciao flash.l'esempio è questo:se io scielgo di giocare su 50 numeri, solo 30 numeri, devono girare solo i 30 numeri,
i rimanenti 20 che non ho scielto non devono comparire sul sistema.
come funziona adesso invece,qualsiasi combinazione do all'inizio,poi mi ributta dentro anche gli altri numeri.
in questo caso invece di far girare 30 numeri,è come se ne faccio girare 50.
forse la macro va abbinata ad un'altra che mi permette di sciegliere i numeri che voglio giocare.
logicamente i numeri che farò girare sono 30,ma la scielta va fatta su tutti e 90 i numeri.ciao.

[Flash30005]

E che vuoi che ti dica...

manda questi 30 numeri, nel frattempo studio qualcosa

Ciao

[duilio arcari]

ciao flash. i numeri sono questi:1-2-5-7-8-9-10-11-12-13-14-15-17-18-19-20-21-22-27-29-32-33-36-37
39-45-47-48-49-50.
sarà poi possibile cambiarli o metterne di meno?che so'......15.....20
va be' vedi se riesci.ciao.

[Flash30005]

Ecco!

vedi se così va bene

Ciao


P.s. i numeri che vuoi giocare vanno nella colonna A (puoi metterne quanti ne vuoi), poi clicca su Start (due volte)


Aggiornato ore 18:36

[duilio arcari]

ciao flash.ho provato la nuova macro,e da i seguenti difetti.
ho fatto girere 20 numeri,mi da 2 sole colonne e cambia i primi 2 numeri,gli altri 8 restano uguali...ti scrivo l'esempio
riga verde dove li scombina: 2-0-1-3-0-0-1-4-0-3
prima riga 1-2-5-9-10-11-13-18-19-27
seconda riga 29-1-5-9-10-11-13-18-19-27.
come puoi vedere ha sritto solo 11 numeri,mentre dovrebbe continuare e mettere tutti e 20 i numeri.
mettendo 25 numeri ha scritto 5 colonne, ma non ha messo il 14 -22-31-33.
poi ho portato di nuovo a 30 i numeri e le colonne sono diventate 3 e mancano il 15-31-33.
poi ho notato che non va la riga verde che li scombina,come si nota dove ho scritto (prima riga)la numerazione
non è giusta,avendo come primo numero (2) su riga verde,il primo numero della colonna dovrebbe essere 5 e non 1.
qualcosa non funziona come dovrebbe.ciao.

[Flash30005]

Il problema dei numeri mancanti pensavo fosse risolto con un'elaborazione ciclica (9 cicli) perché produce gruppi uguali e con l'eliminazione dei doppioni avrei eliminato l'ultima riga (doppione) in quanto troncata per via della fine della serie dei numeri, quindi penso che quella riga non è stata trovata sulle rimanenti ma non posso fare le tue stesse prove se non ho i numeri che scegli per il tuo sistema. L'unica cosa che ho fatto è mettere da 1 a 20 o da 1 a 30 e il programma funziona anzi l'ho provato anche con tutti e 90 i numeri.

Personalmente ho escluso il primo sfasamento per la logica che se tu hai 20 numeri, il primo lo dovrai mettere altrimenti dovresti fare il sistema di 19 numeri. Però se ti occorre lo sfasamento anche del primo numero si può modificare la macro e diventa anche più "snella" in quanto per fare quello che ho fatto io ho dovuto fare un'eccezione alla regola.

Aggiungo ora la modifica che potrai fare tu stesso:
Edita la macro SvilSys
e commenta 4 righe di codice come mostrato qui sotto

Codice: Seleziona tutto

    'If CC = 3 Then      '<<<<<<<< COMMENTA
        URS = Worksheets("Sistema").Cells(Rows.Count, CC).End(xlUp).Row + 1
    '    Cells(s, 1).Copy Destination:=ActiveSheet.Cells(URS, CC)     '<<<<<<<< COMMENTA
    '    GoTo salta     '<<<<<<<< COMMENTA
   ' End If     '<<<<<<<< COMMENTA

In questa maniera sfasa anche il primo numero

Ciao

[duilio arcari]

ciao flash.mi ero spiegato male,quando dicevo che lo sfasamento non faceva il suo dovere.
funziona solo se i numeri sono tutti consecutivi,ma se io invece di avere...1-2-3-4-5-6-7-8-9-10 ho dei numeri
sfalzati tipo 2-5-6-9-13-14-18-19-20-21,lo sfasamento non funziona perchè legge lo sbalzo prodotto da me e non
continua piu la sua numerazione.in quanto alla ciclicità dl programma ,è possibile avere 5 cicli x 15 numeri ?
poi la macchina dovrebbe calcolare 5 cicli in piu ogni 10 numeri,come ha gia dimostato di saper fare nei casi con i numeri
consecutivi.dopotutto la troncatura dei cicli avverrà quando riscriverà la prima riga di numeri.ciao.

[Flash30005]

Una cosa che forse mi è sfuggita è che io considero lo sfasamento non ai numeri che tu inserisci (in quanto già sfalsati) ma alla numerazione ordinaria es. se ho in testata
0-1-0-1-0-etc
e nel sistema ho 1,3,6,8,10,15,34, etc
tu cosa vorresti uscisse fuori?
Chiarito questo il programma si fa corretto

ciao

[duilio arcari]

ciao flash.ti mando un foglio excel cosi capisci meglio quello che intendo.
http://rapidshare.com/files/276867695/C ... .xlsx.html
ciao.

[Flash30005]

ti mando un foglio excel cosi capisci meglio quello che intendo

Caro Duilio dopo tanto lavoro (ho quasi completato il programma che ti occorre) ho inserito i tuoi numeri (15)

Codice: Seleziona tutto

2;5;7;8;9;15;18;19;22;32;33;44;49;56;59

con questo sfasamento (il tuo)

Codice: Seleziona tutto

1;0;1;0;0;2;0;0;1;1

e cosa è uscito fuori?
non 10 gruppi di numeri come da te inviati ma 15 come ti dicevo io all'inizio di questi post e sono questi:

Codice: Seleziona tutto

5;7;9;15;18;32;33;44;56;2
7;8;15;18;19;33;44;49;59;5
8;9;18;19;22;44;49;56;2;7
9;15;19;22;32;49;56;59;5;8
15;18;22;32;33;56;59;2;7;9
18;19;32;33;44;59;2;5;8;15
19;22;33;44;49;2;5;7;9;18
22;32;44;49;56;5;7;8;15;19
32;33;49;56;59;7;8;9;18;22
33;44;56;59;2;8;9;15;19;32
44;49;59;2;5;9;15;18;22;33
49;56;2;5;7;15;18;19;32;44
56;59;5;7;8;18;19;22;33;49
59;2;7;8;9;19;22;32;44;56
2;5;8;9;15;22;32;33;49;59

copiali da qui, incollali in un foglio excel e trasforma con "Testo in tabella", inserisci la testata e dimmi se mi sto sbagliando.

Ripeto sono rari i casi che le colonne sfalsando i numeri siano meno dei numeri stessi (sicuramente dipende dallo sfasamento) ma si ottengono molto spesso pari colonne (rivedi mio post)

....
P.s. Ricorda sempre che, se il primo numero di una riga è uguale al primo numero di un'altra riga le due righe saranno uguali in quanto rispecchieranno ambedue le condizioni della testata quindi con 50 numeri al massimo hai 50 righe, con 90 numeri 90 righe ...

ciao

P.s. Entro domani ti invierò il programma

[duilio arcari]

ciao flash.hai ragione,ho fatto degli errori.
infatti in riga otto del mio sistemino ho il numero 49 x 2 volte.a scrivere a mano i sistemini è facile sbagliare
e quando sbagli un numero ,da li in poi tutto è sbagliato.
aspetto che mi mandi il programma .ciao.
ps. se mi mandano in trasferta ci sentiamo sabato.

[Flash30005]

...
aspetto che mi mandi il programma

Eccoti accontentato...(almeno spero)

Ciao

[flrcml69]

Salve, ragazzi.
Sono nuovo del forum, mi sono iscritto proprio adesso.
E' da qualche giorno che guardo con interesse a questa discussione e direi che è molto interessante essendo pure io alla ricerca di un sistemino che riduca il numero di combinazioni di un improbabile sviluppo integrale.
Da qualche settimana studio anche i movimenti dei numeri del 10eLotto e cosa molto interessante ho visto che delle decine dal 40 al 70 (numeri dal 40 al 79, 40 numeri) ne escono non meno di 9 in quasi tutte le estrazioni, raro che ne escano di meno. In alcune estrazioni anche 10, 11 o addirittura 12.
Se si riuscisse ad inventare un sistemino valido che combini questi 40 numeri almeno a -2 direi che ci sarebbe veramente da guadagnare.
Io sono un programmatore, ma devo confessare che non capisco molto di sistemi, di combinazioni ecc.. in quanto inizio adesso ad interessarmi al problema.
Potete verificare voi con le estrazioni degli ultimi 2 mesi.
Scusate la mia intromissione, ma la cosa la ritengo troppo interessante per passare inosservata.
Grazie per la vostra attenzione.

[Flash30005]

Ciao Flrcml69
e benvenuto

40 numeri in decine sviluppano 847.660.528 colonne (più di quelle del superenalotto 622.000.000 circa) quindi è impensable qualsiasi sistema di riduzione -n.
Potrebbe essere interessante il programma postato qui per Duilio, inserendo i numeri da 40 a 79 puoi ottenere dei gruppi di 10 numeri da giocare, del resto, l'argomento del forum è Applicazioni di MS Office anche se a volte da una richiesta "come si fa?..." succede che ci si ritrova con veri e propri programmi di sviluppo (una cosa che, ti garantisco, non durerà molto).
Comunque se sei programmatore pensa a come realizzare dei piccoli sistemini n-1, n-2
puoi iniziare da uno sviluppo integrale di sestine (non milioni di colonne) e poi confrontarle tra loro e togliere quelle che hanno in comune più di 5 numeri (n-1) o più di 4 (n-2) etc.

Ciao