[Octave-cvsupdate] SF.net SVN: octave:[5467] trunk/octave-forge/main/control

[<sla...@us...>]

Revision: 5467
          http://octave.svn.sourceforge.net/octave/?rev=5467&view=rev
Author:   slackydeb
Date:     2008-11-27 22:03:01 +0000 (Thu, 27 Nov 2008)

Log Message:
-----------
Bug fix: gram function not working as documented. Add a regression test. Bump version number.

Modified Paths:
--------------
    trunk/octave-forge/main/control/DESCRIPTION
    trunk/octave-forge/main/control/inst/gram.m

Modified: trunk/octave-forge/main/control/DESCRIPTION
===================================================================
--- trunk/octave-forge/main/control/DESCRIPTION	2008-11-26 07:55:33 UTC (rev 5466)
+++ trunk/octave-forge/main/control/DESCRIPTION	2008-11-27 22:03:01 UTC (rev 5467)
@@ -1,5 +1,5 @@
 Name: Control
-Version: 1.0.7
+Version: 1.0.8
 Date: 2008-08-23
 Author: Ben Sapp
 Maintainer: None

Modified: trunk/octave-forge/main/control/inst/gram.m
===================================================================
--- trunk/octave-forge/main/control/inst/gram.m	2008-11-26 07:55:33 UTC (rev 5466)
+++ trunk/octave-forge/main/control/inst/gram.m	2008-11-27 22:03:01 UTC (rev 5467)
@@ -34,6 +34,13 @@
 
   ## Let lyap do the error checking...
 
-  m = lyap (a, b*b');
+  m = lyap (a', b*b');
 
 endfunction
+
+
+%!test
+%! a = [-1 0 0; 1/2 -1 0; 1/2 0 -1];
+%! b = [1 0; 0 -1; 0 1];
+%! m = gram (a, b);
+%! assert (a * m + m * a' + b *b', zeros (size (a)))
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.