Fig9.5s <- function()
{
#  postscript(file = "Fig9.5.ps", horiz = F, height = 7, width = 4.5)
  par(mfrow = c(4, 2), mar = c(2, 2, 2, 1), mgp = c(5, 0.4, 0))
  plot(wavelet.packet("haar", oscillation = 0), cex = 0.55)
  mtext(side = 3, line = 0.1, "Haar scaling function (m=0)", cex = 0.6)
  plot(wavelet.packet("haar", oscillation = 1), cex = 0.55)
  mtext(side = 3, line = 0.1, "Haar mother wavelet (m=1)", cex = 0.6)
  for(i in 2:7) {
    plot(wavelet.packet("haar", oscillation = i), cex = 0.55)
    mtext(side = 3, line = 0.1, paste("Packet function (m=", i, ")",
		      sep = ""), cex = 0.6)
  }
#  graphics.off()
  NULL
}