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
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

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!