Birkhauser - Essential Wavelets for Statistical Appli

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

Fig1.1 <- function()
{
#  postscript(file = "Fig1.1.ps", horiz = F, height = 4.5, width = 3.5)
  par(mfrow = c(3, 2), mar = c(1.5, 2.5, 1.5, 0.5), mgp = c(5, 0.4, 0))
  x <- seq( - pi, pi, by = 0.01)
  plot(x, sin(x), type = "l")
  mtext("j=0", side = 3, line = 0.1)
  mtext("sin(x)", side = 2, line = 1.5)
  plot(x, cos(x), type = "l")
  mtext("j=0", side = 3, line = 0.1)
  mtext("cos(x)", side = 2, line = 1.5)
  plot(x, sin(2 * x), type = "l")
  mtext("j=1", side = 3, line = 0.1)
  mtext("sin(2x)", side = 2, line = 1.5)
  plot(x, cos(2 * x), type = "l")
  mtext("j=1", side = 3, line = 0.1)
  mtext("cos(2x)", side = 2, line = 1.5)
  plot(x, sin(3 * x), type = "l")
  mtext("j=2", side = 3, line = 0.1)
  mtext("sin(3x)", side = 2, line = 1.5)
  plot(x, cos(3 * x), type = "l")
  mtext("j=2", side = 3, line = 0.1)
  mtext("cos(3x)", side = 2, line = 1.5)
#  graphics.off()
  NULL
}