Mercurial > hg > octave-lyh

changeset 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 d432b7809fe5
children 2bb31f40c339
files scripts/ChangeLog scripts/general/tril.m scripts/general/triu.m
diffstat 3 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,5 +1,8 @@
 2005-03-23  John W. Eaton  <jwe@octave.org>
 
+	* general/tril.m, general/triu.m: Return value of same class as
+	argument.
+
 	* optimization/glpk.m: Simplify interface.  By default, solve
 	standard LP min C'*x s.t. A*x = b, x >= 0.
 	* optimization/glpkmex.m: New file.
--- a/scripts/general/tril.m
+++ b/scripts/general/tril.m
@@ -69,7 +69,7 @@
 
   if (nargin > 0)
     [nr, nc] = size (x);
-    retval = zeros (nr, nc);
+    retval = zeros (nr, nc, class (x));
   endif
 
   if (nargin == 1)
--- a/scripts/general/triu.m
+++ b/scripts/general/triu.m
@@ -28,7 +28,7 @@
 
   if (nargin > 0)
     [nr, nc] = size (x);
-    retval = zeros (nr, nc);
+    retval = zeros (nr, nc, class (x));
   endif
 
   if (nargin == 1)