[Octave-cvsupdate] SF.net SVN: octave:[9806] trunk/octave-forge/main/signal/inst/rceps.m

[<jpi...@us...>]

Revision: 9806
          http://octave.svn.sourceforge.net/octave/?rev=9806&view=rev
Author:   jpicarbajal
Date:     2012-03-10 12:44:08 +0000 (Sat, 10 Mar 2012)
Log Message:
-----------
signal: adding tolerance to test of transposed. Potntially a bug.

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

Modified: trunk/octave-forge/main/signal/inst/rceps.m
===================================================================
--- trunk/octave-forge/main/signal/inst/rceps.m	2012-03-10 12:40:15 UTC (rev 9805)
+++ trunk/octave-forge/main/signal/inst/rceps.m	2012-03-10 12:44:08 UTC (rev 9806)
@@ -73,8 +73,9 @@
 %! x=randn(256,1);
 %! [y, xm] = rceps(x);
 %! [yt, xmt] = rceps(x.');
-%! assert(yt.', y); 
-%! assert(xmt.', xm);
+%! tol = 1e-14;
+%! assert(yt.', y, tol);
+%! assert(xmt.', xm, tol);
 
 %!demo
 %! f0=70; Fs=10000;           # 100 Hz fundamental, 10kHz sampling rate
@@ -87,7 +88,7 @@
 %! figure(1);
 %! subplot(311);
 %!    auplot(x,Fs,'b',';signal;');
-%!    hold on; auplot(xm,Fs,'g',';reconstruction;'); 
+%!    hold on; auplot(xm,Fs,'g',';reconstruction;');
 %!    hold off;
 %! subplot(312);
 %!    axis("ticy");

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