% Lösning till uppgift ToR 1.2
% Joar Bagge 2016-11-04

clear
format long

f = @(x) log(x) - x/50;
fp = @(x) 1/x - 1/50;

% Plotta f
fplot(f, [0 300])
grid on

x = 300; % startgissning (nära högra roten)
tol = 1e-10;
while abs(f(x)) >= tol
  x = x - f(x)/fp(x)
end
hold on
plot(x, f(x), '*')
hold off

% Felgräns
Ex = tol / abs(fp(x))
