From 542e0bbc0bcde79e1366d4280cc0637cd43586d1 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 25 Feb 2013 09:35:00 -0500 Subject: [PATCH] Add the is_upper_triangular() function and its tests. --- is_upper_triangular.m | 4 ++++ tests/is_upper_triangular_tests.m | 16 ++++++++++++++++ 2 files changed, 20 insertions(+) create mode 100644 is_upper_triangular.m create mode 100644 tests/is_upper_triangular_tests.m diff --git a/is_upper_triangular.m b/is_upper_triangular.m new file mode 100644 index 0000000..b78991d --- /dev/null +++ b/is_upper_triangular.m @@ -0,0 +1,4 @@ +function isUT = is_upper_triangular(A) + ## Returns true if ``A`` is upper triangular, false otherwise. + isUT = isequal(A, triu(A)); +end diff --git a/tests/is_upper_triangular_tests.m b/tests/is_upper_triangular_tests.m new file mode 100644 index 0000000..209edde --- /dev/null +++ b/tests/is_upper_triangular_tests.m @@ -0,0 +1,16 @@ +A = eye(5); +unit_test_equals("eye(5) is upper-triangular", ... + true, ... + is_upper_triangular(A)); + +A = [1, 2, 3; ... + 0, 4, 5; ... + 0, 0, 6]; +unit_test_equals("An upper-triangular matrix is upper-triangular", ... + true, ... + is_upper_triangular(A)); + + +unit_test_equals("A lower-triangular matrix is not upper-triangular", ... + false, ... + is_upper_triangular(A')); -- 2.43.2