Elipse

Parábola

Estas construcciones de los 
lugares geométricos de los puntos 
que equidistan de P y de una 
cónica centrada en el origen
son muy similares a la construcción 
de los lugares que equidistan de 
un punto y una circunferencia 
(usando la recta normal
a la cónica en C).

Sin embargo, la ecuación es 
mucho más complicada de encontrar.

Hipérbola

d: x = -1
I: (1, 0)
I': (-1, 0)
op1 = false
op2 = false
c = If(op1, Ellipse[I, I', 2], If[op2, Parabola[I, d], Hyperbola[I, I', 0.5]])
C = Point(c)
t = Tangent(C, c)
P = Point(xAxis)
r = LineBisector(P, C)
s = OrthogonalLine(C, t)
D = Intersect(r, s)
lugar = Locus(D, C)
anima = 0 (slider from 0 to 1)
O: (0, 0)
op3 = false
f = Segment(D, C)
de = Distance(ClosestPoint[c, O], O)
g = Segment(D, P)