Mercurial > forge

changeset 2354:0d0ce869f904 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
apply sqrt(n) scale factor for compatiablity (For Peter Lanspeary)
author adb014
date Wed, 16 Aug 2006 21:50:49 +0000
parents e0470d77409f
children 77121e63463c
files main/signal/arburg.m
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/main/signal/arburg.m	Sun Aug 13 23:17:06 2006 +0000
+++ b/main/signal/arburg.m	Wed Aug 16 21:50:49 2006 +0000
@@ -40,7 +40,7 @@
 ##   [a, v] = arburg(x, order);
 ##   ## Plot magnitude response of signal and matched system
 ##   figure(0);
-##   mag = abs(fft(x))/sqrt(n);
+##   mag = abs(fft(x)) / sqrt(n);
 ##   [h, w] = freqz(sqrt(v), a, [], 2);
 ##   semilogy(2*[0:n/2-1]/n,mag(1:(n/2)),'1;spectrum;');
 ##   hold on;
@@ -77,7 +77,7 @@
 
   k = zeros(1,p);
   n = length(x);
-  v = sumsq(x);
+  v = sumsq(x) / n;
 
   ## f and b are the forward and backward error sequences
   f = x(2:n);