# source("http://macosa.dima.unige.it/r.R")
f=function(x) (x-1)/(x^2*(x^2+x+1))
Plane(-4,4, -1,1)
graph2(f, -5,5, "blue")
g1=function(x) 2*log(x) + 1/x - log(x^2+x+1)
g2=function(x) 2*log(-x) + 1/x - log(x^2+x+1) 
graph2(g2, -5,0, "red"); graph2(g1, 0,5, "red")
# ho ottenuto il grafico sotto a sinistra
    
Plane(-4,4, -1,1)
graph2(f, -5,5, "blue")
g1=function(x) 2*log(x) + 1/x - log(x^2+x+1)
g2=function(x) 2*log(-x) + 1/x - log(x^2+x+1) 
graph2(g2, -5,0, "red"); graph2(g1, 0,5, "red")
# traccio due punti delle curve, da cui voglio far passare due curve integrali
POINT(-2,g2(-2),"green"); POINT(1,g1(1),"green")
# per GintegraK vedi
GintegraK(f, 1,4, g1(1),"seagreen")
GintegraK(f, 1,0, g1(1),"seagreen")
GintegraK(f, -2,0, g2(-2),"brown")
GintegraK(f, -2,-4, g2(-2),"brown")
POINT(-2,g2(-2),"green"); POINT(1,g1(1),"green")
# OK: si sovrappongono