[RISOLTO] Formula calcolo combinatorio

Vorrei ricreare una formula che riesca a calcolarmi l'importo delle somme delle varie combinazioni nel caso in cui volessi giocare delle combinazioni doppie, triple, quadruple,ecc...
riporto la figura per rendere più chiaro ciò che vorrei realizzare:

Ciao gabbia77,

se ciò che ti serve è solo il numero di combinazioni di un insieme di elementi la formula è:

=COMBINAZIONE(numero_totale_oggetti;numero_oggetti_in_ciascuna_combinazione)

La puoi trovare tra le innumerevoli funzioni di Excel cliccando sul pulsante con il simbolo "fx" (inserisci funzione) nella barra dei menù standard.

Ciao

Mario

Per farti capire qquello che mi serve ti faccio un esempio.
Prendiamo in considerazione solamente le prime 4 quote:
9; 21 2,1; 1.17;

Se giocassi le doppie la formula che mi servirebbe in questo caso considerando che la posta è 3 sarebbe:
=((9*21)+(9*2,1)+(9*1,17)+(21*2,1)+(21*1,17)+(2,1*1,17))*3

Se giocassi le triple in questo caso sarebbe:
=((9*21*2,1)+(9*21*1,17)+(9*2,1*1,17)+(21*2,1*1,17))*3

Se giocassi le 4-uple in questo caso sarebbe semplicemente:
(9*21*2,1*1,17)*3

Giocando più incontri anzichè solamente 4 ovviamente i calcoli si allungherebbero notevolmente. Vorrei sapere se c'è qualcosa che riesca a riassumere il tutto in base al tipo di giocata che voglio fare (se doppia, tripla, quadrupla, ecc...)

Ciao gabbia77,

non conosco il gioco ma guardando le tue impostazioni potresti semplificarti la vita riducendo le formule. Non mi risulta che vi siano formule già predisposte in excel.

Ammesso che i tuoi dati siano A B C D
x le doppie : =A*B*(C+D)+(A+B)*C*D
per le triple: =A*(B+C+D)+B*(C+D)+C*D
per le quadruple: usa la funzione PRODOTTO(....intervallo..)

guardando con giudizio critico le formule qui riportate puoi sviluppare x altre. Diventa un giochetto anche interessante. Io no andrò oltre.


SE POSSO:
oggi é il 13 (x fortuna non venerdì) x che ci crede quindi ti do`una "mazzata" benevola. Stai lontano dal ricorrere le fortune con questi mezzi. Conosco gente che si é quasi rovinata. E ha perso anche la salute.
La fortuna ti becca x destino (= pura coincidenza) - come i fulmini - é molto improbabile che riesci ad affinare (anche con excel) che ti piova addosso. Pensaci e intanto usa il gioco x perfezionare le tue conoscenze in Excel. Ti potrà servire x cose + serie nella vita e semplificartela nel senso di aiutarti a prendere decisioni + sensate/pecise.

non volermene, ok?.

ciao.
aurelio

+aurelio+, 13/10/2007 10.48:

---

Ciao gabbia77,

non conosco il gioco ma guardando le tue impostazioni potresti semplificarti la vita riducendo le formule. Non mi risulta che vi siano formule già predisposte in excel.

Ammesso che i tuoi dati siano A B C D
x le doppie : =A*B*(C+D)+(A+B)*C*D
per le triple: =A*(B+C+D)+B*(C+D)+C*D
per le quadruple: usa la funzione PRODOTTO(....intervallo..)

guardando con giudizio critico le formule qui riportate puoi sviluppare x altre. Diventa un giochetto anche interessante. Io no andrò oltre.


SE POSSO:
oggi é il 13 (x fortuna non venerdì) x che ci crede quindi ti do`una "mazzata" benevola. Stai lontano dal ricorrere le fortune con questi mezzi. Conosco gente che si é quasi rovinata. E ha perso anche la salute.
La fortuna ti becca x destino (= pura coincidenza) - come i fulmini - é molto improbabile che riesci ad affinare (anche con excel) che ti piova addosso. Pensaci e intanto usa il gioco x perfezionare le tue conoscenze in Excel. Ti potrà servire x cose + serie nella vita e semplificartela nel senso di aiutarti a prendere decisioni + sensate/pecise.

non volermene, ok?.

ciao.
aurelio

---

ok grazie!!
Se invece di 4 valori ne avessi 10 le cose però si complicano.... (A,B,C,D,E,E,F,G,H,I,L).
Sto cercando di sviluppare una formula generale!!

