# 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(10^x, -1, 1, col='red', xlab='x', ylab='f(x)')
grid()
abline(h=1)
Sys.sleep(pausa)
curve(exp(x), -1, 1, col='blue', add=TRUE)
Sys.sleep(pausa)
curve(2^x, -1, 1, col='green', add=TRUE)

xm=-1; xM=1
# esponenziali negativi
curve(10^(-x), xm, xM, lty=2, col='red', add=TRUE)
grid()
abline(h=1)
Sys.sleep(pausa)
curve(exp(-x), xm, xM,  lty=2, col='blue', add=TRUE)
Sys.sleep(pausa)
curve(2^(-x), xm, xM,  lty=2, col='green', add=TRUE)

# dev.off()