Was bedeuten die Ausrufezeichen? Ansonsten kann ich dir denke ich helfen.
Die Ausrufezeichen sind in der Mathematik das Zeichen für Fakultät, z.B.:
3!=1*2*3
Also wäre die Formel [1*2*3*..*n]/([1*2*3*..k]*([1*2*3*..[n-k]))
Üblicherweise wird Fakultät als Funktion benutzt, je nach Geschmack rekursiv oder als Schleife.
Zu Beachten ist die Fakultät von 0, denn 0!=1
Achso, ich vergaß: Es werden sehr schnell sehr große Zahlen ermittelt, FreeBASIC kann afair bis 172! und dann ist Sense.
(49! ist 6,082818640342675608722521633213e+62, mit dem m$ Calc.exe berechnet, da ist es n!..)
Gruß
ytwinky
Das ist ein Fakultäts zeichen.
0!=1
1!=1
2!=1*2=2
3!=1*2*3=6
u.s.w
Ich hab n=11 -> 11 Sachen, Murmeln, Apfel, Buchstaben, Zahlen 
und k=3 -> das ist die Kombination
Also folgt
n=11= {1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11} = 11 Zahlen
mit k ergibt sich {1 , 2 , 3} = eine möglichkeit von oben
Mein Beispiel:
Was ich haben will ist ...
11!/(3!(11-3)!) = 165 möglichkeiten
Kombinationsmöglichkeiten:
{1,2,3} , {1,2,4} , {1,2,5} , {1,2,6} , {1,2,7} , {1,2,8} , {1,2,9 }, {1,2,10} , {1,2,11}
{2,3,1} ist nicht koreckt da {1,2,3} die zahlen schon enthält, ... , {2,3,4}
usw
Hilft das als zusätzliche erklärung dir?
Skar: es gab einmal einen Uit(-light?) zu Lottozahlen vielleicht wirst du ja dort fündig,
stayawayknight: ! ist eine Rechenanweisung das ! gibt an das alle natürlichen,positiven Zahlen bis einschliesslich n miteinander multipliziert werden, Wenn n also 11 ist 1*2*3*4*5*6*7*8*9*10*11 = 39916800
die Lösung bei n=11 und k=3 ist also: 1*2*3*4*5*6*7*8*9*10*11/((1*2*3)*(1*2*3*4*5*6*7*8 )) = 165
Diese Formel wird z.B.: für Gewinnspielwarscheinlickeiten benutzt, im Beispiel von skar ist nicht anderes als Lotto 3 aus 11, deshalb mein Hinweis auf den Lotto-UIT
Edit:
http://de.wikipedia.org/wiki/Fakult%C3%A4t_%28Mathematik%29[/url]] * Ein Begriff, der in der abzählenden Kombinatorik eine ähnlich zentrale Stellung wie die Fakultät einnimmt, ist der Binomialkoeffizient
autoit.de/wcf/attachment/12001/
Er gibt die Anzahl der Möglichkeiten an, eine k-elementige Teilmenge aus einer n-elementigen Menge auszuwählen. Hier ist das beliebteste Beispiel das Zahlenlotto 6 aus 49 mit
autoit.de/wcf/attachment/12002/
Möglichkeiten.
mfg autroBert
Was ich hir will ist aber kein Lotto und auch kein gewinnspiel ^^.
Aber ja das ist mir schon mal untergelaufen. Doch war es irgend wie nicht so das ich da durchblickte...
Sub Kombinationen()
Dim a%, b%, c%, d%, e%, f%, x&, y&
x = 1
For a = 1 To 44
For b = a + 1 To 45
For c = b + 1 To 46
For d = c + 1 To 47
For e = d + 1 To 48
For f = e + 1 To 49
If y = 65536 Then
y = 0
x = x + 1
End If
y = y + 1
Cells(y, x) = a & "," & b & "," & c & "," & d & "," & e & "," & f
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
Doch ist mir das zu blöd. Ich möchte es so haben wenn ich n und k angebe das ich dann die ergebnisse bekomme, und nicht mit VBS sondern mit Auto IT.
Ja, nach 3-facher Erkärung hab ich jetzt auch verstanden was gemeint ist. Hab gedacht, das hat irgendeine (einfachere) Bedeutung...
Ist doch auch ganz einfach
Func fak($Zahl) ;fakultät berechnen
Local $d=1.0, $i
If $Zahl<0 Then Return 'Argument negativ(Zahl=' &$Zahl &'), das ist nicht definiert.'
For $i=2 To $Zahl
$d*=$i
Next
Return $d
EndFunc
Func nueberk($n, $k) ;Bartsch, Mathematische Formeln, DDR 1977
Return fak($n)/(fak($k)*fak($n-$k))
EndFunc
Edit: Hoffentlich sind jetzt alle FreeBASIC 'Schreibfehler' entfernt..
Gruß
ytwinky
Hi Skar,
Hier meine Lösung zu deinem Problem.
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $n=1, $k=1
[/autoit] [autoit][/autoit] [autoit]Global $time = 0, $sleep=10, $aElemente, $aKombiSolo, $aKombi, $aKombiTmp
[/autoit] [autoit][/autoit] [autoit]If $k <= 0 Or $n <= 0 Then
MsgBox(0, "Die Antwort nach dem Leben, dem Universum und dem ganzen Rest, lautet...", "42")
Exit
EndIf
If $k > $n Then
MsgBox(0, "Ist $k nicht etwas zu groß gewählt?", "Programm abbruch!")
Exit
EndIf
If Not (MsgBox(1, "Der Gesundheitsminister warnt...", "Bei großen n- und/oder k-Werten kann die Berechnung Ihre Gesundheit gefährden!" & @CRLF & @CRLF & "Benutzung auf eigene Gefahr!") = 1) Then Exit
_main()
Func _main()
AdlibRegister("time", 1000)
Sleep(250)
AdlibRegister("addtime", $sleep*1000)
_init()
_start($aKombiSolo)
AdlibUnRegister("time")
AdlibUnRegister("addtime")
MsgBox(0, "Mögliche Kombinationen", UBound($aKombi))
_ArrayDisplay($aKombi)
EndFunc
Func _init()
Dim $aElemente[$n]
For $i = 0 To UBound($aElemente) - 1
$aElemente[$i] = $i + 1
Next
Dim $aKombiSolo[$k]
For $i = 0 To $k - 1
$aKombiSolo[$i] = $aElemente[$i]
Next
Dim $aKombi[1] = [_ArrayToString($aKombiSolo, ",")]
Dim $aKombiTmp = $aKombi
EndFunc
Func _start($a, $i=0)
If $i < $k-1 Then _start($a, $i+1) ; nur zur besseren Darstellung des Ergebnisses - kann auch auskommentiert werden
$aCopy = $a
For $j = 0 To UBound($aElemente) - 1
If _ArraySearch($aCopy, $aElemente[$j]) = -1 Then
$a[$i] = $aElemente[$j]
$aTmp = $a
_ArraySort($aTmp)
$sTmp = _ArrayToString($aTmp, ",")
If _ArraySearch($aKombiTmp, $sTmp) = -1 Then
_ArrayAdd($aKombiTmp, $sTmp)
_ArrayAdd($aKombi, _ArrayToString($a, ","))
EndIf
If $i < $k-1 Then _start($a, $i+1)
EndIf
Next
EndFunc
Func time()
ConsoleWrite(".")
EndFunc
Func addtime()
$time += $sleep
ConsoleWrite($time & " Sekunden vergangen!" & @CRLF)
EndFunc
Ja super vielen dank. Das pass ich jetzt für mich an.
