home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / extreme.inc < prev    next >
Text File  |  1988-02-01  |  1KB  |  33 lines
  1. (*****************************************************************************)
  2. (*                            EXTREME.INC                                    *)
  3. (*                                                                           *)
  4. (*                    Berechnung der Extremwerte von f                       *)
  5. (*****************************************************************************)
  6.  
  7. Procedure FindExtremeValues;
  8.  
  9.    Var x,xmin,xmax,dx :Real;
  10.        found,done     :Boolean;
  11.  
  12.    Begin
  13.    GetInterval ('Extremwertbestimmung', xmin, xmax, dx);
  14.    found := false;
  15.    x := Solve (xmin, xmax, dx, 1, done);
  16.    If done then
  17.       Repeat
  18.          If (fn(x-dx,1) > 0) and (fn(x+dx,1) < 0) then
  19.             Write ('H')
  20.          else
  21.             If (fn(x-dx,1) < 0) and (fn(x+dx,1) > 0) then
  22.                Write ('T')
  23.             else
  24.                Write ('S');
  25.          WriteLn (' (', x:m:n, ', ', fn(x,0):m:n, ')');
  26.          found := true;
  27.          xmin := x + dx;
  28.          x := Solve (xmin, xmax, dx, 1, done)
  29.       until not done or (x > xmax);
  30.    If not found then
  31.       WriteLn ('Keine Extremwerte gefunden!')
  32.    End;
  33.