Code zum berechnen von Bernoulli-Ketten

[Plague]

Hallo,

hat jemand von euch schon mal ein Programm zum Berechnen von Bernoulli Ketten geschrieben? Oder hat den dazu gehörigen Code?

Danke
Thomas

[xineohp]

moin,

das Problem daran sind die N über K Berechnungen; schon bei 100 über 50 fliegt dir das Programm um die Ohren, weil 100! halt doch ziemlich groß ist ... du müsstet also erstmal einen effizienteren Algorythmus für N über K schreiben, der z.B. kürzt bevor er irgendwas rechnent.

[Plague]

Das ist nicht so das Problem.
Denn das Program ist ein Referat für die Schule. Daher werden keine Berechnungen wie 100 über 50 vorgenommen.

Gruß
Thomas

[xineohp]

hm, dann sollten aber keine Ketten mit n > 20 vorkommen, da du sonst die Grenzen des int64-Typs sprengst!!

[Dani]

Hi,

wie viele Threads denn noch zu n über k? :mrgreen:

Delphi-Quellcode:

function Binomial(n, k: Cardinal): Extended; 
 begin
  If (k = 0) or (k=n) then Result := 1
   else Result := n/k * Binomial(n-1, k-1);
 end;

Bernoulli-Kette liefert z.B. das hier. Hilft das nicht weiter?