diff options
Diffstat (limited to 'usth/MATH2.2/labwork/3/LU.m')
-rw-r--r-- | usth/MATH2.2/labwork/3/LU.m | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/usth/MATH2.2/labwork/3/LU.m b/usth/MATH2.2/labwork/3/LU.m new file mode 100644 index 0000000..860486d --- /dev/null +++ b/usth/MATH2.2/labwork/3/LU.m @@ -0,0 +1,10 @@ +function [L U] = LU (A) + [n n1] = size (A); + [L U] = deal (eye (n), A); + for k = 1:n + for i = k + 1 : n + L(i, k) = U(i, k) / U(k, k); + U(i, :) = U(i, :) - L(i, k)*U(k, :); + end + end +end |