Mercurial > octave-nkf

comparison scripts/general/triu.m @ 5239:8a7224914e16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-24 00:37:15 by jwe]
author jwe
date Thu, 24 Mar 2005 00:37:15 +0000
parents d25bc039237b
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
5238:d432b7809fe5 5239:8a7224914e16
26 26
27 function retval = triu (x, k) 27 function retval = triu (x, k)
28 28
29 if (nargin > 0) 29 if (nargin > 0)
30 [nr, nc] = size (x); 30 [nr, nc] = size (x);
31 retval = zeros (nr, nc); 31 retval = zeros (nr, nc, class (x));
32 endif 32 endif
33 33
34 if (nargin == 1) 34 if (nargin == 1)
35 k = 0; 35 k = 0;
36 elseif (nargin == 2) 36 elseif (nargin == 2)