X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=is_upper_triangular.m;fp=is_upper_triangular.m;h=b78991d8b07683600389e8d4622900a986d9a317;hp=0000000000000000000000000000000000000000;hb=542e0bbc0bcde79e1366d4280cc0637cd43586d1;hpb=ee2abb133ffec1ba0a9177cb290738ce7a188dcf

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