home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / roots.inc < prev    next >
Text File  |  1988-02-01  |  886b  |  24 lines
  1. (*****************************************************************************)
  2. (*                               ROOTS.INC                                   *)
  3. (*                                                                           *)
  4. (*                      Berechnung der Nullstellen von f                     *)
  5. (*****************************************************************************)
  6.  
  7. Procedure FindRoots;
  8.  
  9.    Var x,xmin,xmax,dx :Real;
  10.        done           :Boolean;
  11.  
  12.    Begin
  13.    GetInterval ('Nullstellenbestimmung', xmin, xmax, dx);
  14.    x := Solve (xmin, xmax, dx, 0, done);
  15.    If done then
  16.       Repeat
  17.          WriteLn ('N (',x:m:n,', 0)');
  18.          xmin := x + dx;
  19.          x := Solve (xmin, xmax, dx, 0, done)                 (* löse f(x)=0 *)
  20.       until not done or (x > xmax)
  21.    else
  22.       WriteLn ('Keine Nullstelle gefunden!')
  23.    End;
  24.