Kombi's

eine rein rechnerische Lösung wäre ja langweilig

interessanter wäre die "Tabelle / Array" selber zu füllen

2 kleine Ansätze:

"Würfeln" lassen und die Ergebnisse in eine Variable -> Zahl packen und diese ins Array schreiben wenn sie nicht schon vorhanden ist

z.B.
5236511
1342541
4423451
4312234
...

oder noch lustiger: alle 7 stelligen Zahlen runterzählen und ins Array schreiben

also z.B. von 6666666 bis 1111111

anschliessend alle Zahlen löschen, die 0, 7, 8, oder 9 enthalten *G*

Wenn ich in der Schule aufgepasst habe, wären das ja 6^7 Möglichkeiten oder?
Das wären dann in einer Zahl 117649 Möglichkeiten
Das wird dann aber ein schönes Array. Gibt es da nicht irgendwo Grenzen oder war das nur bei Variablen Größen?

MfG
Der_Doc

Moin,
ja das ging mal danaben 7 Würfel mit 6 Seiten sollten dann doch 6^7 sein und das sind dann 279936.
Stimmt denn überhaupt der Ansatz?

MfG
Der_Doc

Nein. Es sind 924 "gültige" unterschiedliche Kombination möglich.

Ich grübel nun schon seit mehreren Stunden und weiter als bis

MsgBox(0,"",_Combi_Total(7,6))
Func _Combi_Total($wa,$sa)
; http://www.murderousmaths.co.uk/books/unknownform.htm
Local $1 = 1, $2 = 1, $3 = 1
For $i = 1 to $wa+$sa-1
$1 *= ($wa+$sa-$i)
Next
For $i = 1 to $wa-1
$2 *= $wa-$i
Next
For $i = 0 To $sa-1
$3 *= $sa-$i
Next
Return $1/($2*$3)
EndFunc

um dir schonmal die Anzahl der Möglichen Kombinationen zu geben bin ich nicht gekommen.
Der Schlüssel liegt in der _ArrayCombinations(). Ich bekomme sie nur nicht umgeschrieben, sodass sie so funktioniert wie ich es will. Beispiel: wir haben einen $array[42] (7 Würfel x 6 Seiten). _ArrayCombinations soll nun kombinieren. Aber nicht einen Würfel untereinander. Die ganzen Möglichkeiten nachher durchzugehen, um sie aus dem Array zu löschen ist ineffizient! Wenn man zb: 1800 x 1800 Elemente durchgehen muss, dauert das ewig (alles schon getestet)

zum Glück bietet die Stochastik bereits eine Formel dafür *gähn*

Dann poste sie

Das kommt davon wenn man mal wieder zu kompliziert denkt