n <- 10; k <- 3
round(c(
mit_zuruecklegen_mit_anordnung = n^k,
ohne_zuruecklegen_mit_anordnung = factorial(n) / factorial(n - k),
ohne_zuruecklegen_ohne_anordnung = choose(n, k),
mit_zuruecklegen_ohne_anordnung = choose(n + k - 1, k)
), 0) mit_zuruecklegen_mit_anordnung ohne_zuruecklegen_mit_anordnung
1000 720
ohne_zuruecklegen_ohne_anordnung mit_zuruecklegen_ohne_anordnung
120 220
# Die Herleitung des Binomialkoeffizienten, Schritt fuer Schritt
c(mit_anordnung = 10 * 9 * 8,
anordnungen_je_auswahl = factorial(3),
ohne_anordnung = 10 * 9 * 8 / factorial(3)) mit_anordnung anordnungen_je_auswahl ohne_anordnung
720 6 120
# Und die Grossenordnung im Lotto
c(sechs_aus_49 = choose(49, 6),
wahrscheinlichkeit = 1 / choose(49, 6)) sechs_aus_49 wahrscheinlichkeit
1.398382e+07 7.151124e-08





