Fig5.13n <- function()
{
#  postscript(file = "Figure5.13.ps", height = 5.46, width = 5.46, horiz = F)
  par(mar = c(1.5, 1.5, 0, 0), mgp = c(5, 0.6, 0))
  rs <- c(57, 14, 55, 51, 30, 0, 53, 44, 34, 53, 49, 2)
  .Random.seed <- rs
  wn <- rnorm(1024)
  plot(wd(wn, filter.number = 5), main = "", sub = "")
#  graphics.off()
  NULL
}