gauss4

C=A(k,:);    % zamiana wiersza na wiersz z największym modułem w danej kolumnie na diagoniale

A(k,:)=A(wmax,:);

A(wmax,:)=c;

for j = (k+l):n % indeks kolumny for i=l:n % szukanie elementu różnego od zera

if A(k,i)~ = 0 & A(k,k) % jeśli różny od zera - wykonuj ciąg dalszy A(j,:)=A(j,:)-A(k,:)*A(j,k)/A(k,k); % odejmnij przemnożonożony współczynnik break

elseif i==n disp('\n\tNieskończenie wiele rozwiązań.'); k=0; X=k; return end end end

if(i<n & k= = n) % etap drugi - "postępowanie odwrotne"

% disp('part 2');

X=A(:,n + l); % wyrazy wolne 'b'

X(k)=X(k)/A(k,k);

1=0;

while(k=k-l)

1=1+1;

for(z=l:i) X(k)=X(k)-X(k+z)*A(k,k+z); end X(k)=X(k)/A(k,k); end