home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
monotony.inc
< prev
next >
Wrap
Text File
|
1988-02-01
|
1KB
|
34 lines
(*****************************************************************************)
(* MONOTONY.INC *)
(* *)
(* Überprüfung der Monotonieeigenschaften von f *)
(*****************************************************************************)
Procedure CheckMonotony;
Var x,xmin,xmax,dx :Real;
done :Boolean;
Begin
GetInterval ('Monotonieüberprüfung', xmin, xmax, dx);
WriteLn ('Die Funktion ist im Bereich'); WriteLn;
Write ('[', xmin:m:n, ',');
x := Solve (xmin, xmax, dx, 1, done);
If done then
Repeat
Write (x:m:n, '] monoton ');
If fn(xmin,1) > 0 then
WriteLn ('steigend')
else
WriteLn ('fallend');
Write ('[', x:m:n, ',');
xmin := x + dx;
x := Solve (xmin, xmax, dx, 1, done)
until not done or (x > xmax);
Write (xmax:m:n, '] monoton ');
If fn(xmax,1) < 0 then
WriteLn ('fallend')
else
WriteLn ('steigend')
End;