swarga/AAE-NA-Labs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Modified Algorithm 5

Browse Source
This commit is contained in:
Sergiusz Warga 2021-03-13 13:33:13 +01:00
parent d4d323fd19
commit 302dc37f78
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Direct Methods for Solving Linear Systems/gauss_jordan_elimination.m
View File

@ -1,25 +1,28 @@
% Algorithm 5: Gauss-Jordan Elimination
% Input A is an augmented matrix
% Argument A is an augmented matrix
function A = gauss_jordan_elimination(A)
[n, m] = size(A);
% M – rows, N – columns
if n + 1 ~= m
error('Matrix is not squared!')
end
[M, N] = size(A);
%
% if M + 1 ~= N
% error('Matrix is not squared!')
% end
%
% if det(A) == 0
% error('Matrix is not nonsingular!')
% end
for k = 1 : m-1
for m = 1 : M
row = A(k, :);
row = row/row(k);
A(k, :) = row;
for l = 1 : m-1
if l ~= k
A(l, :) = A(l, :)-(A(l, k))*row;
row = A(m, :);
row = row/row(m);
A(m, :) = row;
for n = 1 : M
if n ~= m
A(n, :) = A(n, :)-(A(n, m))*row;
end
end
end