.


           

Tangent2,


else tangent1(b, a, eps, min, x)

end;

Tangent2, tangent1:

Procedure tangent1(a, b, eps, min : real; var x : real);

var

x1 : real;

begin

x1 := a;

repeat

x := x1 - fx(x1)/derivat1(x1, eps);

x1 := x

until abs(fx(x))/min < eps

end;

tangent1, tangent , :

{ }

Procedure Combination(a, b, eps : real; var x : real);

var

z : real;

begin

repeat

if fx(a)*derivat2(a, eps) > 0

then

begin

tangent(a, b, eps, z);

chord(b, a, x);

b := z; a := x

end

else

begin

tangent(b, a, eps, z);

chord(a, b, x);

b := x; a := z

end

until abs(z - x) < eps

end;

, .

3

. 2, .