Mercurial > hg > octave-nkf

comparison scripts/general/triu.m @ 1518:84bd88b8acee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-04 03:35:16 by jwe]
author jwe
date Wed, 04 Oct 1995 03:45:06 +0000
parents 611d403c7f3d
children 5d29638dd524
comparison
equal deleted inserted replaced
1517:5a02b9fba19e 1518:84bd88b8acee
32 32
33 if (nargin == 1) 33 if (nargin == 1)
34 k = 0; 34 k = 0;
35 elseif (nargin == 2) 35 elseif (nargin == 2)
36 if ((k > 0 && k > nc) || (k < 0 && k < -nr)) 36 if ((k > 0 && k > nc) || (k < 0 && k < -nr))
37 error ("triu: requested diagonal out of range") 37 error ("triu: requested diagonal out of range");
38 endif 38 endif
39 else 39 else
40 usage ("triu (x [, k])"); 40 usage ("triu (x [, k])");
41 endif 41 endif
42 42