Quesito matematico

[misterx]

sia hanno 5 numeri e si desidera trovare il numero di combinazioni creando righe di 3 valori ciascuna

esempio:

numeri da combinare 5 in tre colonne:
1,2,3,4,5

combinazioni possibili
1-2-3
2-3-4
3-4-5
4-5-2
etc.....

esiste una formula per ottenere ciò ?

[GuitarRic]

Disposizione semplice di n elementi in classe k.

D(n,k)=n!/(n-k)!

nel tuo caso : D= 5!/(5-3)!=60

[misterx]

e un probabile algoritmo in un linguaggio a piacere come sarebbe ?

se qualche mod vuol spostare tale discussione in programmazione, non mi offendo; anzi, grazie

[misterx]

come si chiama un tale algoritmo ?

hai impiegato un pò troppo poco tempo

for (i=0;i<5;i++) 
for (j=0;j<5;j++) 
for (k=0;k<5;k++) 
printf ("%d %d %d",i,j,k);

[StErMiNeiToR]

Originariamente inviato da GuitarRic
Disposizione semplice di n elementi in classe k.

D(n,k)=n!/(n-k)!

nel tuo caso : D= 5!/(5-3)!=60

secondo me hai sbagliato sono delle combinazioni perche in questo caso secondo me nn vale l ordine che gli dai(invece nelle disposizioni conta)

secondo me sono delle combinazioni di n elementi di classe k

nCk=n!/(n-k)!*k!

ovvero D = 5!/(5-3)!*3!

mmm o forse sono disposizioni.... mmm nn mi ricordo +

[GuitarRic]

Originariamente inviato da StErMiNeiToR
secondo me hai sbagliato sono delle combinazioni perche in questo caso secondo me nn vale l ordine che gli dai(invece nelle disposizioni conta)

secondo me sono delle combinazioni di n elementi di classe k

nCk=n!/(n-k)!*k!

ovvero D = 5!/(5-3)!*3!

mmm o forse sono disposizioni.... mmm nn mi ricordo +

Beh misterx non è stato molto chiaro.
Dato che ha scritto 3 colonne ho interpretato ogni colonna diversa da un'altra.
Se invece intendeva un insieme combinatorio di 3 elementi allora è giusto trovare le combinazioni che hai scritto tu.

[misterx]

Originariamente inviato da filippom

Lo vuoi fatto?

certo che lo voglio fatto, intanto incollo questa conversione del tuo codice in VBA

Sub xxx()
r = 1
For i = 1 To 5
For j = 1 To 5
For k = 1 To 5
a$ = Str$(i) + " " + Str$(j) + " " + Str$(k)
Cells(r, 1) = a$: a$ = "": r = r + 1
Next k
Next j
Next i

End Sub

[misterx]

otimo , domani mattina lo provo

tnx