[Octave-cvsupdate] SF.net SVN: octave:[10881] trunk/octave-forge/extra/lssa

[<be...@us...>]

Revision: 10881
          http://octave.svn.sourceforge.net/octave/?rev=10881&view=rev
Author:   benjf5
Date:     2012-08-16 21:00:23 +0000 (Thu, 16 Aug 2012)
Log Message:
-----------
Fixing some errors; minor improvement in accelerated complex transform.

Modified Paths:
--------------
    trunk/octave-forge/extra/lssa/inst/lscorrcoeff.m
    trunk/octave-forge/extra/lssa/inst/lswaveletcoeff.m
    trunk/octave-forge/extra/lssa/src/fastlscomplex.cc

Modified: trunk/octave-forge/extra/lssa/inst/lscorrcoeff.m
===================================================================
--- trunk/octave-forge/extra/lssa/inst/lscorrcoeff.m	2012-08-16 16:29:54 UTC (rev 10880)
+++ trunk/octave-forge/extra/lssa/inst/lscorrcoeff.m	2012-08-16 21:00:23 UTC (rev 10881)
@@ -88,7 +88,7 @@
   ry2 = y2(mask);
 
   windowed_element_count = length (rx1);
-  if (windowed_element_count = 0)
+  if (windowed_element_count == 0)
      error("lscorrcoeff: No time-series elements contained in window.\n");
   endif
 

Modified: trunk/octave-forge/extra/lssa/inst/lswaveletcoeff.m
===================================================================
--- trunk/octave-forge/extra/lssa/inst/lswaveletcoeff.m	2012-08-16 16:29:54 UTC (rev 10880)
+++ trunk/octave-forge/extra/lssa/inst/lswaveletcoeff.m	2012-08-16 21:00:23 UTC (rev 10881)
@@ -36,7 +36,7 @@
 
 function coeff = lswaveletcoeff (x, y, t, o, wgt = @cubicwgt, wgtrad = 1)
 
-  if (! (ncoeff >= 4) && (ncoeff <= 6))
+  if (! (nargin >= 4) && (nargin <= 6))
      print_usage ();
   endif
   if (! isvector (x))

Modified: trunk/octave-forge/extra/lssa/src/fastlscomplex.cc
===================================================================
--- trunk/octave-forge/extra/lssa/src/fastlscomplex.cc	2012-08-16 16:29:54 UTC (rev 10880)
+++ trunk/octave-forge/extra/lssa/src/fastlscomplex.cc	2012-08-16 21:00:23 UTC (rev 10881)
@@ -312,7 +312,7 @@
        */
       double *exp_pse_ptr, *exp_ptr, exp_power_series_elements[12];
       {
-	double t = mu * dtaud, tt;
+	double t = mu * loop_delta_tau, tt;
 	exp_ptr = exp_power_series_elements;
 	*exp_ptr++ = 1;
 	*exp_ptr++ = t;

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