# 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