powered by
Inversion of the 2d block partition
invblock_partition2d(x, n, L)
partition of coefficients by block.
scale.
block size.
out coefficients.
out
block_partition2d
# NOT RUN { n <- 2 x <- matrix(rnorm(n^2), ncol=2) j0 <- 0 qmf <- MakeONFilter('Haar') wc <- FWT2_PO(x, j0, qmf) L <- 2 wcb <- block_partition2d(wc, L) wcib <- invblock_partition2d(wcb, n, L) # }
Run the code above in your browser using DataLab