pois.r

draw <- function(l, filename) {
  png(filename, width=500, height=500)
  barplot(dpois(0:10, l), names.arg=0:10, ylim=c(0,1), col="#993435")
  text(5, 0.8, paste0("λ=", sprintf("%1.1f", l)), cex=5)
  dev.off()
}

l <- (1:50) / 10
for (i in 1:length(l)) {
  draw(l[i], sprintf("plot_%04d.png", i))
  draw(l[i], sprintf("plot_%04d.png", length(l)*2 - i + 1))
}