Mercurial > hg > octave-lyh

diff scripts/general/tril.m @ 5731:c7d5a534afa5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-04-03 19:33:26 by jwe]
author jwe
date Mon, 03 Apr 2006 19:33:27 +0000
parents 56ab559e1d77
children 34f96dd5441b
line wrap: on
line diff
--- a/scripts/general/tril.m
+++ b/scripts/general/tril.m
@@ -68,11 +68,7 @@
 
   if (nargin > 0)
     [nr, nc] = size (x);
-    if (isa (x, "sparse"))
-      retval = sparse (nr, nc);
-    else
-      retval = zeros (nr, nc, class (x));
-    endif
+    retval = resize (resize (x, 0), nr, nc);
   endif
 
   if (nargin == 1)