Kombinatorik

[AlMoney]

Hallo,
ich benötige einen Algorithmus der mir alle Variationen mit zurücklegen von n aus m Elementen zurückgibt.
D.h. ich habe z.b. die Zahlen 1,2,3 und möchte alle möglichen 2er Kombinationen zurückgegeben haben, also 1,1 2,2 3,3 1,2 1,3 2,1 2,3 3,1 3,2. Anzahl der Elemente und Anzahl der "Picks" sollten jedoch nicht statisch sein.
Hat jemand vllt. schon mal sowas gemacht und könnte mir weiterhelfen? Komme nicht weiter.

Viele Grüße & Dank im Voraus

 

[Zvoni]

Ohne getestet zu haben:
um das Ergebnis aufzunehmen brauchst du ein Array mit folgender Spezifikation:
Die Anzahl Dimensionen wird durch Anzahl "Picks" spezifiziert.
Die Grösse einer Dimension wird durch die Anzahl der "Zahlen" spezifiziert.

Beispiel: 3 Picks mit Zahlen von 1 bis 9
Dim arrErgebnis() as string

Redim arrErgebnis(1 to 9, 1 to 9, 1 to 9)

For i=1 to 9
For j=1 to 9
For x=1 to 9
arrErgebnis(i,j,x)=i & "," & j & "," & x
Next
Next
Next

Hallo,
ich benötige einen Algorithmus der mir alle Variationen mit zurücklegen von n aus m Elementen zurückgibt.
D.h. ich habe z.b. die Zahlen 1,2,3 und möchte alle möglichen 2er Kombinationen zurückgegeben haben, also 1,1 2,2 3,3 1,2 1,3 2,1 2,3 3,1 3,2. Anzahl der Elemente und Anzahl der "Picks" sollten jedoch nicht statisch sein.
Hat jemand vllt. schon mal sowas gemacht und könnte mir weiterhelfen? Komme nicht weiter.

Viele Grüße & Dank im Voraus