home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
flex.inc
< prev
next >
Wrap
Text File
|
1988-02-01
|
1KB
|
31 lines
(*****************************************************************************)
(* FLEX.INC *)
(* *)
(* Berechnung der Wendstellen von f *)
(*****************************************************************************)
Procedure FindFlexPoints;
Var x,dx,xmin,xmax :Real;
found,done :Boolean;
Begin
GetInterval ('Wendestellenbestimmung', xmin, xmax, dx);
found := false;
x := Solve (xmin, xmax, dx, 2, done);
If done then
Repeat
If fn(x-dx,2) * fn(x+dx,2) < 0 then
If (fn(x,1) < eps) and (fn(x,1) > -eps) then
Write ('W')
else
Write ('S');
WriteLn (' (',x:m:n,', ',fn(x,0):m:n,')');
found := true;
xmin := x + dx;
x := Solve (xmin, xmax, dx, 2, done)
until not done or (x > xmax);
If not found then
WriteLn ('Keine Wendestelle gefunden!')
End;