Feedback

VB - Binomialkoeffizient

Veröffentlicht von am 24.03.2010
(1 Bewertungen)
Diese Funktion berechnet iterativ den Binomialkoeffizienten von n über k. Weitere Informationen zu diesem Thema finden Sie hier:

http://de.wikipedia.org/wiki/Binomialkoeffizient
Function nCk(ByVal n As Short, ByVal k As Byte) As Integer
    If (k << 1) > n Then k = n - k
    nCk = n

    For t As Byte = 1 To k - 1
        nCk = nCk * (n - t) \ (t + 1)
    Next
End Function

1 Kommentare zum Snippet

Klemens Nanni schrieb am 21.12.2010:
Ist 2k > n so gilt: nCk(n,k) = nCk(n,n-k)
Diese Gesetzmäßigkeit spart so manche Rechenzeit.
 

Logge dich ein, um hier zu kommentieren!