Il codice che risolve il problema suddetto è il seguente:
function x=solveLU(A,b) %SOLVELU Risolve il sistema lineare Ax=b fattorizzando la matrice % A come LU ed infine risolvendo i sistemi % Ly=b % Ux=y % % x=SOLVELU(A,b) % % I parametri della funzione sono: % A -> la matrice dei coefficienti del sistema lineare % b -> il vettore dei termini noti % % I valori di ritorno sono: % x -> il vettore soluzione del sistema lineare % % See Also FATTLU A=fattLU(A); n=length(b); x1=b; for i=2:n for j=1:i-1 x1(i)=x1(i)-A(i,j)*x1(j); end end x=solveUT(A,x1);