Potenzreihen: Horner

[jfheins]

Ich denke, man sollte die Parameter seperat erklären, da sie ja nicht "sprechend" sind.

Also z.B.:

Delphi-Quellcode:

// HornerFkt - Berechnet den Funktionswert eines Polynoms
// n: Grad des Polynoms
// c: Koeffizienten des Polynoms (aufsteigend)
// x: Argument
// Rückgabe: Funktionswert an der Stelle x
function HornerFkt(const n: integer; const c: array of extended; 
                   const x: extended): extended; 
var 
  i: integer; 
begin 
  Result := c[n];                                              // y nach Horner 
  for i:= n-1 downto 0 do Result:= Result*x + c[i];            // berechnen, 
end; 

// HornerAbl - Berechnet die Ableitung eines Polynoms
// n: Grad des Polynoms
// c: Koeffizienten des Polynoms (aufsteigend)
// x: Argument
// Rückgabe: Ableitung an der Stelle x
function HornerAbl(const n: integer; const c: array of extended; 
                     const x: extended): extended; 
var 
  i: integer; 
begin 
  Result:= n*c[n]*x;                                          // y' nach Horner 
  for i:= n-1 downto 2 do Result:= (Result + i*c[i])*x;           // berechnen, 
  Result:= Result + c[1] 
end;