[Octave-cvsupdate] SF.net SVN: octave:[10831] trunk/octave-forge/main/signal

[<mtm...@us...>]

Revision: 10831
          http://octave.svn.sourceforge.net/octave/?rev=10831&view=rev
Author:   mtmiller
Date:     2012-08-05 23:05:36 +0000 (Sun, 05 Aug 2012)
Log Message:
-----------
residued: fix failing test reported at bug #3553263 (Debian bug #664694).

Modified Paths:
--------------
    trunk/octave-forge/main/signal/NEWS
    trunk/octave-forge/main/signal/inst/residued.m

Modified: trunk/octave-forge/main/signal/NEWS
===================================================================
--- trunk/octave-forge/main/signal/NEWS	2012-08-05 21:22:05 UTC (rev 10830)
+++ trunk/octave-forge/main/signal/NEWS	2012-08-05 23:05:36 UTC (rev 10831)
@@ -4,6 +4,8 @@
 signal-1.1.4   Release Date: 2012-XX-XX   Release Manager:
 ===============================================================================
 
+ ** Fixed failing test for the function `residued'.
+
  ** The function `rceps' was fixed to work correctly with odd-length inputs.
 
  ** The following functions are new:

Modified: trunk/octave-forge/main/signal/inst/residued.m
===================================================================
--- trunk/octave-forge/main/signal/inst/residued.m	2012-08-05 21:22:05 UTC (rev 10830)
+++ trunk/octave-forge/main/signal/inst/residued.m	2012-08-05 23:05:36 UTC (rev 10831)
@@ -157,5 +157,9 @@
 %!test
 %! B=[1 0 0 0 1]; A=[1 0 0 0 -1];
 %! [r,p,f,m] = residued(B,A);
-%! assert({r,p,f,m},{[-j/2;j/2;1/2;-1/2],[-j;j;1;-1],1,[1;1;1;1]},100*eps);
+%! [~,is] = sort(angle(p));
+%! assert(r(is),[-1/2;-j/2;1/2;j/2],100*eps);
+%! assert(p(is),[-1;-j;1;j],100*eps);
+%! assert(f,1,100*eps);
+%! assert(m,[1;1;1;1],100*eps);
 %  Verified in maxima: ratsimp(%I/2/(1-%I * d) - %I/2/(1+%I * d)); etc.

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