%% sistema de ecuaciones 2

clearvars;
clear all;
close all;
clc;

N = 20;

for m = 1:N
    for n = 1:N
        A(m,n) = 1/(m+n);
    end;
    B(m,1) = m;
end;

X = inv(A)*B;

disp('resultados');
for m = 1:N
    fprintf('X(%d,1) = %f\n',m,X(m,1));
end;

%comprobemos resultados
BB = A*X;
disp(' ');
disp('comparacion');
[B, BB]