Mercurial > octave-nkf

diff scripts/general/tril.m @ 2015:9e4e71b27b3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-03-20 11:10:42 by jwe]
author jwe
date Wed, 20 Mar 1996 11:12:35 +0000
parents 5d29638dd524
children 5cffc4b8de57
line wrap: on
line diff
--- a/scripts/general/tril.m	Wed Mar 20 10:54:03 1996 +0000
+++ b/scripts/general/tril.m	Wed Mar 20 11:12:35 1996 +0000
@@ -40,7 +40,7 @@
     usage ("tril (x [, k])");
   endif
 
-  for j = 1 : min (nc, nc + abs (k))
+  for j = 1 : min (nc, nr+k)
     nr_limit = max (1, j-k);
     retval (nr_limit:nr, j) = x (nr_limit:nr, j);
   endfor