home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / monotony.inc < prev    next >
Encoding:
Text File  |  1988-02-02  |  1.2 KB  |  34 lines
  1. (*****************************************************************************)
  2. (*                               MONOTONY.INC                                *)
  3. (*                                                                           *)
  4. (*                  Überprüfung der Monotonieeigenschaften von f             *)
  5. (*****************************************************************************)
  6.  
  7. Procedure CheckMonotony;
  8.  
  9.    Var x,xmin,xmax,dx :Real;
  10.        done           :Boolean;
  11.  
  12.    Begin
  13.    GetInterval ('Monotonieüberprüfung', xmin, xmax, dx);
  14.    WriteLn ('Die Funktion ist im Bereich'); WriteLn;
  15.    Write ('[', xmin:m:n, ',');
  16.    x := Solve (xmin, xmax, dx, 1, done);
  17.    If done then
  18.       Repeat
  19.          Write (x:m:n, ']  monoton ');
  20.             If fn(xmin,1) > 0 then
  21.                WriteLn ('steigend')
  22.             else
  23.                WriteLn ('fallend');
  24.          Write ('[', x:m:n, ',');
  25.          xmin := x + dx;
  26.          x := Solve (xmin, xmax, dx, 1, done)
  27.       until not done or (x > xmax);
  28.    Write (xmax:m:n, ']  monoton ');
  29.    If fn(xmax,1) < 0 then
  30.       WriteLn ('fallend')
  31.    else
  32.       WriteLn ('steigend')
  33.    End;
  34.