Ti ringrazio per il consglio generale riguardo le scommesse. So benissimo che non mi ci arricchirò considerando anche che gioco un 30€ a settimana!!!
E' un modo diverso per seguire le partite di calcio e gioire o "smadonnare" ad un goal di una o dell'altra squadra!!!
Da inizio campionato sono sotto di 20€ ma... va bene così perchè ogni fine settimana mi diverto!!!

questo mi fa piacere

anche se lo sport dovrebbe essere praticato + che visto.


diceva ..... "siamo nati per vivere felici" credo Bertran. Quindi ogni mezzo é valido.


Se così stanno le cose magari ci (ri)penso.

Ma tu quel cavolo di combinazioni - che saranno la tua e la mia rovina ( e mi avrai sulla coscienza) - fino a dove le vuoi portare (quante) e già che ci siamo, hai fatto qualche ricerca in rete?
Mi sembra strano che non ci sia nulla. Tanti ( e forse troppi) avranno percorso la stessa strada e non certo x solo interesse matematico e/o di programmazione.

Ti saluto cordialmente e x domani .... ti tengo i pugni: vinci .

aurelio

per quanto riguarda la pratica di sport credo di non essere secondo a nessuno!!! Sono un istruttore di tennis e gioco anche se non ad alti livelli in una squadra di calcio!! tornei di calcetto non ne perdo uno!!! eheeh!!!
Per questa settimana ecco la mia scommessa:

Modena Cesena 1 1,75
Piacenza Bologna 1 3,15
Rimini Avellino 1 1,4
Treviso Vicenza 1 2
Lecce Spezia 1 1,45

Metodo Doppie POSTA € 30,00 VINCITA € 111,02

basta che ne indovino 3 e grosso modo faccio a pari, se arrivo alla quarta o addirittura alla quinta vinco 111euro !!!!

Tornando a noi:
in rete ho fatto delle ricerche ma non ho trovato nulla a riguardo!!
Per quanto riguarda la formula direi che vorrei impostarlo per 10 giocate e 10 è anche la classe di combinazioni possibili.
Per farti capire faccio un esempio con 5 lettere dell'alfabeto e fino alle combinazioni quintuple.

valori:
A,B,C,D,E

giocata doppie (come quelle ch eho giocato io stasera )
squadre giocate 5, modo dppie; combinazioni possibili 10

=A*B+A*C+A*D+A*E+B*C+B*D+B*E+C*D+C*E+D*E

giocate triple
squadre 5, modo triple; combinazioni possibili 10

=A*B*C+A*B*D+A*B*E+A*C*D+A*C*E+A*D*E+B*C*D+B*D*E+B*C*E+C*D*E

giocate quadruple
squadre 5, modo quadruple, combinazioni possibili 5

=A*B*C*D+A*B*C*E+A*B*D*E+A*C*D*E+B*C*D*E

giocata quintupla
squadre 5, combinazioni possibili 1

=A*B*C*D*E

ovviamente se aumentano le squadre giocate (vorrei impostarlo fino ad un massimo di 10) i calcoli si allungano notevolmente!!!

fammi sapere se riusciamo a cavarne le gambe!!!
Grazie dell'aiuto!!!

Come l’acqua cheta, che a lungo andare rompe i ponti, ho operato tenacemente in silenzio ottenendo un notevole risultato.

