Italian community of Lazarus and Free Pascal
Programmazione => Generale => Topic aperto da: Narciso - Dicembre 26, 2012, 11:44:05 am
-
Da parecchio tempo sto cercando la soluzione ad un problema di programmazione... non riesco a trovare l'algoritmo adatto a fare cio' che vorrei.
Cerco di spiegarmi.
Devo trovare il modo di sviluppare un sistema di scommesse sportive in modo tale da avere una correzione di errori sul pronostico base.
Ammettiamo che io abbia 7 eventi da far girare in bollette di 4 elementi (quartine).
Svilupperei 35 combinazioni...
1-2-3-4-
1-2-3-5-
1-2-3-6-
1-2-3-7-
1-2-4-5-
1-2-4-6-
1-2-4-7-
1-2-5-6-
1-2-5-7-
1-2-6-7-
1-3-4-5-
1-3-4-6-
1-3-4-7-
1-3-5-6-
1-3-5-7-
1-3-6-7-
1-4-5-6-
1-4-5-7-
1-4-6-7-
1-5-6-7-
2-3-4-5-
2-3-4-6-
2-3-4-7-
2-3-5-6-
2-3-5-7-
2-3-6-7-
2-4-5-6-
2-4-5-7-
2-4-6-7-
2-5-6-7-
3-4-5-6-
3-4-5-7-
3-4-6-7-
3-5-6-7-
4-5-6-7-
adesso dovrei trovare il modo di scegliere solo le combinazioni che mi permettono di correggere 0-1-2 errori sul pronostico base senza avere combinazioni ripetute.
Fino ad ora ho cercato di eliminare le combinazioni che presentassero 3 segni ripetuti
for x:= 0 to list.count-1 do
for y:= x+1 to list.count-1 do
if contapunti(list.item- .comb,list.item[y].comb)<3 then newlist.add(list.item
- .comb);
1-2-3-4-
1-2-3-5-
1-2-3-6-
1-2-3-7-
1-2-4-5-
1-2-4-6-
1-2-4-7-
1-2-5-6-
1-2-5-7-
1-2-6-7-
1-3-4-5-
1-3-4-6-
1-3-4-7-
1-3-5-6-
1-3-5-7-
1-3-6-7-
1-4-5-6-
1-4-5-7-
1-4-6-7-
1-5-6-7-
2-3-4-5-
2-3-4-6-
2-3-4-7-
2-3-5-6-
2-3-5-7-
2-3-6-7-
2-4-5-6-
2-4-5-7-
2-4-6-7-
2-5-6-7-
3-4-5-6-
3-4-5-7-
3-4-6-7-
3-5-6-7-
4-5-6-7-
in questo caso ottengo cio' che desidero......
Ammettiamo adesso che io volessi far correggere 0,1 errori ( non più 0,1,2 ).
Ora elimino le combinazioni che presentassero 2 segni ripetuti
1-2-3-4-
1-2-3-5-
1-2-3-6-
1-2-3-7-
1-2-4-5-
1-2-4-6-
1-2-4-7-
1-2-5-6-
1-2-5-7-
1-2-6-7-
1-3-4-5-
1-3-4-6-
1-3-4-7-
1-3-5-6-
1-3-5-7-
1-3-6-7-
1-4-5-6-
1-4-5-7-
1-4-6-7-
1-5-6-7-
2-3-4-5-
2-3-4-6-
2-3-4-7-
2-3-5-6-
2-3-5-7-
2-3-6-7-
2-4-5-6-
2-4-5-7-
2-4-6-7-
2-5-6-7-
3-4-5-6-
3-4-5-7-
3-4-6-7-
3-5-6-7-
4-5-6-7-
qua sta l'inganno.... le due combinazioni che restano non sono sufficienti....
manca 2-3-4-5- che completerebbe lo schema........
Mi sono scervellato, ma non trovo la soluzione...........
Chi ha qualche idea..... si faccia avanti.....
-
Sarò io lo stordito ma non ci ho capito nulla...
prova a riformulare il quesito, in genere funziona per trovare gli algoritmi.
Spiegare passo passo cosa vuoi fare ;)
-
Eh Stilgar... mo ci provo..... cerco di essere piu' dettagliato....
Allora. Problema: Come ridurre a correzione di errori una combinazione di n numeri sviluppati in n1 elementi?
Praticamente se voglio sviluppare in quartine 7 numeri... basta fare dei cicli for...
colonna:=array [1..7 ]of integer=(1,2,3,4,5,6,7)
for x:= 1 to 7-3 do begin
for x1:= x1+1 to 7-2 do begin
for x2:= x2+1 to 7-1 do begin
for x3:= x3+1 to 7 do begin
combinazione:=inttostr(colonna[x1])+inttostr(colonna[x2])+inttostr(colonna[x3])+inttostr(colonnax4]);
memo1.lines.add(combinazione);
end;
end;
end;
end;
Cio' sviluppa tutte le possibili combinazioni.....
Adesso il problema e': selezionare solo quelle combinazioni che garantiscono la realizzazione della vincita della quartina a patto che siano stati commessi non piu' di 1 errore nella colonna base di 7 elementi. In altre parole correggere 0,1 errori.
il risultato è:
1,2,3,4
1,5,6,7
2,3,4,5
ma quale algoritmo ci vuole per arrivare a cio'?
Chissa' se e' chiaro adesso?
-
Adesso il problema e': selezionare solo quelle combinazioni che garantiscono la realizzazione della vincita della quartina a patto che siano stati commessi non piu' di 1 errore nella colonna base di 7 elementi. In altre parole correggere 0,1 errori.
Ho capito al prima parte, ma non quello che ho quotato qui sopra. Cosa intendi per "errore" ???
Ciao, Mario
-
Eh Stilgar... mo ci provo..... cerco di essere piu' dettagliato....
Allora. Problema: Come ridurre a correzione di errori una combinazione di n numeri sviluppati in n1 elementi?
Praticamente se voglio sviluppare in quartine 7 numeri... basta fare dei cicli for...
colonna:=array [1..7 ]of integer=(1,2,3,4,5,6,7)
for x:= 1 to 7-3 do begin
for x1:= x1+1 to 7-2 do begin
for x2:= x2+1 to 7-1 do begin
for x3:= x3+1 to 7 do begin
combinazione:=inttostr(colonna[x1])+inttostr(colonna[x2])+inttostr(colonna[x3])+inttostr(colonnax4]);
memo1.lines.add(combinazione);
end;
end;
end;
end;
Cio' sviluppa tutte le possibili combinazioni.....
Adesso il problema e': selezionare solo quelle combinazioni che garantiscono la realizzazione della vincita della quartina a patto che siano stati commessi non piu' di 1 errore nella colonna base di 7 elementi. In altre parole correggere 0,1 errori.
Ok aggiungo....
Lo sviluppo totale produce 35 combinazioni......
e sono queste:
1-2-3-4-
1-2-3-5-
1-2-3-6-
1-2-3-7-
1-2-4-5-
1-2-4-6-
1-2-4-7-
1-2-5-6-
1-2-5-7-
1-2-6-7-
1-3-4-5-
1-3-4-6-
1-3-4-7-
1-3-5-6-
1-3-5-7-
1-3-6-7-
1-4-5-6-
1-4-5-7-
1-4-6-7-
1-5-6-7-
2-3-4-5-
2-3-4-6-
2-3-4-7-
2-3-5-6-
2-3-5-7-
2-3-6-7-
2-4-5-6-
2-4-5-7-
2-4-6-7-
2-5-6-7-
3-4-5-6-
3-4-5-7-
3-4-6-7-
3-5-6-7-
4-5-6-7-
tra queste combinazioni ce ne sono 3 (quelle qui sotto) che soddisfano le condizioni
1,2,3,4
1,5,6,7
2,3,4,5
cioe'
se indovino almeno 6 dei 7 risultati di queste tre combinazioni almeno 1 è vincente
ma quale algoritmo ci vuole per arrivare a cio'?
Grazie Per l'attenzone ... Ciao Narciso
-
Boh, io continuo a non capire ...
Cos'hanno le altre combinazioni chwe non gli fanno soddisfare le condizioni?
Ad esempio, 1-2-3-5- cos'ha di "sbagliato" ?
Ciao, Mario
-
nulla.... pero'... se ti giochi tutte e 35 le combinazioni non hai alcun vantagggio economico......
invece se tra le 35 trovi quelle che garantiscono comunque una vincita...... spendi meno e vinci uguale....
bisogna trovare le combinazioni che garantiscono l'esito....
Si vede ke nun joki mai :=)
-
In pratica stai cercando un algoritmo per la riduzione di un sistema di 7 numeri in quartine a garanzia 2 se si prendono almeno 2 pronostici.
Puoi provare a dare un'occhiata a questa discussione:
http://it.scienza.matematica.narkive.com/Wjw4oqDv/simbolismo-c-n-k-t (http://it.scienza.matematica.narkive.com/Wjw4oqDv/simbolismo-c-n-k-t)
Purtroppo il sito italiano che trattava in maniera molto esaustiva questo argomento (www.toto1x2.it (http://www.toto1x2.it)) non esiste più...
-
veramente è a garanzia...4 se ne sbaglio 2 su 7....
comunque grazie per i link....
Ciao Narciso
-
Io ci rinuncio, non riesco proprio a capaire cosa ti serve ... mi dispiace.
P.S. In effetti non gioco mai, al massimo il superenalotto un paio di volte all'anno ...
Ciao, Mario
-
veramente è a garanzia...4 se ne sbaglio 2 su 7....
comunque grazie per i link....
Ciao Narciso
Whatever... ho letto di corsa. ;)
-
Sembra un discorso interessante, chi sa spiegarsi un po' più chiaramente!?
-
Non era however ... whatever?
-
No, "whatever" inteso come "evvabbè" :)
-
aaaa, io sono imbranato con l'inglese ;)
-
:) ho risolto con l'algoritmo di greedy......
eh mica e' facile da spiegare.......
-
Ti andrebbe di postare l'algoritmo?!
Magari può tornare utile a qualcun'altro