source("http://macosa.dima.unige.it/r.R") PLANE(-3,3, -3,3) f1 = function(x,y) x^2-y^2 CUR(f1,0) f2 = function(x,y) x^2-y^2-1 CURVE(f2,"red") # Il grafico precedente ( x^2-y^2=1 ) si sovrappone ai seguenti # ( sqrt(((sqrt(2)+x)^2+y^2)) - sqrt(((sqrt(2)-x)^2+y^2)) = +/- 2 ) # che corrispondono a |d(P,F1 )- d(P,F2)| = 2 g1 = function(x,y) sqrt(((sqrt(2)+x)^2+y^2)) - sqrt(((sqrt(2)-x)^2+y^2))-2 g2 = function(x,y) sqrt(((sqrt(2)+x)^2+y^2)) - sqrt(((sqrt(2)-x)^2+y^2))+2 CURVE(g1,0); CURV(g2,0)