Intervenendo con correzioni, modifiche ed aggiustamenti di una interessantissima macro creata dal prof. Terzaghi, (http://www.terzaghi.it/excel/faq/risposte/15.htm),
sono riuscito a realizzare quanto era nelle tue aspettative.

Questo è il codice da inserire in un modulo:

‘==========================
Function comb_x2(c As Range) As Double
'Dim parziale As Double
'Dim i As Integer
'Dim j As Integer
'Dim k As Integer
'Dim l As Integer
'Dim m As Integer
'Dim n As Integer
'Dim o As Integer
'Dim p As Integer
'Dim q As Integer
'Dim r As Integer
'Dim NRighe As Integer
'Dim NColonne As Integer

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 2 Then
comb_x2 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 1
For j = i + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value
Next
Next
comb_x2 = parziale
End Function

Function comb_x3(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 3 Then
comb_x3 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 2
For j = i + 1 To NRighe - 1
For k = j + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value
Next
Next
Next
comb_x3 = parziale
End Function

Function comb_x4(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 4 Then
comb_x4 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 3
For j = i + 1 To NRighe - 2
For k = j + 1 To NRighe - 1
For l = k + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value * c.Cells(l, 1).Value
Next
Next
Next
Next
comb_x4 = parziale
End Function

Function comb_x5(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 5 Then
comb_x5 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 4
For j = i + 1 To NRighe - 3
For k = j + 1 To NRighe - 2
For l = k + 1 To NRighe - 1
For m = l + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value * c.Cells(l, 1).Value * c.Cells(m, 1).Value
Next
Next
Next
Next
Next
comb_x5 = parziale
End Function

Function comb_x6(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 5 Then
comb_x6 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 5
For j = i + 1 To NRighe - 4
For k = j + 1 To NRighe - 3
For l = k + 1 To NRighe - 2
For m = l + 1 To NRighe - 1
For n = m + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value * c.Cells(l, 1).Value * c.Cells(m, 1).Value * c.Cells(n, 1).Value
Next
Next
Next
Next
Next
Next
comb_x6 = parziale
End Function

Function comb_x7(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 5 Then
comb_x7 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 6
For j = i + 1 To NRighe - 5
For k = j + 1 To NRighe - 4
For l = k + 1 To NRighe - 3
For m = l + 1 To NRighe - 2
For n = m + 1 To NRighe - 1
For o = n + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value * c.Cells(l, 1).Value * c.Cells(m, 1).Value * c.Cells(n, 1).Value * c.Cells(o, 1).Value
Next
Next
Next
Next
Next
Next
Next
comb_x7 = parziale
End Function

Function comb_x8(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 5 Then
comb_x8 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 7
For j = i + 1 To NRighe - 6
For k = j + 1 To NRighe - 5
For l = k + 1 To NRighe - 4
For m = l + 1 To NRighe - 3
For n = m + 1 To NRighe - 2
For o = n + 1 To NRighe - 1
For p = o + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value * c.Cells(l, 1).Value * c.Cells(m, 1).Value * c.Cells(n, 1).Value * c.Cells(o, 1).Value * c.Cells(p, 1).Value
Next
Next
Next
Next
Next
Next
Next
Next
comb_x8 = parziale
End Function

Function comb_x9(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 5 Then
comb_x9 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 8
For j = i + 1 To NRighe - 7
For k = j + 1 To NRighe - 6
For l = k + 1 To NRighe - 5
For m = l + 1 To NRighe - 4
For n = m + 1 To NRighe - 3
For o = n + 1 To NRighe - 2
For p = o + 1 To NRighe - 1
For q = p + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value * c.Cells(l, 1).Value * c.Cells(m, 1).Value * c.Cells(n, 1).Value * c.Cells(o, 1).Value * c.Cells(p, 1).Value * c.Cells(q, 1).Value
Next
Next
Next
Next
Next
Next
Next
Next
Next
comb_x9 = parziale
End Function

Function comb_x10(c As Range) As Double

NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
If NColonne <> 1 Or NRighe < 5 Then
comb_x10 = CVErr(1)
End If
parziale = 0
For i = 1 To NRighe - 9
For j = i + 1 To NRighe - 8
For k = j + 1 To NRighe - 7
For l = k + 1 To NRighe - 6
For m = l + 1 To NRighe - 5
For n = m + 1 To NRighe - 4
For o = n + 1 To NRighe - 3
For p = o + 1 To NRighe - 2
For q = p + 1 To NRighe - 1
For r = q + 1 To NRighe
parziale = parziale + c.Cells(i, 1).Value * c.Cells(j, 1).Value * c.Cells(k, 1).Value * c.Cells(l, 1).Value * c.Cells(m, 1).Value * c.Cells(n, 1).Value * c.Cells(o, 1).Value * c.Cells(p, 1).Value * c.Cells(q, 1).Value * c.Cells(r, 1).Value
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
comb_x10 = parziale
End Function ‘==========================

E più sotto l’allegato.

Ciao

Mario

p.s.: Alla prima vincita sostanziosa, sia io che Aurelio (ciao) saremo ovviamente tuoi ospiti per una vacanza spero!?!?!?!?

Direi che è semplicemente fantastica!!! Funziona alla grande!!!
Sei un mito!!!
Difficilmente avrò vittorie sostanziose considerando che gioco cifre molto moderate, ma se mai dovessi avere la classica botta di fortuna che giocando poco dovessi vincere una cifra modesta sarete entrambi ospiti di una suite in un paese esotico!!!!

Ora come posso adattare ciò che hai creatoal mio foglio di excel nella mia tabella??

---

Ora come posso adattare ciò che hai creatoal mio foglio di excel nella mia tabella??

---

per potertelo dire avremmo quantomeno bisogno di sapere come è strutturata la tua tabella in Excel, non mi pare di aver visto nulla in merito nei post.

Fai sapere

Ciao

Mario

ti ho mandato un'email.
Il mio foglio lo trovi in allegato sull'altro thread che ho aperto:
"riepilogo"

salvalo in versione compatibile Excel 2003

Mario

Ciao gabbia77,
in tema di sport ottimo.

Mario, sei veramente perseverante. Ti ringrazio x il notevole lavoro che mi ha impressionato (x quello che posso capire in vba), lo mediterò.
Ti sono riconoscente x avermi nei tuoi pensieri quando si tratta di vincite. Stop. vado a preparare due valigie e sapete xché.

Auguri di ottime vincite.. io attendo vostre nuove.

ciao.
aurelio

+aurelio+, 15/10/2007 10.31:

---

Ciao gabbia77,
in tema di sport ottimo.

Mario, sei veramente perseverante. Ti ringrazio x il notevole lavoro che mi ha impressionato (x quello che posso capire in vba), lo mediterò.
Ti sono riconoscente x avermi nei tuoi pensieri quando si tratta di vincite. Stop. vado a preparare due valigie e sapete xché.

Auguri di ottime vincite.. io attendo vostre nuove.

ciao.
aurelio

---

Dove vai di bello?? Questa settimana non pagio io di certo
Riguarda le partite che ho giocato,ne ho beccata una su cinque!!
Il prox fine settimana prima faccio un pronostico e poi le gioco tutte al contrario!!! eheheh!!!

Dammi tempo.

Ci sono diverse cose in tabella che debbo vedere ed alcune da rivedere.

Ciao

Mario

T3T, 15/10/2007 14.48:

---

Dammi tempo.

Ci sono diverse cose in tabella che debbo vedere ed alcune da rivedere.

Ciao

Mario

---

Hai tutto il tempo che vuoi!!
Grazie mille Mario!!!

Finalmente sono riuscito a completare il mio foglio di lavoro.
Allego qui sotto il mio lavoro in modo da poterlo condividere con il forum.
Per la realizzazione ringrazio per i preziosi consigli di +aurelio+(prepara la valigia!!) e freeant7@forum (davvero utile il link che mi hai dato); ma sopratutto lo sviluppo e l'adattamento del codice VBA da parte di mario T3T.

Se sono riuscito a completarlo il merito è sopratutto il suo
Grazie di cuore

Detto ciò auguro Buona Fortuna a tutti quanti!!

[POSTQUOTE][QUOTE:73368195=gabbia77, 20/10/2007 2.23]Finalmente sono riuscito a completare il mio foglio di lavoro.
Allego qui sotto il mio lavoro in modo da poterlo condividere con il forum.
Per la realizzazione ringrazio per i preziosi consigli di +aurelio+(prepara la valigia!!) e freeant7@forum (davvero utile il link che mi hai dato); ma sopratutto lo sviluppo e l'adattamento del codice VBA da parte di mario T3T.

Se sono riuscito a completarlo il merito è sopratutto il suo
Grazie di cuore

Detto ciò auguro Buona Fortuna a tutti quanti!![/QUOTE][/POSTQUOTE]

interessante, la provo anche io

Un plauso a Mario alias T3T per la macro delle combinazioni ed Aurelio che saluto, molte volte ho parlato di essere contrario al gioco, perchè l'unico che vince e colui che non gioca.

Ma mi sono ricreduto perchè da un po di tempo sono riuscito a sviluppare un sistema sul lotto, che il massimo ritardo di vincita sono 5 estrazioni, lo sto provando da 1 mese, ed oltre a riprendere il mio investimento iniziale, sono riuscito anche a raggiungere una discreta vincita, certo non gioco molto 1,60 €, perchè come detto al principio, per natura sono contrario al gioco.

Sto ancora testandolo, ma sicuramente non lo divulgherò, altrimenti poi calano le quote rendendo vano il sistema, se continua con questo ritmo.

Un saluto Ciao By Sal

complimenti a tutti

..

buon giorno a tutti scusate il disturbo ho letto il lavoro fatto da T3T e pur non esendo un esperto di vb devo dire che e un lavorone veramente complimenti

Complimenti per la realizzazione eccezzionale!!

[POSTQUOTE][QUOTE:123081869=Halo.1979, 30/07/2013 01:09]Complimenti per la realizzazione eccezzionale!! [/QUOTE][/POSTQUOTE]

salve ragazzi, ma posso scaricare anche io la cartella? e in caso potrei portarla su openoffice?

ciao ragazzi posso scaricare il file?

Interessantissimo... possibile scaricarlo

Ci sono novita sul vostro sistema di gioco?
A lunga scadenza funziona?
Buona serata Simo