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)