gauss3

Cl IUIUIILUUII

% Metoda Gaussa z wyborem elementu podstawowego (głównego)

function X=gauss_wyb(A,b) % A - macierz rownan dla X-niewiadome, równanie: Ax=b

if Size(A_/l) = =Size(A,2) & Size(A_/l) = = Size(b,l) %spr. poprawnego rozmiaru macierzy n = Size(A,l); % mniej wywołań size A=[A b]; % łączenie macierzy

for k=l:n % ile wierszy, tyle zerowań, dopóki to nie osatni wyraz w wierszu współczynników x

1=1;

max=abs(A(wmax=k,k)); for w=k:n

if max<abs(A( W,k)) % znajdowanie największego modułu max=abs(A(wmax=w,k)); end end

2