|
Essential Wavelets for Statistical Applications and Data Analysis R.T. Ogden, University of South Carolina 0-8176-3864-4 * 1996 * $40.00 * Hardcover * 285 pages * 40 Illustrations |
Fig4.7s <- function()
{
# postscript(file = "Fig4.7.ps", horiz = F, height = 4.5, width = 3.5)
par(mfrow = c(3, 2), mar = c(1.5, 1.5, 1.5, 0.5), mgp = c(5, 0.4, 0))
plot(wavelet("s8", mother = F))
mtext("Scaling function, N=4", side = 3, line = 0.1)
plot(wavelet("s8", mother = T))
mtext("Wavelet, N=4", side = 3, line = 0.1)
plot(wavelet("s10", mother = F))
mtext("Scaling function, N=5", side = 3, line = 0.1)
plot(wavelet("s10", mother = T))
mtext("Wavelet, N=5", side = 3, line = 0.1)
plot(wavelet("s14", mother = F))
mtext("Scaling function, N=7", side = 3, line = 0.1)
plot(wavelet("s14", mother = T))
mtext("Wavelet, N=7", side = 3, line = 0.1)
# graphics.off()
NULL
}