# Esercizietto (carica via via in R da un # all'altro)
# (per prendere confidenza col software)
#
i <- seq(-5,5,1); j <- i+1/2
gr <- function(F) {par( mai=(c(0.5,0.5,0.1,0.1) ) )
    plot(F,-5,5,ylim=c(-1,100)); abline(v=0,h=0)
    points( j,(F(i+1)-F(i))/1 )  }
#
g <- function(x) 7*x^2+5; gr(g)
#
g <- function(x) 10*x+20; gr(g)
#
g <- function(x) 2*x^3+5; gr(g)
#
g <- function(x) 5^x; gr(g)
#
g <- function(x) 4^x; gr(g)
#
g <- function(x) 3^x; gr(g)
# Procedi variando g. Che cosa puoi congetturare?