home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / def.inc < prev    next >
Text File  |  1988-02-02  |  1KB  |  23 lines
  1. (*****************************************************************************)
  2. (*                                  DEF.INC                                  *)
  3. (*                                                                           *)
  4. (*                   Benutzerfunktion und variable Parameter                 *)
  5. (*****************************************************************************)
  6.  
  7. Const eps      = 1e-10;     (* Rechengenauigkeit                             *)
  8.       h1       = 0.001;     (* Schrittweite bei Berechnung 1.Ableitung       *)
  9.       h2       = 0.005;     (*       -             -       2.    -           *)
  10.       h3       = 0.01;      (*       -             -       3.    -           *)
  11.       m        = 12;        (* Formatparameter bei Anzeige ...               *)
  12.       n        =  7;        (* ... von Real-Zahlen: write (x :m:n)           *)
  13.       MaxIter  = 500;       (* Maximale Iterationszahl beim Integrieren      *)
  14.       NoPoints = 10;        (* Symmetrie: Anzahl zu überprüfender Punkte     *)
  15.       d        = 1.0;       (*            x-Abstand zwischen zwei Punkten    *)
  16.  
  17.  
  18. Function f (x :Real) :Real;                 (* die zu untersuchende Funktion *)
  19.  
  20.    Begin
  21.    f := exp(-0.1*x) * cos(x);      (* hier ist es eine gedämpfte Schwingung! *)
  22.    End;
  23.