Add the is_upper_triangular() function and its tests.

[octave.git] / is_upper_triangular.m

diff --git a/is_upper_triangular.m b/is_upper_triangular.m
new file mode 100644 (file)
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