powered by
Inversion of the 1d block partition
invblock_partition(x, n, L)
partition of coefficients by block.
scale.
block size.
block_partition, BlockThresh.
block_partition
BlockThresh
# NOT RUN { n <- 8 x <- MakeSignal('Ramp', n) j0 <- 1 qmf <- MakeONFilter('Haar') wc <- FWT_PO(x, j0, qmf) L <- 2 wcb <- block_partition(wc, L) wcib <- invblock_partition(wcb, n, L) # }
Run the code above in your browser using DataLab