[Octave-cvsupdate] SF.net SVN: octave:[10142] trunk/octave-forge/extra/control-devel/inst/@ iddata/fft.m

[<par...@us...>]

Revision: 10142
          http://octave.svn.sourceforge.net/octave/?rev=10142&view=rev
Author:   paramaniac
Date:     2012-04-04 09:09:45 +0000 (Wed, 04 Apr 2012)
Log Message:
-----------
control-devel: touch up fft method (2)

Modified Paths:
--------------
    trunk/octave-forge/extra/control-devel/inst/@iddata/fft.m

Modified: trunk/octave-forge/extra/control-devel/inst/@iddata/fft.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/@iddata/fft.m	2012-04-04 08:45:53 UTC (rev 10141)
+++ trunk/octave-forge/extra/control-devel/inst/@iddata/fft.m	2012-04-04 09:09:45 UTC (rev 10142)
@@ -47,8 +47,11 @@
 %  dat.y = cellfun (@fft, dat.y, "uniformoutput", false);
 %  dat.u = cellfun (@fft, dat.u, "uniformoutput", false);
 
-  dat.y = cellfun (@(y, n) fft (y, n) / sqrt (n), dat.y, n, "uniformoutput", false);
-  dat.u = cellfun (@(u, n) fft (u, n) / sqrt (n), dat.u, n, "uniformoutput", false);
+%  dat.y = cellfun (@(y, n) fft (y, n) / sqrt (n), dat.y, n, "uniformoutput", false);
+%  dat.u = cellfun (@(u, n) fft (u, n) / sqrt (n), dat.u, n, "uniformoutput", false);
+
+  dat.y = cellfun (@(y, n) fft (y, n)(1:fix(n/2)+1, :) / sqrt (n), dat.y, n, "uniformoutput", false);
+  dat.u = cellfun (@(u, n) fft (u, n)(1:fix(n/2)+1, :) / sqrt (n), dat.u, n, "uniformoutput", false);
   
   dat.timedomain = false;
 

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