powered by
h(t) = (-1)^(t-1) * x(t), 1 <= t <= length(x)
quadlength(x)
2-d image; dim(n,n), n = 2^J (hopefully).
n length(x).
n
J least power of two greater than n.
J
# NOT RUN { quadlength(matrix(1:16,ncol=4)) # }
Run the code above in your browser using DataLab