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

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

curve(x^1, -2, 2, xlab='x', ylab='y', col='blue', asp=TRUE)
grid()
Sys.sleep(pausa)
curve(2*x, -2, 2, col='red', add=TRUE)
Sys.sleep(pausa)
curve(1/2*x, -2, 2, col='green', add=TRUE)
Sys.sleep(pausa)
curve(3*x, -2, 2, col='red', lty=2, add=TRUE)
Sys.sleep(pausa)
curve(1/3*x, -2, 2, col='green', lty=2, add=TRUE)
Sys.sleep(pausa)

# aggiungiamo 1
curve(x^1 + 1, -2, 2, col='blue', add=TRUE)
Sys.sleep(pausa)
curve(2*x + 1, -2, 2, col='red', add=TRUE)
Sys.sleep(pausa)
curve(1/2*x + 1, -2, 2, col='green', add=TRUE)
Sys.sleep(pausa)
curve(3*x + 1, -2, 2, col='red', lty=2, add=TRUE)
Sys.sleep(pausa)
curve(1/3*x + 1, -2, 2, col='green', lty=2, add=TRUE)
Sys.sleep(pausa)

# aggiungiamo -1 e cambiamo segno alle pendenze'
curve(-x^1 - 1, -2, 2, col='blue', add=TRUE)
Sys.sleep(pausa)
curve(-2*x - 1, -2, 2, col='red', add=TRUE)
Sys.sleep(pausa)
curve(-1/2*x - 1, -2, 2, col='green', add=TRUE)
Sys.sleep(pausa)
curve(-3*x - 1, -2, 2, col='red', lty=2, add=TRUE)
Sys.sleep(pausa)
curve(-1/3*x - 1, -2, 2, col='green', lty=2, add=TRUE)

# dev.off()