#------- Figure 5.11----------------
module(wavelets)
dop_make.signal("blocks", n=128)
a1_nd.dwt(dop, wavelet="d4")
postscript("/haar/local/brani/.public_html/boo/figs/nondec1.ps", horizontal=F)
frame()
plot(a1, type="h")
dev.off()
#----------------------------------------------
a2_as.vector(a1[["d4"]])
postscript("/haar/local/brani/.public_html/boo/figs/nondec2.ps", horizontal=F)
frame()
par(mfrow=c(2,1))
plot(a2, type="h", xlab="index",  ylab="level d3, non-decimated transformation")
a3_dwt(dop, wavelet="d4")
a4_as.vector(a3[["d4"]])
plot(a4, type="h", xlab="index",  ylab="level d3, standard  transformation")
dev.off()



~