diff options
Diffstat (limited to 'usth/MATH2.2/labwork/3/gauss.m')
-rw-r--r-- | usth/MATH2.2/labwork/3/gauss.m | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/usth/MATH2.2/labwork/3/gauss.m b/usth/MATH2.2/labwork/3/gauss.m deleted file mode 100644 index 09128dc..0000000 --- a/usth/MATH2.2/labwork/3/gauss.m +++ /dev/null @@ -1,12 +0,0 @@ -function x = gauss (A, b) - issquare (A) || error ('Matrix A must be square'); - Aug = [A b]; - [m n] = size (Aug); - % forward elimination - for k = 1 : m - 1 - for l = k + 1 : m - Aug(l, k:n) = Aug(l, k:n) - Aug(k, k:n)*Aug(l, k)/Aug(k, k); - end - end - x = ubst (Aug); -end |