# 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