Add extended_rosenbrock_gradient1() and its tests.

[octave.git] / is_upper_triangular.m

function isUT = is_upper_triangular(A)
  ## Returns true if ``A`` is upper triangular, false otherwise.
  isUT = isequal(A, triu(A));
end