# source("http://macosa.dima.unige.it/r.R")
f=function(x) atan((x-3)/2)/4; deriv(f,"x")
  1/2/(1 + ((x - 3)/2)^2)/4
f1 = function(x) 1/2/(1 + ((x - 3)/2)^2)/4
f2 = function(x) 1/(2*x^2-12*x+26)
graphF(f1, -10,10, "blue")
graph2(f2, -10,10, "red")
  
# OK
# Verifichiamo con Gintegrak (vedi) la soluzione:
graph2F(f, -10,10, "brown"); graph2(f2, -10,10, "red")
h=solution2(f,f2,-5,5); h
# [1] 3.887669
POINT(h,f(h), "blue")
# ottengo il grafico a sinistra:
  
GintegraK(f2, h,-10, f(h), "blue"); GintegraK(f2, h,10, f(h), "blue")
# ottengo il grafico a destra, che si sovrappone a quello di f2. OK