source("http://macosa.dima.unige.it/R/r.R")
HF=2.5; BF=2.5
PLANE(-0.5,5.5, -1.5,4.5)
# La funzione definita su C
f <- function(z) abs(z-3-1i)-2
# La corrispondente funzione su R^2
F <- function(x,y) f(x+(0+1i)*y)
# Il grafico della curva F(x,y)=0
CURVE(F,"blue")
# Il raggio che dal centro sale con pendenza 20°
segm(3,1,3+2*cos(20*pi/180),1+2*sin(20*pi/180),"blue")
POINT(3,1,"black")
POINT(3+2*cos(20*pi/180),1+2*sin(20*pi/180),"red")
# le scritte:
text(2.6,1.4,"C",font=2); text(3.7,1.7,"2")
CLEAN(0.1,1.9,3.1,3.9)
text(1.1,3.35,"|P-C|=2",cex=0.8)
text(5.4,1.7,"P",font=2,col="red")
#
#
f <- function(z) abs(z+1-2i)-abs(z-1.5-3i)
F <- function(x,y) f(x+(0+1i)*y)
PLANE(-1.5,2.5, -0.5,3.5)
POINT(-1,2,"black")
POINT(1.5,3,"black")
CURVE(F,"blue")
# L'individuaz. di uno dei 2 punti distanti 2.5 dai punti dati
h1 <- function(x,y) (x-1.5)^2+(y-3)^2-2.5^2
CUR(h1,"seagreen")
h2 <- function(x,y) (x+1)^2+(y-2)^2-2.5^2
CUR(h2,"brown")
line(-1,2, 1.5,3, "blue")
f1=function(x) -sqrt((2.5^2-(x-1.5)^2))+3
f2=function(x) -sqrt(2.5^2-(x+1)^2)+2
K=solution2(f1,f2, 0,1.2)
line(-1,2, K,f1(K), "blue")
line(K,f1(K), 1.5,3, "blue")
POINT(K,f1(K),"red")
# le scritte:
text(1.8,2.7, "B",font=2)
text(-1.3,1.7, "A",font=2)
text(1.5,0.3, "P",font=2,col="red")
CLEAN(-1.1,0.1,0.3,0.7)
text(-0.5,0.5,"|P-B|=|P-A|",cex=0.8)