Mercurial > hg > octave-nkf

diff scripts/signal/bartlett.m @ 4172:2e94b2abfe6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-12 21:14:04 by jwe]
author jwe
date Tue, 12 Nov 2002 21:14:04 +0000
parents 22bd65326ec1
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/signal/bartlett.m
+++ b/scripts/signal/bartlett.m
@@ -44,10 +44,7 @@
   else
     m = m - 1;
     n = fix (m / 2);
-    c (1 : n+1) = 2 * (0 : n)' / m;
-    c (n+2 : m+1) = 2 - 2 * (n+1 : m)'/m;
+    c = [2*(0:n)/m, 2-2*(n+1:m)/m]';
   endif
 
-  c = c';
-
 endfunction