Fig5.4s <- function()
{
#  postscript(file = "Fig5.2.ps", height = 5.46, width = 5.46, horiz = F)
  par(mar = c(0, 0, 0, 0))
  rs <- c(57, 14, 55, 51, 30, 0, 53, 44, 34, 53, 49, 2)
  .Random.seed <- rs
  x <- (1:1024)/1024
  y <- sin(2 * pi * x)
  y[513:1024] <- y[513:1024] + sin(4 * pi * x[513:1024])
  y[769:1024] <- y[769:1024] + ((1:256) * sin((10 * pi * (1:256))/256))/128
  y <- y + (1:1024)/1024
  y[201:280] <- y[201:280] + sin(((1:80) * 30 * pi)/80)
  y <- y + rnorm(1024) * 0.131366
  plot(mra(y, wavelet = "d10"), cex = 0.7)	
# This line is to clear out the x-axis.
  lines(c(0, 1050), c(-0.5, -0.5), lwd = 50, col = 0)
#  graphics.off()
  NULL
}