% Los EXS 3.11. Av Erik Dalsryd 2018-09-14
clear all, close all, clc

% V�lj startgissningar
x1 = 0.02;
x2 = 0.2;
x3 = 0.3;

dx = 1;   % S�tt dx f�r att komma in i while-loopen

while   max(abs(dx)) > 0.5e-7
    % Ber�kna vektorv�rda f
    f1 = 10*x1 - x2 - x1^2 - x2^2;
    f2 = x1 + 10*x2 - x3 - 2 + x2^3;
    f3 = x1 + 3*x3 - 1 + x3^3;
    f  = [f1 ; f2 ; f3];
    
    J  = [10-2*x1  -1-2*x2  0 ; 1  10+3*x2^2  -1 ; 1  0 3+3*x3^2];   % Jakobianen
    dx = J\f   % Ber�kna approximativa felet i x-vektorn
    
    % Justera x-vektorn med det approximativa felet
    x1 = x1 - dx(1);
    x2 = x2 - dx(2);
    x3 = x3 - dx(3);
end

% Skriv ut x-v�rdena
x1
x2
x3
