# HG changeset patch
# User jwe
# Date 1111624635 0
# Node ID 8a7224914e166a2f7c2a4fd997d055a94a3a0e5e
# Parent  d432b7809fe513cccef4c1399828b81b90c8f52a
[project @ 2005-03-24 00:37:15 by jwe]

diff -r d432b7809fe5 -r 8a7224914e16 scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Mar 23 21:40:30 2005 +0000
+++ b/scripts/ChangeLog	Thu Mar 24 00:37:15 2005 +0000
@@ -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.
diff -r d432b7809fe5 -r 8a7224914e16 scripts/general/tril.m
--- a/scripts/general/tril.m	Wed Mar 23 21:40:30 2005 +0000
+++ b/scripts/general/tril.m	Thu Mar 24 00:37:15 2005 +0000
@@ -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)
diff -r d432b7809fe5 -r 8a7224914e16 scripts/general/triu.m
--- a/scripts/general/triu.m	Wed Mar 23 21:40:30 2005 +0000
+++ b/scripts/general/triu.m	Thu Mar 24 00:37:15 2005 +0000
@@ -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)