# 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(log(x), 0.1, 20, col='blue', xlab='x', ylab='f(x)')
grid()
abline(v=1, lty=2)
Sys.sleep(pausa)
abline(v=exp(1), lty=2, col='blue')
Sys.sleep(pausa)
curve(log10(x), 0.1, 20, col='red', add=TRUE)
Sys.sleep(pausa)
abline(v=10, lty=2, col='red')
Sys.sleep(pausa)
curve(log2(x), 0.1, 20, col='green', add=TRUE)
Sys.sleep(pausa)
abline(v=2, lty=2, col='green')

# dev.off()