//Zestaw 4

%ad.3a)
ezplot('10*x-exp(-x)'),[-2,4] // rysuje funkcje w przedziale <-2;4>

//ad.b)
f=inline('10*x-exp(-x)')

a=-1
b=1
n=input('n = ');

for k=0:n
if f(a)*f(b) < 0
    bp=b;
    b=(a+b)/2;
    c=b;
elseif f(a)*f(b) > 0
    a=(a+bp)/2;
        c=a;
end
end
disp('Wynik = ')
disp(c)