function sig = scanord(n)
sig = zeros(1,n);
k = round(n/2+.1);
s = 1;
for i=1:n
  sig(i) = k;
  k = k + s*i;
  s = -s;
end
return