# Come realizzare il grafico della funzione arcotangente e della sua
# approssimazione lineare mediante R (copia le presenti righe e
# incollale in R)
f <- function(x) atan(x)
plot(f, -1,3, col="blue")
abline(v=0,h=0); abline(v=1,h=f(1),lty=3)
g <- function(x) pi/4+(x-1)/2
plot(g, -1,3, add=TRUE, col="red")