Hallo zusammen,

möchte ein Muster erstellen, um die Kombinationen von mehreren Elementen zueinander, darzustellen. Ein Element ist dabei immer fest – Beispiel:


E1_______E2_______E3_______E4

____________________________X
X___________________________X
__________X_________________X
__________________X_________X
X_________X_________________X
X_________X_______X_________X
X_________________X_________X
__________X_______X_________X

Formel: ((Element-Anzahl - 1) ²) – 1 = 8 Kombinationen


Jetzt sollen nicht nur 4 Elemente wie im obigen Beispiel kombiniert werden, sondern die Element-Anzahl kann zwischen 1 und 20 variieren.

Wie kann ich denn solch ein Muster flexibel mit Delphi erstellen?

Bin für jeden Tipp sehr dankbar, denn irgendwie komme ich nicht weiter!

Sieht irgendwie nach TStringGrid aus.

Hallo jasocul

jasocul hat folgendes geschrieben:

Sieht irgendwie nach TStringGrid aus.

Ja möchte das Ganze in ein Grid reinpacken. Aber mir gehts erst einmal darum sämtliche Kombinationen sauber aufzubauen, damit ich keine vergesse.
Bei 4 Elementen ist das Ganze ja noch überschaubar. Aber wenn ich z.B. 10
Elemente habe, wird's ganz schön komplex (10 Elemente = 9 ² - 1 = 511 Kombinationen, wenn ich mich nicht verrechnet habe).

Herbie hat folgendes geschrieben:

(10 Elemente = 9 ² - 1 = 511 Kombinationen, wenn ich mich nicht verrechnet habe).

Deine Formel ist irgendwie falsch. Die leere Menge beinhaltend, hat die Potenzmenge aus n Elementen eine Mächtigkeit von 2^n.

Notiz an mich: Lern erstmal zu quoten

Wenn du einfach alle Kombination raushaben willst, kannst du natürlich auch einfach alle Zahlen von 1 (ohne leere Menge) bis 2^n durchgehen und die Bits in Binärdarstellung prüfen. z.B. dein Beispiel

Zahl Bitmuster
1 0001
2 0010
3 0011
4 0100
5 0101
...
...
15 1111

Um direkt rauszufinden ob in der i-ten Kombinationsmöglichkeit das j-te Element enthalten ist, kannst du die folgende Formel benützen:

Sonst kannst du wie schon von Spaceguide erwähnt die Zahl i ins Binärsystem umrechnen, das ist natürlich dasselbe. Im Forum sollte es genügend Funktionen geben, die genau das tun.

Spaceguide hat folgendes geschrieben:

Notiz an mich: Lern erstmal zu quoten

Dann editier doch bitte den Beitrag. Sonst denkt wirklich noch jemand, dass das von mir ist.

Erst mal danke an delfiphan und Spaceguide.

Irgendwie checke ich das Ganze leider immer noch nicht.
Wie muss ich denn z.B. jetzt vorgehen wenn ich ein Muster von 20 Zahlenkombinationen erstellen möchte?

Erst die Anzahl der Kombinationen errechnen und dann...? - power(20,2)

An Spaceguide:
"alle Zahlen von 1 (ohne leere Menge) bis 2^n durchgehen"
Wie mache ich das in Delphi ? Wie kommst Du zu dem Bitmuster wie in Deinem Beispiel,
wenn ich z.B. 20 Elemente habe?

Ich weiß ich nerve, aber irgendwie steh ich auf dem Schlauch. Das mit dem Bitmuster wäre super, könnte mir dann die einzelnen Zeilen des Bitmusters in eine Liste schreiben und die Liste dann rekursiv durchgehen und ein Grid-Anzeige entsprechend dem Bitmuster aufbauen.

Hmm, Delfiphan hat das eigentlich schon recht einfach gemacht.
Nehmen wir diese Funktion hier:



Jetzt kannst du da einfach eine zweidimensionale Schleife durchgehen und z.B. in einen TStringgrid ein x schreiben, wo die Funktion true zurückgibt.

Je nachdem ob du verschiedene Elemente oder auch mal gleiche verwendest verändert sich die Anzahl. In einem Buch unter Statisktik wirst Su unter "Permutationen" oder "Kombinationen" fündig werden, falls du in dieser Hinsicht überhauüt unterscheiden möchtest.

@Spaceguide: Permutation = Vertauschung. Z.B. Eine Permutation von 1234 wäre 3124. Deine Variable aPermutation müsste ACombination (oder anders) heissen, da es hier nicht um Permutationen geht.

Nennen wir es korrekterweise aMengensystem

An alle, die mir geantwortet haben: Vielen Dank. Ihr habt mir sehr weitergeholfen. Jetzt funktioniert das Ganze. War wirklich auf der Leitung gesessen