home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / function.inc < prev    next >
Encoding:
Text File  |  1988-02-02  |  985 b   |  23 lines
  1. (*****************************************************************************)
  2. (*                              FUNCTION.INC                                 *)
  3. (*                                                                           *)
  4. (*               Berechnung von Funktionswerten und Ableitungen              *)
  5. (*****************************************************************************)
  6.  
  7. Function fn (x :Real; k :Integer) :Real;
  8.  
  9.    (*  k = 0: Berechnung des Funktionswertes   *)
  10.    (*      1:     -      der ersten Ableitung  *)
  11.    (*      2:     -      der zweiten    -      *)
  12.    (*      3:     -      der dritten    -      *)
  13.  
  14.    Begin
  15.    Case k of
  16.       0: fn := f(x);
  17.       1: fn := (f(x-2*h1) - 8*f(x-h1) + 8*f(x+h1) - f(x+2*h1)) / (12*h1);
  18.       2: fn := (-f(x-2*h2) + 16*f(x-h2) - 30*f(x) + 16*f(x+h2) - f(x+2*h2))
  19.                / (12*h2*h2);
  20.       3: fn := (-f(x-2*h3) +2*f(x-h3) - 2*f(x+h3) + f(x+2*h3)) / (2*h3*h3*h3)
  21.       End
  22.    End;
  23.