# png("plot_logaritmi.png")     # <- scommentare per salvare su file 
                                #    (anche l'ultima istruzione in fondo)

pausa=1                         # mettere a 0 se si salva su file

curve(exp(x), -1, 2, ylim=c(0,10), col='blue', xlab='x', ylab='f(x)')
grid()
abline(h=1)
Sys.sleep(pausa)
curve(2*exp(x), -1, 2, col='blue', lty=2, add=TRUE)
Sys.sleep(pausa)
curve(0.5*exp(x), -1, 2, col='blue', lty=3, add=TRUE)

Sys.sleep(pausa)
curve(exp(2*x), -1, 2, col='red', add=TRUE)
abline(h=1)
Sys.sleep(pausa)
curve(2*exp(2*x), -1, 2, col='red', lty=2, add=TRUE)
Sys.sleep(pausa)
curve(0.5*exp(2*x), -1, 2, col='red', lty=3, add=TRUE)

Sys.sleep(pausa)
curve(exp(-x), -1, 2, col='green', add=TRUE)
abline(h=1)
Sys.sleep(pausa)
curve(2*exp(-x), -1, 2, col='green', lty=2, add=TRUE)
Sys.sleep(pausa)
curve(0.5*exp(-x), -1, 2, col='green', lty=3, add=TRUE)

Sys.sleep(pausa)
curve(exp(-2*x), -1, 2, col='cyan', add=TRUE)
abline(h=1)
Sys.sleep(pausa)
curve(2*exp(-2*x), -1, 2, col='cyan', lty=2, add=TRUE)
Sys.sleep(pausa)
curve(0.5*exp(-2*x), -1, 2, col='cyan', lty=3, add=TRUE)

# dev.off()