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)