From 82e6cf7d1046d6cee16f7e8b044ec33e7ec6c4b7 Mon Sep 17 00:00:00 2001 From: Nguyễn Gia Phong Date: Sun, 16 Feb 2020 14:26:55 +0700 Subject: [usth] Numerical Method is MATH2.4 --- usth/MATH2.2/labwork/3/subst.m | 17 ----------------- 1 file changed, 17 deletions(-) delete mode 100644 usth/MATH2.2/labwork/3/subst.m (limited to 'usth/MATH2.2/labwork/3/subst.m') diff --git a/usth/MATH2.2/labwork/3/subst.m b/usth/MATH2.2/labwork/3/subst.m deleted file mode 100644 index 5c6e783..0000000 --- a/usth/MATH2.2/labwork/3/subst.m +++ /dev/null @@ -1,17 +0,0 @@ -function x = subst (aug) - [m n] = size (aug); - x = zeros (m, 1); - if (istril (aug)) - x(m) = aug(1, n) / aug(1, m); - for k = 2 : m - x(k) = (aug(k, n) - aug(k, k+1:m)*x(1:k-1)) / aug(k, k); - end - elseif (istriu (aug)) - x(m) = aug(m, n) / aug(m, m); - for k = m - 1 : -1 : 1 - x(k) = (aug(k, n) - aug(k, k+1:m)*x(k+1:m)) / aug(k, k); - end - else - error ('aug must be a triangular matrix'); - end -end -- cgit 1.4.1