f[x_]:=(x^3)-((6Sin[x])/((x^2)-4))-28x+11
Plot[f[x],{x,-10,10}]

Plot[f[x],{x,-100,100}]

Plot[f[x],{x,-7,-4}]

f[-7.]

f[-4.]

((-7-4)/2)

%//N

f[-5.5]

((-4-(-7.))/2)

((-5.5-4)/2)

f[-4.75]

((-4-(-5.5))/2)

съставяме програмен код:

f[x_]:=(x^3)-((6Sin[x])/((x^2)-4))-28x+11
a=-7.;b=-4.;
For[n=0,n≤30,n++,
m=((a+b)/2);eps = ((b-a)/2);
Print["n = ",n," (Subscript[a, n]) = ",a," (Subscript[b, n]) = ",b," (Subscript[m, n]) = ",m," f((Subscript[m, n])) = ",f[m]," (Subscript[e, n]) = ",eps];
If[f[m]<0,a=m,b=m]
]

цикъл със стоп-критерий при достигане на предварително зададена точност:

f[x_]:=(x^3)-((6Sin[x])/((x^2)-4))-28x+11
a=-7.;b=-4.;
tochnost=(10^(-4));
eps=3;
For[n=0,eps≥ tochnost,n++,
m=((a+b)/2);eps = ((b-a)/2);
Print["n = ",n," (Subscript[a, n]) = ",a," (Subscript[b, n]) = ",b," (Subscript[m, n]) = ",m," f((Subscript[m, n])) = ",f[m]," (Subscript[e, n]) = ",eps];
If[f[m]<0,a=m,b=m]
]

намиране на брой итерации за достигане на предварително зададена точност:

Log2[((-4-(-7))/(10^(-4)))]-1.