Найти вектор x из уравнения

a1=[14.4,-5.3,14.3,-12.7];
a2=[23.4,-14.2,-5.4,2.1];
a3=[6.3,-13.2,-6.5,14.3];
 
w = solve(['-3+2-5'], ['-3*a1-2*a2+5*a3']);
print(%io(2), w);
xsol = evstr(w);
print(%io(2), xsol);

a1=[14.4,-5.3,14.3,-12.7];
a2=[23.4,-14.2,-5.4,2.1];
a3=[6.3,-13.2,-6.5,14.3];
 
function y=f1(x, m)
   y = 3*(a1-x)+2*(a2+x)-5*(a3+x);
endfunction
 
n = length(a1);
[xsol,v]=lsqrsolve(zeros(1,n),f1,n);
print(%io(2), xsol);

inv(A).' * det(A)

A = [
    1  2 -1 1;
    2  1  1 1;
    1 -1  2 1;
    1  1 -1 3
    ];
b = [ 8; 5; -1; 10 ];

xsol = inv(A)*b;

xsol = A\b;

xsol = linsolve(A, -b);

    8.     2.  - 1.    1.  
    5.     1.    1.    1.  
  - 1.   - 1.    2.    1.  
    10.    1.  - 1.    3.

    1.    8.   - 1.    1.  
    2.    5.     1.    1.  
    1.  - 1.     2.    1.  
    1.    10.  - 1.    3.

    1.    2.    8.     1.  
    2.    1.    5.     1.  
    1.  - 1.  - 1.     1.  
    1.    1.    10.    3.

    1.    2.  - 1.    8.   
    2.    1.    1.    5.   
    1.  - 1.    2.  - 1.   
    1.    1.  - 1.    10.

K1=det(x1)/det(A),K2=det(x2)/det(A),K3=det(x3)/det(A),K4=det(x4)/det(A)

A_tmp = A; A_tmp(:,i) = b;

     A = [ 1  2 -1 1;
             2  1  1 1;
             1 -1  2 1;
             1  1 -1 3];
     b = [ 8; 5; -1; 10 ];
 
     o=det(A);
     x1=A;
     x2=A;
     x3=A;
     x4=A;
     x1(:,1)=b;
     x2(:,2)=b;
     x3(:,3)=b;
     x4(:,4)=b;
     K=(det(x1)/o;det(x2)/o;det(x3)/o;det(x4)/o)