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

[<car...@us...>]

Revision: 8645
          http://octave.svn.sourceforge.net/octave/?rev=8645&view=rev
Author:   carandraug
Date:     2011-09-30 15:00:38 +0000 (Fri, 30 Sep 2011)
Log Message:
-----------
impinvar: bug fix by Juan Carbajal, of the bug fix to truncate values below tolerance

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

Modified: trunk/octave-forge/main/signal/inst/impinvar.m
===================================================================
--- trunk/octave-forge/main/signal/inst/impinvar.m	2011-09-30 14:47:28 UTC (rev 8644)
+++ trunk/octave-forge/main/signal/inst/impinvar.m	2011-09-30 15:00:38 UTC (rev 8645)
@@ -1,5 +1,6 @@
 ## Copyright 2007 R.G.H. Eschauzier <res...@ya...>
-## Adapted by Carnë Draug on 2011 <car...@gm...>
+## Copyright (c) 2011 Carnë Draug <car...@gm...>
+## Copyright (c) 2011 Juan Pablo Carbajal <car...@if...>
 ## 
 ## This program is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by
@@ -85,8 +86,8 @@
   b_out          = polyreduce(b_out);
 
   ## respect the required tolerance values
-  a_out = a_out(find ((a_out < tol) == (a_out > -tol)));
-  b_out = b_out(find ((b_out < tol) == (b_out > -tol)));
+  b_out(abs(b_out)<tol) = [];
+  a_out(abs(a_out)<tol) = [];
 
 endfunction
 

Modified: trunk/octave-forge/main/signal/inst/invimpinvar.m
===================================================================
--- trunk/octave-forge/main/signal/inst/invimpinvar.m	2011-09-30 14:47:28 UTC (rev 8644)
+++ trunk/octave-forge/main/signal/inst/invimpinvar.m	2011-09-30 15:00:38 UTC (rev 8645)
@@ -1,5 +1,5 @@
 ## Copyright 2007 R.G.H. Eschauzier <res...@ya...>
-## Adapted by Carnë Draug on 2011 <car...@gm...>
+## Copyright (c) 2011 Carnë Draug <car...@gm...>
 ## 
 ## This program is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by

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