diff scripts/signal/spectral_adf.m @ 3374:89405d9a9b0b

[project @ 1999-12-08 06:58:04 by jwe]
author jwe
date Wed, 08 Dec 1999 06:58:05 +0000
parents 041ea33fbbf4
children f8dde1807dee
line wrap: on
line diff
--- a/scripts/signal/spectral_adf.m	Tue Nov 23 20:54:31 1999 +0000
+++ b/scripts/signal/spectral_adf.m	Wed Dec 08 06:58:05 1999 +0000
@@ -51,7 +51,7 @@
   
   retval = 2 * real (fft (c)) - c(1);
   retval = [(zeros (cr, 1)), retval];
-  retval(:, 1) = (0 : xr-1)' / xr;
+  retval(:, 1) = (0 : cr-1)' / cr;
   
 endfunction