# Calcoli e grafici fatti con R
source("http://macosa.dima.unige.it/r.R")
H = function(x) log(2*x^3-9*x^2+12*x)
BF=3; HF=2.5
Plane(-1,5, -2,6)
graph( H, -1,5, "brown")
             
dH = function(x) eval(deriv(H,"x"))
solution(dH,0, 0,1.5)
#  1    max
solution(dH,0, 1.5,3)
#  2    min
d2H = function(x) eval(deriv2(H,"x"))
xf1 = solution(d2H,0, 1,2); xf1
# 1.541667           1^ flesso
xf2 = solution(d2H,0, 2,5); xf2
# 3.136834           2^ flesso
POINT(1,H(1), "red"); POINT(2,H(2), "red")
POINT(xf1,H(xf1), "blue"); POINT(xf2,H(xf2), "blue")