Associa ad ogni grafico di funzione (prima riga) il grafico (tra quelli della seconda riga) che rappresenta l'andamento della sua pendenza.

La pendenza di 1 è positiva e costante, deve avere l'ultimo grafico. Quella di 2 è crescente e vale 0 in 0, deve avere il primo grafico. Quella di 3 inizialmente è costante e negativa, poi, di scatto, diventa positiva e crescente; deve avere il terzo grafico. Quella di 4 è nulla, deve avere il quarto grafico. Quella di 5 è costante e negativa per due tratti, poi, nel tratto successivo, è costante e positiva; deve avere il secondo grafico
25431
# Come realizzare grafici simili con R:
source("http://macosa.dima.unige.it/r.R")
BF=2; HF=2.5
f1=function(x) 2*x+1; d1=function(x) eval(deriv(f1,"x"))
Plane(-4,4, -6,8); graph(f1, -4,4, "blue")
Plane(-4,4, -1,3); graph(d1, -4,4, "blue")
#
f2=function(x) x^2-1; d2=function(x) eval(deriv(f2,"x"))
Plane(-4,4, -2,8); graph(f2, -4,4, "blue")
Plane(-4,4, -8,8); graph(d2, -4,4, "blue")
#
f3a = function(x) -x; f3b = function(x) x^1.5
f3=function(x) ifelse(x<0, f3a(x),f3b(x) )
d3=function(x) ifelse(x<0, eval(deriv(f3a,"x")), eval(deriv(f3b,"x")) )
Plane(-4,4, -2,8); graph(f3, -4,4, "blue")
Plane(-4,4, -3,4); graph(d3, -4,4, "blue")
#
f4=function(x) 1.5; d4=function(x) eval(deriv(f4,"x"))
Plane(-4,4, -3,4); graph(f4, -4,4, "blue")
Plane(-4,4, -3,4); graph(d4, -4,4, "blue")
#
f5a = function(x) -2*x+2; f5b = function(x) 2-x/2; f5c=function(x) 2*(x-2)+1
f5=function(x) ifelse(x<0, f5a(x), ifelse(x<2,f5b(x),f5c(x) ) )
d5=function(x) ifelse(x<0,eval(deriv(f5a,"x")),ifelse(x<2,eval(deriv(f5b,"x")),eval(deriv(f5c,"x"))))
Plane(-4,4, -3,8); graph(f5, -4,4, "blue")
Plane(-4,4, -3,4); graph(d5, -4,4, "blue")