% Skript som implementerar Newtons metode

% Bestemmer x_0
x=1;

% Presisjon
Pres=1e-5;

% Tel iterasjonane
teljar=0;

% Lager en variabel for "forrige" x-verdi (tilfeldig tal)
xGml=100;

while abs(x-xGml)>Pres
    xGml=x;                                 % Kopierar den gamle x
    x=x-(sqrt(x)-cos(x))/(1/(2*sqrt(x))+sin(x));  % Iterasjonsskjema
    teljar=teljar+1;                        % Tel iterasjonar
end

% Skriv svaret til skjerm
x
% Skriv talet på iterasjonar til skjerm
Iterasjonar=teljar