# 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)

# dev.off()