# variante esponenziali.R con
#    - limiti variabili
#    - log='y'  -> variante fondamentale!  
#    - aggiunte anche, tratteggiate, le funzioni con esponenti negativi

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

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

xm = -1
xM = 1
curve(10^x, xm, xM, log='y', col='red', xlab='x', ylab='f(x)')
grid(equilogs = FALSE)
abline(h=1)
Sys.sleep(pausa)
curve(exp(x), xm, xM, col='blue', add=TRUE)
Sys.sleep(pausa)
curve(2^x, xm, xM, col='green', add=TRUE)
Sys.sleep(pausa)

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