Binomialkoeffizient – dotnet-snippets.de

Sprache: VB

Diese Funktion berechnet iterativ den Binomialkoeffizienten von [b]n[/b] über [b]k[/b]. 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

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

Abgelegt unter Binom binomial Binomialkoeffizient Iteration iterativ k Koeffizient Mathe n Rekursion rekursiv

Alte URL: /snippet/binomialkoeffizient/1362

1 Kommentar